Tester 3 conditions

Bonjour

En supposant que les variables nom, prenom, codepostal ont été affectées (par ex : nom = Cells(linom, liprenom) )

If nom<> "" and prenom <> "" and codepostal <> "" then
  ton traitement
else
  message d'erreur
end if

Cdlmnt

Perso, je mettrai un bouton btOK qui va tester les textbox avec quelque chose comme ça

Private Sub btOK_Click()
  If tbNom.Text = "" Or tbPrenom.Text = "" Or tbCodePostal.Text = "" Then
    MsgBox "Données incomplètes"
  Else
    MsgBox "Suite de la procedure"
  End If
End Sub

Cdlmnt

OK, ça change tout
En fait, tu entres tes coordonnées via ton UF, et tu veux tester si le contact existe dans ta BD, c'est ça ?
Il te faut utiliser la méthode Find sur la colonne des noms de ta BD, si le nom existe tu récupères la ligne correspondante et tu testes dans cette ligne si le prénom et le code sont identiques à ceux saisis
Cdlmnt

Re,

Quelque chose dans ce gout là derrière le bouton OK

Private Sub btOK_Click()
Dim nom, prenom, codepostal, celnom As Object
Dim linom As Long
  If tbNom.Text = "" Or tbPrenom.Text = "" Or tbCodePostal.Text = "" Then
    MsgBox "Données incomplètes"
  Else
    nom = tbNom.Text
    prenom = tbPrenom.Text
    codepostal = tbCodePostal.Text
    With ActiveSheet
      Set celnom = Sheets("BD").Columns("A:A").Find(nom, , , xlWhole)
      If celnom Is Nothing Then
        MsgBox nom & "n'est pas dans la BD"
        ' suite du traitement
      Else
        linom = celnom.Row
        If Sheets("BD").Range("B" & linom).Value <> prenom Or Sheets("BD").Range("C" & linom).Value <> codepostal Then
           MsgBox nom & " " & prenom & " " & codepostal & " n'est pas dans la BD"
           ' suite du traitement
        Else
           MsgBox nom & " " & prenom & " " & codepostal & " est déjà dans la BD"
           ' suite du traitement
        End If
      End If
    End With
  End If
End Sub

Cdlmnt