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
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Aide pour boucle
- Vlc lecture en boucle ✓ - Forum Lecteurs et supports vidéo
- Comment lire en boucle une music sur VLC - Forum Lecteurs et supports vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Livebox 5 redemarre en boucle - Forum Livebox
- Mise à disposition de boucle locale dédiée ✓ - Forum Réseaux sociaux
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
