RechercheV if ... else

Bonjour Thierry,

Elle n'est pas claire ta question. Tu saisies tes données dans les textbox de ton formulaire ? Que vient faire le combobox
dans l'énoncé de ta question ? La valeur que tu dois rechercher le doublon est inscrit où ?

Tu peux toujours essayé un code du genre :

Tu adaptes le nom de la feuille selon ton application.
Tu peux choisir un événement du Contrôle pour déclencher cette macro.


'------------------------
Sub Doublons()

Dim LaChaine As String
Dim A As Integer
LaChaine = "la valeur à chercher"

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With

A = Application.CountIf(Rg, LaChaine)
If A > 0 Then
MsgBox "Cette valeur existe déjà " & A & " fois."
End If

End Sub
'------------------------


Salutations!


"ThierryGolo" <nospam-ThierryGolo@wanadoo.fr> a écrit dans le message de news:e3x64JzaDHA.1644@TK2MSFTNGP10.phx.gbl...
B'soir à tou(te)s les Excellent(e)s

Je renvois une 2ème bouteille à l'amer car je ne vois pas ma précédente
question à l'horizon...

Quelqu'un aurait-il une procedure a adapter pour une rechercheV
Voilà j'ai une base A1:G300.
Debut de la procedure j'insére une ligne 2:2
Dans un UserForm je saisis un nouvel enregistrement qui garnira mes A2, B2,
C2 etc...
Dans le premier combobox si le numéro saisie correspond déjà a un
enregistrement en A:A dés que le focus change un msgbox m'informe et la
procedure s'arrête. Sinon je peux continuer de renseigner les 6 autres
combobox

Si vous saviez comme je vous aime ...


--
ThierryGolo
Ce n'est pas parceque l'on à rien à dire ...
...qu'on doit rien dire... et réciproquement