probleme de procedure evenementielle

[dj.run]

re à tous,

j'aurai besoin d'une petite explication et aussi peut etre d'une solution,

je vais essayer d'etre clair dans mes explications :

j'ai une procedure evenementielle qui m'ouvre un usf si un code (client) saisi, n'existe pas dans la liste des clients .

je vous joint la procedure :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim L As Integer, cellule As Range
L = Sheets("credit").Range("d175").End(xlUp).Row
For Each cellule In Range("f4:f" & L)
If cellule.Value = "" Then
If Range("d4") <> "" Then
Usf1.Show
End If
End If
Next cellule

End Sub

je saisie les codes clients dans la colonne D et si le client existe j'ai son nom qui s'affiche dans la colonne F.

si il n'existe pas j'ai un blanc dans F et mon usf qui s'ouvre pour creer le client.

le probleme est le suivant mon tableau part de la ligne 4 jusqu'a la 175
si je saisie un code en commençant en D4, s'il n'existe pas l'usf s'ouvre .
mais si par exemple je saisie un code en D16 (et rien au dessus), il ne se passe rien .

comment faire pour que où que je saisisse le code dans la colonne D mon usf s'affiche ?

merci pour votre aide

 

[@Christophe@]

Re

Dans ta feuille Crédit mets plutôt le code suivant

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("D4175")) Is Nothing Then
If Target.Offset(0, 2).Value = "" Then
Usf1.Show
End If
End If


Voila

@Christophe@

 

[dj.run]

re @Christophe@ et le autres,

Super encore une fois, c'est plus court et ça marche aussi tres bien meme mieux .

merci encore

dj.run

 

[@Christophe@]

Re


Thanks Dj.run

Bonne journée


@Christophe@