Aide pour boucle
zef
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
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
