Bonjour le forum,
Voila, j'ai un soucis que je n'arrive pas à règler.
Je dois renvoyer des données en face d'un nom dans une liste via un TextBox contenu dans un UserForm
Pour la gestion des erreurs, au cas où le nom n'existerait pas dans la liste, j'ai saisi le code suivant :
'déclaration des variables
Dim Nom As String
Dim NFeuil As String
Nom = TextBox2.Value
NFeuil = TextBox1.Value
'boucle
For N = 3 To 50
If Nom <> Sheets(NFeuil).Range("E" & N).Value Then
MsgBox "Ce NOM n'existe pas !!", vbCritical, "ERREUR !!"
With TextBox2
.Value = ""
.SetFocus
End With
Exit Sub
End If
Next N
Le problème est qu'il me renvoie toujours le message d'erreur même quand le nom se trouve bien dans la plage E3:E50. Je ne vois pas ce qui ne va pas car j'ai déjà utilisé ce code pour repérer les doublons (avec = à la place de <>) et ça marche.
Merci d'avance
Voila, j'ai un soucis que je n'arrive pas à règler.
Je dois renvoyer des données en face d'un nom dans une liste via un TextBox contenu dans un UserForm
Pour la gestion des erreurs, au cas où le nom n'existerait pas dans la liste, j'ai saisi le code suivant :
'déclaration des variables
Dim Nom As String
Dim NFeuil As String
Nom = TextBox2.Value
NFeuil = TextBox1.Value
'boucle
For N = 3 To 50
If Nom <> Sheets(NFeuil).Range("E" & N).Value Then
MsgBox "Ce NOM n'existe pas !!", vbCritical, "ERREUR !!"
With TextBox2
.Value = ""
.SetFocus
End With
Exit Sub
End If
Next N
Le problème est qu'il me renvoie toujours le message d'erreur même quand le nom se trouve bien dans la plage E3:E50. Je ne vois pas ce qui ne va pas car j'ai déjà utilisé ce code pour repérer les doublons (avec = à la place de <>) et ça marche.
Merci d'avance