Boucle avec compteur
Résolu
tchernosplif
Messages postés
714
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
A voir également:
- Boucle avec compteur
- Compteur de contractions - Télécharger - Santé & Bien-être
- Compteur communicant - Guide
- Compteur point fléchette excel - Télécharger - Sport
- Compteur cyber café gratuit - Télécharger - Outils professionnels
- Logiciel remise à zéro compteur imprimante epson gratuit ✓ - Forum Imprimante
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
Merci beaucoup Patrice33740
Patrice