XL 2021 Combobox vide

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Did25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Did25

XLDnaute Occasionnel
Bonjour le Forum ,j'utilise une formule dans un Userform mais je souhaiterais qu'elle se lance que si les 2 combobox soit renseignées ;Merci de votre aide

VB: 
Private Sub CommandButton6_Click()
  With Worksheets("Calcul5").Activate
  Range("G26").Select
  Range("G26").Value = ComboBox1.Value
  Range("E26").Select
  Range("E26").Value = ComboBox2.Value
  TextBox1.Value = Range("B27").Value
  End With
  With Worksheets("Cajc").Activate
  Range("A1").Select
  End With
  If MsgBox("Année de début de planning : " & ComboBox1 & " ,votre date de fin de planning : " & TextBox1 & " ,votre choix d'équipe  : " & ComboBox2 & " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", vbYesNo + vbQuestion, "Application des valeurs ") = vbNo Then
    Unload Me
    Exit Sub
    End If
End Sub
 
Solution
fanch55
Bonjour,
Si j'ai bien compris la demande:
VB: 
Private Sub CommandButton6_Click()
    With Worksheets("Calcul5")
        Select Case True
        Case ComboBox1 = "": MsgBox "Le Combo1 doit être renseigné": Exit Sub
        Case ComboBox2 = "": MsgBox "Le Combo2 doit être renseigné": Exit Sub
        Case Else
            .Activate
            Range("G26").Value = ComboBox1.Value
            Range("E26").Value = ComboBox2.Value
            TextBox1.Value = Range("B27").Value
            Worksheets("Cajc").Activate: Range("A1").Select
            If MsgBox("Année de début de planning : " & ComboBox1 _
             & " ,votre date de fin de planning : " & TextBox1 _
             & " ,votre choix d'équipe  : " & ComboBox2 _
             & "...
Trier par date Trier par votes
Did25 à dit:
Bonjour le Forum ,j'utilise une formule dans un Userform mais je souhaiterais qu'elle se lance que si les 2 combobox soit renseignées ;Merci de votre aide

VB: 
Private Sub CommandButton6_Click()
  With Worksheets("Calcul5").Activate
  Range("G26").Select
  Range("G26").Value = ComboBox1.Value
  Range("E26").Select
  Range("E26").Value = ComboBox2.Value
  TextBox1.Value = Range("B27").Value
  End With
  With Worksheets("Cajc").Activate
  Range("A1").Select
  End With
  If MsgBox("Année de début de planning : " & ComboBox1 & " ,votre date de fin de planning : " & TextBox1 & " ,votre choix d'équipe  : " & ComboBox2 & " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", vbYesNo + vbQuestion, "Application des valeurs ") = vbNo Then
    Unload Me
    Exit Sub
    End If
End Sub
Cliquez pour agrandir...
Bonjour,
Il suffit d'ajouter en début de procédure un test sur la valeur des ComboBox qui provoque la sortie (Exit Sub) dans le cas où au moins une de deux combos est vide.
Cordialement,
 
Vote positif 0 Vote négatif
Gégé-45550 à dit:
Bonjour,
Il suffit d'ajouter en début de procédure un test sur la valeur des ComboBox qui provoque la sortie (Exit Sub) dans le cas où au moins une de deux combos est vide.
Cordialement,
Cliquez pour agrandir...
Bonjour Gégé-45550 , merci de votre explication mais je ne maitrise pas assez pour intégré la procédure de test ,j'ai fait des essais et des recherches mais pas vraiment concluant .
 
Vote positif 0 Vote négatif
Bonjour Did25

Quand on se lance dans le développement, on apprend les bases avant 🙄
VBA = développement objet

Voilà le code modifié
VB: 
Private Sub CommandButton6_Click()
  With Worksheets("Calcul5")
    .Range("G26").Value = Me.Combobox1.Value
    .Range("E26").Value = Me.Combobox2.Value
    If Me.Combobox1 <> "" And Me.Combobox2 <> "" Then
      Me.TextBox1.Value = .Range("B27").Value
    End If
  End With
  With Worksheets("Cajc")
    .Activate
    .Range("A1").Select
  End With
  If MsgBox("Année de début de planning : " & Combobox1 & " ,votre date de fin de planning : " & TextBox1 & " ,votre choix d'équipe  : " & Combobox2 & " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", vbYesNo + vbQuestion, "Application des valeurs ") = vbNo Then
    Unload Me
    Exit Sub
  End If
End Sub

A+
 
Vote positif 0 Vote négatif
wDog66 à dit:
Bonjour Did25

Quand on se lance dans le développement, on apprend les bases avant 🙄
VBA = développement objet

Voilà le code modifié
VB: 
Private Sub CommandButton6_Click()
  With Worksheets("Calcul5")
    .Range("G26").Value = Me.Combobox1.Value
    .Range("E26").Value = Me.Combobox2.Value
    If Me.Combobox1 <> "" And Me.Combobox2 <> "" Then
      Me.TextBox1.Value = .Range("B27").Value
    End If
  End With
  With Worksheets("Cajc")
    .Activate
    .Range("A1").Select
  End With
  If MsgBox("Année de début de planning : " & Combobox1 & " ,votre date de fin de planning : " & TextBox1 & " ,votre choix d'équipe  : " & Combobox2 & " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", vbYesNo + vbQuestion, "Application des valeurs ") = vbNo Then
    Unload Me
    Exit Sub
  End If
End Sub

A+
Cliquez pour agrandir...
Bonjour wDog66 , merci de votre aide ,j'ai testé votre code et je constate que la procédure se lance quand même
 
Vote positif 0 Vote négatif
Bonjour,
Si j'ai bien compris la demande:
VB: 
Private Sub CommandButton6_Click()
    With Worksheets("Calcul5")
        Select Case True
        Case ComboBox1 = "": MsgBox "Le Combo1 doit être renseigné": Exit Sub
        Case ComboBox2 = "": MsgBox "Le Combo2 doit être renseigné": Exit Sub
        Case Else
            .Activate
            Range("G26").Value = ComboBox1.Value
            Range("E26").Value = ComboBox2.Value
            TextBox1.Value = Range("B27").Value
            Worksheets("Cajc").Activate: Range("A1").Select
            If MsgBox("Année de début de planning : " & ComboBox1 _
             & " ,votre date de fin de planning : " & TextBox1 _
             & " ,votre choix d'équipe  : " & ComboBox2 _
             & " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", _
             vbYesNo + vbQuestion, "Application des valeurs ") _
             = vbNo Then
                Unload Me
                Exit Sub
              End If
        End Select
    End With
End Sub
 
Vote positif 0 Vote négatif
Solution
wDog66 à dit:
Re,
C'est ce que j'ai fait il me semble... petit rappel de votre demande


Donc exprimez votre besoin correctement, la langue française est riche 🙄
Cliquez pour agrandir...
Je me suis peut-être mal exprimé ,dans un formulaire ,j'utilise un bouton qui inscrit des données choisies dans 2 combobox sur une feuille de mon fichier.Je souhaiterais que la procédure ne fonctionne que si les 2 champs soient renseignés ,sinon est-ce possible de prévoir une MsgBox pour signifier que les champs sont vides .
 
Vote positif 0 Vote négatif
bonjour
quand on doit tester deux controls éventuellement vide on n'utilise pas "And" mais Or
car l'un va a l'encontre de lautre
VB: 
Private Sub CommandButton6_Click()
    If Me.Combobox1 = "" Or Me.Combobox2 = "" Then MsgBox " veuilles choisir dans les combo (1 et 2)": Exit Sub
    With Worksheets("Calcul5")
        .Range("G26").Value = Me.Combobox1.Value
        .Range("E26").Value = Me.Combobox2.Value
        Me.TextBox1.Value = .Range("B27").Value
    End If
End With
With Worksheets("Cajc")
    .Activate
    .Range("A1").Select
End With
If MsgBox("Année de début de planning : " & Combobox1 & _
       " ,votre date de fin de planning : " & TextBox1 & _
       " ,votre choix d'équipe : " & Combobox2 & _
       " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", vbYesNo + vbQuestion, "Application des valeurs ") = vbNo Then
    Unload Me
    Exit Sub
End If
End Sub
@fanch55 on c'est croisé 😉
 
Vote positif 0 Vote négatif
fanch55 à dit:
Bonjour,
Si j'ai bien compris la demande:
VB: 
Private Sub CommandButton6_Click()
    With Worksheets("Calcul5")
        Select Case True
        Case ComboBox1 = "": MsgBox "Le Combo1 doit être renseigné": Exit Sub
        Case ComboBox2 = "": MsgBox "Le Combo2 doit être renseigné": Exit Sub
        Case Else
            .Activate
            Range("G26").Value = ComboBox1.Value
            Range("E26").Value = ComboBox2.Value
            TextBox1.Value = Range("B27").Value
            Worksheets("Cajc").Activate: Range("A1").Select
            If MsgBox("Année de début de planning : " & ComboBox1 _
             & " ,votre date de fin de planning : " & TextBox1 _
             & " ,votre choix d'équipe  : " & ComboBox2 _
             & " ,vos choix ont été pris en compte ,souhaitez vous les changer ?.", _
             vbYesNo + vbQuestion, "Application des valeurs ") _
             = vbNo Then
                Unload Me
                Exit Sub
              End If
        End Select
    End With
End Sub
Cliquez pour agrandir...
Merci pour votre solution ,c'est parfait et merci aussi à patricktoulon et aussi le forum 😀
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

KTM
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
275
KTM
KTM
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
140
job75
job75
pascal21
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
193
job75
job75
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
180
dysorthographie
dysorthographie
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
487
AtTheOne
AtTheOne
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
851
Dranreb
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
502
tnion
T
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
347
patricktoulon
patricktoulon
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
cathodique
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
339
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
801
jurassic pork
jurassic pork
C
  • Résolu(e)
XL 2021 Tri alpha sur combobox à 2 colonnes
2
Réponses
15
Affichages
885
dysorthographie
dysorthographie
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
461
Francky79
F
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
GClaire
G
AIXELS
  • Question Question
Autres Réinitialiser valeur TextBox
Réponses
2
Affichages
178
AIXELS
AIXELS
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
429
snoopy07
S
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
511
Gégé-45550
Gégé-45550
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
487
telemarrk
T
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
fanch55
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
Retour