VBA : Comparaison valeurs 2 colonnes et affichage texte
Résolu
Vinthi8teur
-
Vinthi8teur -
Vinthi8teur -
Bonjour à tous,
J'ai un problème de bureautique....
En fait j'aimerai réaliser une macro permettant de comparer les valeurs de la colonne B (à partir de la ligne 5) avec celles de la colonne F (à partir de la ligne 5).
- Si les valeurs sont égales, cela renvoi un "OUI" dans la colonne K (à partir de la ligne 5).
- Si les valeurs sont différentes, cela renvoi un "NON" dans la colonne K (à partir de la ligne 5).
et également : en cas de cellule vide en colonne B ou F, afficher une cellule vide en colonne K.
J'espère avoir été suffisamment clair ^^.
J'ai essayé de coder comme ceci, mais mes capacités sont limitées ;)
Private Sub Résultat_Click()
If Range("B5").Value <> Range("F5").Value Then
Range("K5").Value = "NON"
Else
Range("K5").Value = "OUI"
End If
End Sub
Merci d'avance !
J'ai un problème de bureautique....
En fait j'aimerai réaliser une macro permettant de comparer les valeurs de la colonne B (à partir de la ligne 5) avec celles de la colonne F (à partir de la ligne 5).
- Si les valeurs sont égales, cela renvoi un "OUI" dans la colonne K (à partir de la ligne 5).
- Si les valeurs sont différentes, cela renvoi un "NON" dans la colonne K (à partir de la ligne 5).
et également : en cas de cellule vide en colonne B ou F, afficher une cellule vide en colonne K.
J'espère avoir été suffisamment clair ^^.
J'ai essayé de coder comme ceci, mais mes capacités sont limitées ;)
Private Sub Résultat_Click()
If Range("B5").Value <> Range("F5").Value Then
Range("K5").Value = "NON"
Else
Range("K5").Value = "OUI"
End If
End Sub
Merci d'avance !
A voir également:
- VBA : Comparaison valeurs 2 colonnes et affichage texte
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
1 réponse
Bonjour,
Essaie comme cela
A+
Essaie comme cela
Sub Résultat()
Dim DerLig As Long, Ligne As Long
With Worksheets("Feuil1")
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
For Ligne = 5 To DerLig
If Range("B" & Ligne).Value <> "" And Range("F" & Ligne).Value <> "" Then
If Range("B" & Ligne).Value = Range("F" & Ligne).Value Then
Range("K" & Ligne).Value = "OUI"
Else
Range("K" & Ligne).Value = "NON"
End If
Else
Range("K" & Ligne).Value = ""
End If
Next Ligne
End With
End Sub
A+
ça marche impeccable, tu gères !
Super forum au passage ;)