boucle sans fin ........ HELP!!!

[redrainette]

bonjour, je n'arrive pas à me sortir d'une boucle que j'ai créée sur VBA ...
je vous envoie mes débuts timide en pièce jointe.....

Si quelqu'un peut m'aider merçi beaucoup!!!!!!

Bises
redrainette

 

[Spitnolan08]

Re : boucle sans fin ........ HELP!!!

Bonjour,

Ne serait ce pas ça que tu cherches à faire :

Sub regABC()
' regroupement des classes ABC et rattachement des datas
Set Plage = Sheets("class A").Range("A2:A" & Sheets("class A").Range("A" & Rows.Count).End(xlUp).Row)

Plage.Copy Destination:=Sheets("dimens").Range("a4")
End sub

sans boucle...
Pour la suite je te laisse faire.

Cordialement

 

[RENAUDER]

Re : boucle sans fin ........ HELP!!!

Bonjour,
Tu as un problème avec le Do While Not IsEmpty(ActiveCell) que j'ai
remplacé par Do While ActiveCell.Value <> ""
et rajoute au début
Application.ScreenUpdating=False
ça ira plus vite