RECHECHER V

[Hlawson]

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 !

 

[job75]

Bonjour Hlawson,

Joignez votre fichier, sans données confidentielles, merci.

A+

 

[Staple1600]

Bonjour le fil, Hlawson, job75

job75
Pour info
Tu trouveras le fichier dans cet autre fil...

https://www.excel-downloads.com/threads/affichage.20031008/#post-20229037

 

[job75]

Bonjour JM,

Le fichier a dû changer, pas de TxtCode ni de CbCivilite.

A+

 

[Hlawson]

Je vérifie alors toute mes excuse, un débutant c'est difficile

 

[job75]

un débutant c'est difficile

Mais c'est pas si fragile, on le laisse pas tomber

 

[Hlawson]

je vous remercie infiniment pour votre aide précieuse. Voici ma préoccupation j'ai un userform1 dans l'Userform des champs de sélections et des champs qui jouent d'autres rôle, mais mon problème est que je veux avoir une programmation via VBA qui va me créer des numérotation dans ma base de donné.... c'est-à-dire C19-0001,C19-0002,C19-0003... et lorsque j'ouvre mon userform ou mon formulaire, je dois avoir la numération qui n'est pas inscrire dans ma base de donnée dans ma listBox1.