Discussion :

[capi81]

Salut le forum

Merci d'apprécier le code ci-dessous que j'ai essayé de rédiger:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ComboBox5_AfterUpDate()
    If Application.WorksheetFunction.CountIf(Sheets("LISTE_CLIENT").Range("A2:A" & Sheets("LISTE_CLIENT").Range("A65536").End(xlUp).Row), Fiche_Saisie.ComboBox5.Value) > 0 Then
    If MsgBox("Client inexistant dans la base, voulez-vous le créer ?", vbYesNo, "Demande de confirmation") = vbYes Then
    Fiche_Saisie.Show
End If
End If
End Sub

Je souhaite que si la valeur saisie dans la combobox5 ne figure pas dans la base correspondante, voici ce qui devra se passer:
- un msgbox devra s'affiche et si je clic sur "OUI", il devra m'afficher l'usf Fiche_saisie qui me permettra de créer le nouvel élément.
merci

[Theze]

Bonjour,

Mais ta Form est déjà affichée car tu utilise un de ses objets !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
...Fiche_Saisie.ComboBox5.Value...

Voici un code à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub ComboBox5_AfterUpDate()
 
    With Sheets("LISTE_CLIENT")
 
        If Application.CountIf(.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)), Fiche_Saisie.ComboBox5.Value) = 0 Then
 
            'il est déjà affiché ??? Mais bon, à toi de voir !
            If MsgBox("Client inexistant dans la base, voulez-vous le créer ?", vbYesNo, "Demande de confirmation") = vbYes Then Fiche_Saisie.Show
 
        End If
 
    End With
 
End Sub

CountIf doit retourner 0 si tu veux ajouter un nom inexistant !

Hervé.

[capi81]

Salut Theze

Merci pour votre solution.

CountIf doit retourner 0 si tu veux ajouter un nom inexistant !

Je constate que même si la valeur du combobox existe déjà dans la base l'usf s'affiche.
pourtant s'il existe déjà je dois passer au control suivant ce qui n'est pas le cas.
Merci de revoir

[Theze]

Bonjour,

Bizarre, je viens de tester et ça fonctionne normalement, si inexistant, le message s'affiche et pas dans le cas où il existe. Pour le test, j'affiche un autre formulaire.

Hervé.

[capi81]

Bonjour Theze

Ci-joint mon fichier pour apprécie.
http://cjoint.com/?ECvlgWZHNmo

[Philippe Tulliez]

Bonjour,
Si la valeur cherchée est alphanumérique, il est possible que soit la valeur à chercher (ComboBox5.Value) soit dans la plage de recherche il y ait un ou plusieurs caractères espacés. Ce qui évidemment n'est pas comptabilisé par la formule CountIF