Comparaison et affichage
excelnewb
Messages postés
2
Statut
Membre
-
excelnewb Messages postés 2 Statut Membre -
excelnewb Messages postés 2 Statut Membre -
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
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
2 réponses
-
Bonjour,
Pourquoi veux-tu le faire en VBA (esprit de contradiction et de curiosité) ?
ou
Dim l1 As Integer
l1 = 1
While l1 <= 8
If Cells(l1, 2) = 1 And Cells(l1, 3) = 1 Then
Cells(l1, 4).Value = Cells(l1, 1).Value
End If
l1 = l1 + 1
Wend
Dim l1 As Integer
For l1 = 1 To 8
If Cells(l1, 2) = 1 And Cells(l1, 3) = 1 Then
Cells(l1, 4).Value = Cells(l1, 1).Value
End If
Next l1
Pour la condition, ça peut se gérer en une égalité : Cells(l1, 2) * Cells(l1, 3) = 1
A+ -
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
