Boucle avec compteur
Résolu
tchernosplif
Messages postés
714
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Une question toute bête mais qui me prend la tête
voici une boucle VBA, si la cellule active=0 passe à la ligne suivante, si la cellule active=1 écrit "toto" dans la cellule d'à côté et passe à la ligne suivante.
Cette opération est répétée 10 fois. Mais ce que je voudrais faire est ajouter un paramètre pour que la boucle se répète suffisament pour écrire 10 fois "toto".
Pourriez-vous m'aider ?
Sub Macro1()
Dim x As Integer
For x = 1 To 10
If ActiveCell.Value = 0 Then
ActiveCell.Offset(1, 0).Select
ElseIf ActiveCell.Value = 1 Then
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "toto"
ActiveCell.Offset(1, -1).Select
End If
Next x
End Sub
Une question toute bête mais qui me prend la tête
voici une boucle VBA, si la cellule active=0 passe à la ligne suivante, si la cellule active=1 écrit "toto" dans la cellule d'à côté et passe à la ligne suivante.
Cette opération est répétée 10 fois. Mais ce que je voudrais faire est ajouter un paramètre pour que la boucle se répète suffisament pour écrire 10 fois "toto".
Pourriez-vous m'aider ?
Sub Macro1()
Dim x As Integer
For x = 1 To 10
If ActiveCell.Value = 0 Then
ActiveCell.Offset(1, 0).Select
ElseIf ActiveCell.Value = 1 Then
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "toto"
ActiveCell.Offset(1, -1).Select
End If
Next x
End Sub
1 réponse
-
Essaies :
Sub Macro1() Dim cel As Range Dim qté As Integer Set cel = ActiveCell Do If cel.Value = 1 Then cel.Offset(0, 1).Formula = "toto" qté = qté + 1 End If Set cel = cel.Offset(1) If cel.Row = ActiveSheet.Rows.Count Then Exit Do 'sécurité qté de 1 insuffisante Loop While qté < 10 cel.Select 'si besoin End Sub
