Msbox conditionnel

Bonjour.

J'ai une macro sur une feuille pour valider des données.

Je veux que si la valeur de colonne F = autre que la valeur de la colonne G soit non vide sinon qu'il y ai un message d'erreur.

Le message d'erreur devrait, idéalement, apparaître une seule fois même s'il y a plusieurs erreurs.

Voici mon code:

Sub validation()

'************validation si autre dans origine******************

Dim V As String

V = "Autre" 'Défintion de la valeur
For t = 21 To 42 'Définition du nombre de ligne

    If Range("F", t).Value = V And Range("G", t).Value = "" Then MsgBox "sdfsdfsdf"

 Next t
End Sub

Ca ne fonctionne pas :)

Je ne dois pas être loin de la vérité mais je suis bloqué.

Merci de votre support

Bonjour,

Il est préférable de préciser le message d'erreur et/ou l'anomalie constatée plutôt qu'un laconique Ca ne fonctionne pas qui ne donne aucune indication

Un essai :

Sub validation()

'************validation si autre dans origine******************
Dim V As String, Trouve As Boolean
V = "Autre" 'Défintion de la valeur
For t = 21 To 42
    If Range("F" & t).Value = V And Range("G" & t).Value = "" Then
        Trouve = True
        Exit For
    End If
Next
If Trouve Then
    MsgBox "sdfsdfsdf"
Else
    MsgBox "Pas d'erreur"
End If
End Sub

A+

Merci Algoplus