Salut a tous et a toute!
Je suis débutant!
J'ai besoin d'aide, voici que j'ai une base de donnée et dans la colonne A = C19-0001...
Je veux a partir de ma Txtcode effecutée la recherche.... via le C19-0001
VOICI LE CODE QUE J'AI FAIS....
cela ne fonctionne pas a cause de "Clng") qui ne prend pas en compte les Lettre... quelque peux m'aide a me trouvé une solution........
Private Sub TxtCode_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("BD_CAM").Range("A:A"), Me.TxtCode.Value) = 0 Then
MsgBox "Ce numéro du participant n'existe pas! Veuillez resaisir un nouveau code", vbInformation + vbOKOnly, "Participant non trouvé"
End If
With Me
.CbCivilite = Application.WorksheetFunction.VLookup(CLng(Me.TxtCode), Sheets("BD_CAM").Range("BD_BASE"), 2, 0)
End With
End Sub
Merci infiniment !
Je suis débutant!
J'ai besoin d'aide, voici que j'ai une base de donnée et dans la colonne A = C19-0001...
Je veux a partir de ma Txtcode effecutée la recherche.... via le C19-0001
VOICI LE CODE QUE J'AI FAIS....
cela ne fonctionne pas a cause de "Clng") qui ne prend pas en compte les Lettre... quelque peux m'aide a me trouvé une solution........
Private Sub TxtCode_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("BD_CAM").Range("A:A"), Me.TxtCode.Value) = 0 Then
MsgBox "Ce numéro du participant n'existe pas! Veuillez resaisir un nouveau code", vbInformation + vbOKOnly, "Participant non trouvé"
End If
With Me
.CbCivilite = Application.WorksheetFunction.VLookup(CLng(Me.TxtCode), Sheets("BD_CAM").Range("BD_BASE"), 2, 0)
End With
End Sub
Merci infiniment !
