Remplacer le contenu d'une cellule

Résolu
pierreLH Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
pierreLH Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche à réaliser un programme tout simple sur deux colonnes. Celle de gauche est remplie de 1, et celle de droite est remplie aléatoirement de 0 et de 1. Il y a 3 cellules par colonne.
Le but est de lire les valeurs de la colonne remplie et 0 et de 1, et lorsque la valeur lue est 0, alors la valeur ce la cellule de la colonne 1 devient 0 aussi.
Cela donnerait:
1 0
1 1 =====>
1 0

0 0
1 1
0 0

J'ai codé ceci, mais ca ne marche pas, erreur 1004... Je ne comprends pas, pouvez-vous m'aider s'il vous plait?

Dim i As Integer
i = 0
Do Until i = 3
i = i + 1
If ActiveSheet.Range("Bi").Value = 0 Then ActiveSheet.Range("Ai").Value = 0
Loop

Merci et bonnes fêtes!

1 réponse

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

If ActiveSheet.Range("B" & i).Value = 0 Then ActiveSheet.Range("A" & i).Value = 0

Michel
1
pierreLH Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Michel, ca marche!
0