Salut Elo !
Une question. Qu'entends tu par "J'édite les résultats..."
Sinon la manière de procéder est la suivante :
Avec le menu Outils / Macro, tu crées une nouvelle macro.
Une fois l'enregistreur en route, tu fais tes manips normalement.
Tu stoppes ta macro et tu l'ouvres dans le Vbe.
(Alt+F11) / Répertoire module.
Je viens de faire cette manip en considérant que le "J'édite les résultats..." soit un simple Copier / Coller / Valeur sur la feuille 2
Et voilà ce que cela à donné :
Sub Macro1()
Selection.AutoFilter Field:=1, Criteria1:="AEP BELMONT DE LA LOIRE"
ActiveWindow.SmallScroll ToRight:=8
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=12
ActiveWindow.ScrollColumn = 1
Rows("17:18").Select
Selection.EntireRow.Hidden = True
Range("A2:C16").Select
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Range("A35").Select
End Sub
Déjà, d'entrée tu peux éliminer les "ActiveWindow.Scroll....", cela correspond juste au déplacement effectués pendant la macro.
Voilà ta macro est faite à 50 %.
Maintenant, tu vas chercher à faire une boucle du style "For each cell...", afin de sélectionner les lignes que tu voudras masquer, car Excel, ne peut pas le deviner seul.
Si par exemple tu ne veux garder que les lignes ou les cellules de la colonne C, ne sont pas vides
Tu devras faire une boucle de test style :
For each cell in Range("C2:C100") if ActiveCell="" then ActiveCell.EntireRow.Hidden
End If
Next cell
Puis dans cet exemple, on voit que l'on recopie ce qui reste en feuille 2
Mais il ne faut pas écraser ce qui existe déjà, donc on va devoir faire une autre boucle de Test.
Donc, quand tu as beaucoup de manips à faire, tu lances l'enregistreur, tu fais ta macro, puis tu viens sur ce forum et tu demandes à être aidé, pour finir le code Vba et en l'occurence, faire les boucles de test.
Tout simplement !
@ +
Moa