Boucle avec compteur
Résolu
tchernosplif
Messages postés
600
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 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
A voir également:
- Boucle avec compteur
- Compteur électrique - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Compteur point fléchette excel - Télécharger - Sport
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
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