comparaison et affichage Fermé

Question

Bonjour, 

			
a	1	1	
b	1	0	
c	0	1	
d	0	1	
e	1	1	
f	1	0	
g	0	1	
h	1	1	


Étant débutant en VBA j'aimerais savoir comment créer une macro qui puisse:

-comparer les valeurs des colonnes 2 et 3
-afficher la valeur de la colonne 1 dans la 4 afficher si les valeurs sont toutes les deux égales à 1

tel que ici: 

			
a	1	1	a
b	1	0	e
c	0	1	h
d	0	1	
e	1	1	
f	1	0	
g	0	1	
h	1	1	

Voila ou j'en suis :

Dim l1 As Integer


l1 = 1


While l1 <= 8

If Cells(l1, 2) = Cells(l1, 3) = 1 Then

Cells(l1, 4).Select

Selection.Value = Cells(l1, 1).Value

l1 = l1 + 1

Else

l1 = l1 + 1

End If


Wend

Merci d'avance

Zoul67 · Answer

Bonjour,

Pourquoi veux-tu le faire en VBA (esprit de contradiction et de curiosité) ?
Dim l1 As Integerl1 = 1While l1 <= 8If Cells(l1, 2) = 1 And Cells(l1, 3) = 1 Then Cells(l1, 4).Value = Cells(l1, 1).ValueEnd Ifl1 = l1 + 1Wend 
ou
Dim l1 As IntegerFor l1 = 1 To 8If Cells(l1, 2) = 1 And Cells(l1, 3) = 1 Then Cells(l1, 4).Value = Cells(l1, 1).ValueEnd IfNext l1 

Pour la condition, ça peut se gérer en une égalité : Cells(l1, 2) * Cells(l1, 3) = 1

A+

excelnewb · Answer

Plus par curiosité ;) et aussi parce que j'ai simplifié le problème pour avoir une réponse plus rapide, mais le problème est un peu plus complexe !!

cela dit tu m'as aidé 

Je t'en remercie

Comparaison et affichage

2 réponses

Discussions similaires