Comparaison et affichage
excelnewb
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
excelnewb Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
excelnewb Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Comparaison et affichage
- Comparaison million milliard - Accueil - Technologies
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Problème affichage fenêtre windows 10 - Guide
- Logiciel comparaison photo gratuit - Télécharger - Photo & Graphisme
2 réponses
Bonjour,
Pourquoi veux-tu le faire en VBA (esprit de contradiction et de curiosité) ?
Pour la condition, ça peut se gérer en une égalité : Cells(l1, 2) * Cells(l1, 3) = 1
A+
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+