Macro de contrôle conditionnelle

[Nicolas18]

Bonsoir,

Je recherche une macro qui ajoute 1 à la cellule adjacente de droite si :
- la cellule de gauche contient un chiffre
- la cellule de droite est égale a zéro

Je souhaite ensuite étendre la macro à plusieurs cellules

Exemple en pj

Merci beaucoup d'avance

 

[néné06]

Re : Macro de contrôle conditionnelle

Bonsoir Nicolas18

Regardes ce petit exemple et dis nous ?
Cordialement

 

[Nicolas18]

Re : Macro de contrôle conditionnelle

je viens de tester c'est super, merci beaucoup!!!

 

[Nicolas18]

Re : Macro de contrôle conditionnelle

Juste un détail, je voudrais l'appliquer pour plusieurs séries de cellules, pouvez vous me donner l’exemple pour 2 et je suivrai la logique de recopiage après?
Les deux premières séries vont de c6/d15 et h6/i15

Merci beaucoup

 

[néné06]

Re : Macro de contrôle conditionnelle

Je ne saisis pas ta question?
Tout est dans le code VBA
Il suffit de changer les départs dans cells(Numéro de ligne,Numero de colonne)

Voici la Macro
Sub Bouton1_Cliquer()
fin = Sheets("Feuil3").Range("B2").End(xlDown).Row 'donne le num de ligne de la derniere cellule ecrite en col B
fin1 = Sheets("Feuil3").Range("C2").End(xlDown).Row 'donne le num de ligne de la derniere cellule ecrite en col C
i = 1
Do Until i > fin
If Cells(i, 2) = 0 Then
Cells(i, 6) = 0
Else
Cells(i, 6) = Cells(i, 2)
End If
i = i + 1
Loop
i = 1
Do Until i > fin1
If Cells(i, 3) = 0 Then
Cells(i, 7) = 1
Else
Cells(i, 7) = Cells(i, 3)
End If
i = i + 1
Loop
End Sub

A+

 

[Nicolas18]

Re : Macro de contrôle conditionnelle

je cherche a rajouter la condition si la cellule est vide, elle reste vide mais la macro me signal l'erreur "do without loop"
pourtant je suis le plan de la macro!

 

[Pierrot93]

Re : Macro de contrôle conditionnelle

Bonjour,

elle reste vide mais la macro me signal l'erreur "do without loop"
pourtant je suis le plan de la macro!

sur quel code ? celui de Néné paraît correct...

bonne journée
@+

 

[néné06]

Re : Macro de contrôle conditionnelle

Bonjour Nicolas18,Bonjour Pierrot93

Si j'ai bien compris, regardes cette version et regardes la modif du code.

A+