Tester 3 conditions
chiken-little
Messages postés
168
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je voudrais savoir dans VB sur excel comment tester 3 condition (par exemple, si le nom a déjà été entré + le prénom déjà entré + le code postal déjà entré)
Comment procéder à ca sur visual basic ?
Merci d'avance pour vos réponses.
Je voudrais savoir dans VB sur excel comment tester 3 condition (par exemple, si le nom a déjà été entré + le prénom déjà entré + le code postal déjà entré)
Comment procéder à ca sur visual basic ?
Merci d'avance pour vos réponses.
4 réponses
-
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
