Bonjour à tous,
j’ai utiliser une macro, malgré que je sois débutante, je voulais que dans mon tableau de suivi d’offre un récapitulatif soit fait dans une autre feuille (avec d’autres infos …) et pour cela j’ai fais une macro qui copie les cases pleines dans cette nouvelle feuille, cela fonctionne très bien mais quand il colle j’ai l’impression qu’il colle une multitude de ligne qui fait que je ne peux rien mettre en dessous de mon tableau récapitulatif et ça me pose problème.
voici la macro utilisé:
Sub rapporter()
'Dans la feuille Feuil1
Sheets(“Suivi offres”).Activate
'Ne pas afficher les cellules vides
ActiveSheet.Range("$B$6:$I$15").AutoFilter Field:=1, Criteria1:="<>"
'Selectionner toutes les cellules pleines
Dim MaPlage As Range
Set MaPlage = Range(“B6:I” & Range(“B6”).End(xlDown).Row)
MaPlage.Select
'Copier la selection
Selection.Copy
'Activer la feuille Pilote
Sheets(“Rapport hebdo”).Activate
'Selectionner la première ligne vide
Range(“B15”).End(xlUp).Offset(1).Select
'Copier les valeurs dans la ligne selectionnée
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Retirer les filtres
Sheets(“Suivi offres”).Activate
ActiveSheet.Range("$B$6:$I$15").AutoFilter Field:=1
End Sub
merci d’avance.