Aide pour boucle
zef
-
giheller -
giheller -
Bonjour,
quelqu'un peut il me dire pourqoui ma boucle ne fonctionne pas?
Private Sub CommandButton1_Click()
Do While ActiveCell.Value <> ""
Range("a1").Select
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = 7411 Then
Plage.Cells(I).EntireRow.Cut
Range("a10").Select
ActiveSheet.Paste
End If
Loop
ActiveCell.Offset(1, 0).Range("a1").Select
Next
MERCI D AVANCE
quelqu'un peut il me dire pourqoui ma boucle ne fonctionne pas?
Private Sub CommandButton1_Click()
Do While ActiveCell.Value <> ""
Range("a1").Select
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = 7411 Then
Plage.Cells(I).EntireRow.Cut
Range("a10").Select
ActiveSheet.Paste
End If
Loop
ActiveCell.Offset(1, 0).Range("a1").Select
Next
MERCI D AVANCE
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour,
qaund tu exécutes ta macro, tu dois avoir un message d'erreur.
Private Sub CommandButton1_Click()
Do While ActiveCell.Value <> ""
Range("a1").Select
Dim I As Long pourquoi les dim dans la boucle ?
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = 7411 Then
Plage.Cells(I).EntireRow.Cut
Range("a10").Select
ActiveSheet.Paste
End If
Loop je pense que ceci est mal placé la boucle for doit être entièrement incluse dans le while
ActiveCell.Offset(1, 0).Range("a1").Select
Next
