VBA : Comparaison valeurs 2 colonnes et affichage texte

Résolu/Fermé

Vinthi8teur - 27 janv. 2016 à 20:36
Vinthi8teur - 27 janv. 2016 à 21:34

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 !

A voir également:

VBA : Comparaison valeurs 2 colonnes et affichage texte
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
27 janv. 2016 à 21:26

Bonjour,

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+

Vinthi8teur
27 janv. 2016 à 21:34

Merci Gyrus !
ça marche impeccable, tu gères !
Super forum au passage ;)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters