Vérifier si code est déjà saisi

Bonjour chers tous

je voudrais tester si mon code patient saisi en Textbox1 existe dans ma base.

je procède comme suit mais une erreur de syntaxe me reviens. Pouvez vous inspecter ma procédure et me corriger ?

Merci.

With Sheets("Prophylaxie")
    If Application.WorksheetFunction.CountIf(.Range("A:A" & .Range("A" & Rows.Count).End(xlUp).Row + 1), TextBox1.Text) > 0 Then
       MsgBox "Le patient " & TextBox1 & " est deja inscrit en Prophylaxie", 64
       TextBox1 = ""
       Exit Sub
    End If
 End With

Bonjour KTM, le forum,

A priori, une petite erreur de syntaxe ici

.Range("A:A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)

Si tes données commence à la ligne 2 jusqu'à la dernière ligne utilisée de la colonne A :

.Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row) 

Sur toute la colonne A:

.Range("A:A")

Cordialement,

xorsankukai a écrit :

Bonjour KTM, le forum,

A priori, une petite erreur de syntaxe ici

.Range("A:A" & .Range("A" & Rows.Count).End(xlUp).Row + 1)

Si tes données commence à la ligne 2 jusqu'à la dernière ligne utilisée de la colonne A :

.Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row) 

Sur toute la colonne A:

.Range("A:A")

1classeur1.xlsm (21.04 Ko)

1classeur2.xlsm (20.24 Ko)

Cordialement,

Merci mon champion