Remplacer le contenu d'une cellule

Résolu/Fermé
pierreLH Messages postés 11 Date d'inscription dimanche 21 décembre 2014 Statut Membre Dernière intervention 18 janvier 2016 - Modifié par pierreLH le 21/12/2014 à 12:02
pierreLH Messages postés 11 Date d'inscription dimanche 21 décembre 2014 Statut Membre Dernière intervention 18 janvier 2016 - 21 déc. 2014 à 13:31
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 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 3 291
Modifié par michel_m le 21/12/2014 à 12:19
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 dimanche 21 décembre 2014 Statut Membre Dernière intervention 18 janvier 2016
21 déc. 2014 à 13:31
Merci Michel, ca marche!
0