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

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!

Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 décembre 2019
2835
1
Merci
Bonjour

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

Michel

Dire « Merci » 1

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

CCM 62811 internautes nous ont dit merci ce mois-ci

pierreLH
Messages postés
11
Date d'inscription
dimanche 21 décembre 2014
Statut
Membre
Dernière intervention
18 janvier 2016
-
Merci Michel, ca marche!