Problème fonction if then else

[jofdm]

Je n'arrive pas à bien placer le "else"
Sur le fichier joint, si on recherche ALPHA, on a un message d'erreur ce qui ne devrait pas être le cas
Merci d'avance pour votre aide

 

[pierrejean]

Re : Problème fonction if then else

bonsoir jofdm

vois si cela va mieux


edit

en fait il ya même plus simple!!!

Private Sub CommandButton1_Click()
If UserForm2.TextBox1.Text = "" Then
    MsgBox ("prem Requête non trouvée")
    Exit Sub
End If
Dim x As Long
Dim FL1 As Worksheet
    Set FL1 = Worksheets("MSDS MP")
    For x = 1 To FL1.Range("A65535").End(xlUp).Row
      If UCase(FL1.Range("A" & x)) Like "*" & UCase(UserForm2.TextBox1.Value) & "*" Then
          LigneActive = x
          UserForm2.TextBox1.Value = FL1.Cells(LigneActive, "A").Value
          UserForm2.TextBox2.Value = FL1.Cells(LigneActive, "V").Value
          Exit Sub
      End If
    Next
      MsgBox ("Requête non trouvée")
End Sub

c'etait surtout la place du next qui etait defectueuse

 

[skoobi]

Re : Problème fonction if then else

Bonsoir jofdm,

essaye ceci.

A+

Arf! pierrejean plus rapide!!!

 

[jofdm]

Re : Problème fonction if then else

Merci à vous 2, votre aide va m'être précieuse.
J'ai commencé à toucher au Visual Basic il y a 2 jours et j'essaie de décortiquer les exemples de code que je trouve pour les appliquer à mon projet.

 

[jofdm]

Re : Problème fonction if then else

Question subsidiaire : si je ne tape que la première lettre de chaque entrée, il trouve la correspondance, sauf avec le e où il me renvoie BETA ... Une explication ?

 

[skoobi]

Re : Problème fonction if then else

Re,
c'est parce que dans ta macro tu fais cette recherche:
"like *e*", càd que dès que la macro trouve "e" à n'importe qu'elle position la condition est rempli.
Si tu veux faire une recherche dès les 1er caractères enlève la 1ere "*":

       If UCase(FL1.Range("A" & x).Value) Like ([COLOR="Red"]"*" & [/COLOR]UCase(TextBox1.Value) & "*") Then