VBA Combobox Résolu

Question

Bonjour, Je viens de commencer le vba et j'ai un petit problème que je n'arrive pas à résoudre au niveau d'un contrôle (combobox) dans un formulaire.

J'ai créé un formulaire de gestion de client où il est possible de voir les fiches clients (rentrées dans un excel) et d'ajouter, supprimer et modifier des clients. Je suis pour l'instant en train de faire l'ajout mais un détail m'empêche de finir ma procédure.

Comment empêcher l'utilisateur de rentrer deux fois un même code client (ma combobox nommée LstCode) ?

J'ai enlevé les doublons et trier ma liste par ordre alphabétique mais quand je rentre un code client qui existe déjà il s'insère tout de même dans l'excel et je voudrais empêcher ça.

Voilà j'espère que j'ai été clair !

Voilà ma pocédure (probablement à raccourcir mais je débute):

Private Sub NouveauClientB_Click()

Dim l As Integer
Dim i As Integer
Dim Cell As Range
Dim bool As Boolean
Set Ws = Worksheets("CLIENTS")

' En appuyant sur ajouter un nouveau client on pose cette question

If MsgBox(Prompt:="Confirmez-vous l'insertion d'un nouveau client ?", Buttons:=vbYesNo, Title:="Confirmation d'ajout") = vbYes Then
l = Ws.Range("a65536").End(xlUp).Row + 1

End If

For Each Cell In Ws.Range("A2:A" & Ws.Range("A65536").End(xlUp).Row)

If Me.Controls("LstCode") = Cell.Value Then
MsgBox "Ce Code est déjà réservé à un client, Veuillez rentrer un autre code."
End If
Next Cell

If Me.Controls("LstCode") <> "" And Me.Controls("TextBox1") <> "" And Me.Controls("TextBox2") <> "" And Me.Controls("TextBox3") <> "" And Me.Controls("TextBox4") <> "" And _
Me.Controls("TextBox5") <> "" And Me.Controls("TextBox6") <> "" And Me.Controls("TextBox7") <> "" And _
Me.Controls("TextBox8") <> "" And Me.Controls("TextBox9") <> "" Then

Range("A" & l).Value = LstCode
Range("B" & l).Value = TextBox1
Range("C" & l).Value = TextBox2
Range("D" & l).Value = TextBox3
Range("E" & l).Value = TextBox4
Range("F" & l).Value = TextBox5
Range("G" & l).Value = TextBox6
Range("H" & l).Value = TextBox7
Range("I" & l).Value = TextBox8
Range("J" & l).Value = TextBox9

MsgBox "Le nouveau Client a été ajouté à la feuille CLIENTS"
End If

If Me.Controls("LstCode") = "" Then
MsgBox " Merci de remplir le code client", vbExclamation
End If

If Me.Controls("TextBox1") = "" Then
MsgBox "Merci de remplir le champ SOCIETE", vbExclamation
End If

If Me.Controls("TextBox2") = "" Then
MsgBox "Merci de remplir le champ Contact", vbExclamation
End If

If Me.Controls("TextBox3") = "" Then
MsgBox "Merci de remplir le champ Fonction", vbExclamation
End If

If Me.Controls("TextBox4") = "" Then
MsgBox "Merci de remplir le champ Adresse", vbExclamation
End If

If Me.Controls("TextBox5") = "" Then
MsgBox "Merci de remplir le champ Ville", vbExclamation
End If

If Me.Controls("TextBox6") = "" Then
MsgBox "Merci de remplir le champ Code Postal", vbExclamation
End If

If Me.Controls("TextBox7") = "" Then
MsgBox "Merci de remplir le champ Pays", vbExclamation
End If

If Me.Controls("TextBox8") = "" Then
MsgBox "Merci de remplir le champ Téléphone", vbExclamation
End If

If Me.Controls("TextBox9") = "" Then
MsgBox "Merci de remplir le champ Email", vbExclamation
End If

End Sub

Afficher la suite

hglp · Answer

Voici une image de mon excel

PlacageGranby · Answer

Bonjour,

Aussi, je ne suis pas trop sur de l'utilisation des IF.

IF  question = oui  then
 on fait le code
else
 on ne fait rien
end if

Tu met le code après le end if,  donc il est toujours exécuté.
La solution est soit d'entrer le code à l'intérieur de ton IF,  ou de rajouter un exit sub pour interrompre l'exécution de cette macro.

If MsgBox(Prompt:="Confirmez-vous l'insertion d'un nouveau client ?", Buttons:=vbYesNo, Title:="Confirmation d'ajout") = vbYes Then
     l = Ws.Range("a65536").End(xlUp).Row + 1
Else
     exit sub  'exit sub va empêcher le reste de la macor de s'exécuter si on click non
End If

For Each Cell In Ws.Range("A2:A" & Ws.Range("A65536").End(xlUp).Row)
     If Me.Controls("LstCode") = Cell.Value Then
          MsgBox "Ce Code est déjà réservé à un client, Veuillez rentrer un autre code."
          exit sub  'Exit sub va empêcher le reste de la macro de s'exécuter. si le code est déja réservé
     End If
Next Cell

hglp · Answer

Il ne me reste qu'un détail à régler pour finaliser mon application. Cela concerne la procédure pour supprimer un client. Je voudrais pouvoir supprimer un client (donc toute les informations de sa ligne dans l'excel) à partir de la sélection de son code client dans la combobox.

J'ai essayé ce code sans succès: Y a t-il un autre méthode ?

Private Sub CommandButton3_Click()

Dim Cell As Range

If MsgBox("Confirmez-vous ... Du client ?", vbYesNo) = vbYes Then

Set Cell = Plage.Find(LstCode.Value)
Cell.EntireRow.Delete

LstCode.RemoveItem LstCode.ListIndex
LstCode.Value= ""

Set Plage = Range ([A1], [A65536].End(x1Up))

End If
End Sub

VBA Combobox

3 réponses

Votre réponse

Discussions similaires