Boucle colonne Msgbox

Bonjour,

Je voudrai effectuer le code suivant pour toute ma colonne E, et je bug un petit peu pour trouver le bon code

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E3") = "Client OVS" Then MsgBox ("Veuillez rentrer un n° de compte client")
If Range("E3") = "Client GT" Then MsgBox ("Veuillez rentrer un n° de compte client")
If Range("E3") = "Client Groupe" Then MsgBox ("Veuillez rentrer un n° de compte client")

End Sub

Ainsi, si mon client choisi dans la liste déroulante de mon excel un des trois choix (client ovs, client gt ou client groupe) la message box apparaîtra.

Ca marche très bien pour la première ligne, mais il me faut la même chose sur tout le fichier

Je vous remercie de votre aide !!

Cdt

Bonjour,

Avec un InputBox, la saisie du numéro de client peut être immédiate.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        If Target = "Client OVS" Or Target = "Client GT" Or Target = "Client Groupe" Then
            Cells(Target.Row, 6) = InputBox("Veuillez rentrer un n° de compte client")
        End If
    End If
End Sub

En effet, je n'avais pas pensé à ça .. Merci bcp !!!!

Bonne journée !