Boucle avec filtre

[lepigoennier]

Bonjour,

J'aimerais savoir si quelqu'un peut m'aider pour faire une boucle avec le code suivant. Lorsque je l'exécute, il semble faire une boucle infinie. Je dois copier le nom d'entreprise dans la feuille Courriel, filtrer dans la feuille Données sous la colonne Nom d'entreprise et recopier le résultat du filtre la colonne item seulement dans la feuille Courriel.

Merci


Sheets("Courriel").Select

Do While Not (IsEmpty(ActiveCell))
Range("B2").Select
selection.Copy
Sheets("Données").Select
ActiveSheet.Range("$A$1:$R$9680").AutoFilter Field:=8, Criteria1:= _
" " ' ici je dois coller la cellule copiée
Columns("C:C").Select
Application.CutCopyMode = False
selection.Copy
Sheets("Courriel").Select
Range("E2").Select
Sheets("Données").Select
Range("C1:C9692").Select
Application.CutCopyMode = False
selection.Copy
Sheets("Courriel").Select
selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Loop

 

[titiborregan5]

Re : Boucle avec filtre

Bonjour,

je n'ai rien compris à votre demande...
Pourquoi le fichier excel n'a t il pas le code macro indiqué dans le message??

 

[lepigoennier]

Re : Boucle avec filtre

Voici le fichier avec la macro