Remplacer le contenu d'une cellule [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
dimanche 21 décembre 2014
Statut
Membre
Dernière intervention
18 janvier 2016
-
Messages postés
11
Date d'inscription
dimanche 21 décembre 2014
Statut
Membre
Dernière intervention
18 janvier 2016
-
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

Messages postés
16315
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
30 novembre 2020
3 082
Bonjour

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

Michel
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
11
Date d'inscription
dimanche 21 décembre 2014
Statut
Membre
Dernière intervention
18 janvier 2016

Merci Michel, ca marche!