Bonsoir,
Je n'arrive pas à comprendre ce qui cloche dans mon code qui est supposé vérifier la présence, de ce qui est renseigné dans une textbox, dans une plage de donnée.
Si la valeur existe, alors le code doit se poursuivre ; mais si la valeur n'existe pas, alors il doit me l'indiquer.
Le problème c'est qu'il m'indique que la valeur est absente, même lorsque ce n'est pas le cas :/
Voici le code en question :
Dim re As Worksheet, co As Worksheet
Private Sub TextBox1_Change()
n = TextBox1.Value
End Sub
Private Sub CommandButton1_Click()
Set re = Worksheets("Regroupement")
Set co = Worksheets("Correspondances")
lrre = re.Cells(Rows.Count, 1).End(xlUp).Row
Dim vari As Range, plge As Range
'Tester mes variables
'Cells(2, 2).Value = n
'Cells(2, 2).Value = lrre
Set plge = re.Range("B1:B" & lrre)
'Worksheets("Regroupement").Range(Cells(2, 2), Cells(lrre, 2))
For Each vari In plge 'plge '("B2:B150") '
If vari.Value <> n Then MsgBox "L'étude recherchée n'existe pas"
Exit Sub
'End If
Next
Col = "B"
NumLig = 1
With Sheets("Regroupement")
NbrLig = lrre
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = n Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("Correspondances").Cells(NumLig, 1).Insert Shift:=xlDown
End If
Next
End With
Columns(4).Insert
Cells(1, 4).Value = "Correspondance"
End Sub
Private Sub Userform_activate()
Me.TextBox1.Value = n
End Sub
J'ai vérifié ce que je pouvais, notamment la valeur des variables ; tout est bon...
J'ai fait un petit document Excel qui reprend cette partie du code pour que vous puissiez y voir peut-être plus clair.
Bonne soirée !
Ça n'est certainement pas grand chose ! Si je trouve une solution d'ici là je posterai à la suite du post.
Merci de votre attention.