Microsoft 365 forcer REMPLISSAGE Combobox Userform

E

eric72

XLDnaute Accro
Bonjour à tous,
J'espère que tout le monde va bien, me revoilà pour un petit souci de conditions d'obligation de remplissage de Combobox.
J'ai un Userform, quand je clique sur l'optionbutton "Tournant", s'affiche une combobox ou on sélectionne un nombre de semaines qui déclenche l'affichage de 2, 3,4,5 ou 6 autres combobox que l'on doit remplir obligatoirement, j'ai donc mis ceci:
VB: 
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 2 And CbSemType1.Value = "" Or CbSemType2.Value = "" Then MsgBox "Vous devez sélectionner 2 Semaines type": Exit Sub
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 3 And CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Then MsgBox "Vous devez sélectionner 3 Semaines type": Exit Sub
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 4 And CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Or CbSemType4 = "" Then MsgBox "Vous devez sélectionner 4 Semaines type": Exit Sub
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 5 And CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Or CbSemType4 = "" Or CbSemType5 = "" Then MsgBox "Vous devez sélectionner 5 Semaines type": Exit Sub
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 6 And CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Or CbSemType4 = "" Or CbSemType5 = "" Or CbSemType6 = "" Then MsgBox "Vous devez sélectionner 6 Semaines type": Exit Sub

Je ne sais pas ou est(sont) la(les) boulette(s), mais rien ne fonctionne, j'ai essayé pleins d'astuces et rien ne va, quelqu'un aurait-il une petite idée car là je cale!!!
Merci beaucoup à tous.
Eric
 

Pièces jointes

  • test.xlsm
    98.9 KB · Affichages: 8
Solution
ChTi160
Bonsoir le Fil
une autre possibilité
VB: 
 If TxtDateRotation = "" And ObRotation = True Then MsgBox "Vous devez Sélectionner une date de début ": Exit Sub
    If TxtDateFixe = "" And ObFixe = True Then MsgBox "Vous devez Sélectionner une date de début ": Exit Sub
    If ChbMajoration = True And TxtTaux = "" Then MsgBox "Vous devez saisir un taux de Majoration": TxtTaux.SetFocus: Exit Sub
    If ObFixe.Value = False And ObRotation.Value = False Then MsgBox "Vous devez choisir si le planning est fixe ou tournant": Exit Sub
    If ObFixe.Value = True And CbSemTypeFixe = "" Then MsgBox "Vous avez choisi un Planning fixe, vous devez sélectionner la Semaine Type attribuée": CbSemTypeFixe.SetFocus: Exit Sub

Select Case ObRotation.Value 'ça...
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Une proposition :
VB: 
Dim CestOK as Boolean

    If ObRotation.Value = True Then
        If CbNbSemRotation.Value = "" Then MsgBox "Vous avez choisi un Planning à rotation, vous devez sélectionner le nombre de semaines de rotation": CbNbSemRotation.SetFocus: Exit Sub
        CestOK = True
        If CDbl(CbNbSemRotation.Value) = 2 And CbSemType1.Value = "" Or CbSemType2.Value = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 3 And CbSemType3 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 4 And CbSemType4 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 5 And CbSemType5 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 6 And CbSemType6 = "" Then CestOK = False
        If CestOK = False Then MsgBox "Vous devez sélectionner " & CbNbSemRotation.Value & " Semaines type": Exit Sub
    End If
 
Vote positif 0 Vote négatif
Oneida

Oneida

XLDnaute Impliqué
Re,
Le probleme est que meme non visible les comboboxs sont testees dans le code.
Donc, une facon de faire
VB: 
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 2 Then
        If CbSemType1.Value = "" Or CbSemType2.Value = "" Then
            MsgBox "Vous devez sélectionner 2 Semaines type": Exit Sub
        End If
    ElseIf ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 3 Then
        If CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Then
            MsgBox "Vous devez sélectionner 3 Semaines type": Exit Sub
        End If
    ElseIf ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 4 Then
    'etc, etc
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
TooFatBoy à dit:
Bonjour,

Une proposition :
VB: 
Dim CestOK as Boolean

    If ObRotation.Value = True Then
        If CbNbSemRotation.Value = "" Then MsgBox "Vous avez choisi un Planning à rotation, vous devez sélectionner le nombre de semaines de rotation": CbNbSemRotation.SetFocus: Exit Sub
        CestOK = True
        If CDbl(CbNbSemRotation.Value) = 2 And CbSemType1.Value = "" Or CbSemType2.Value = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 3 And CbSemType3 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 4 And CbSemType4 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 5 And CbSemType5 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 6 And CbSemType6 = "" Then CestOK = False
        If CestOK = False Then MsgBox "Vous devez sélectionner " & CbNbSemRotation.Value & " Semaines type": Exit Sub
    End If
Cliquez pour agrandir...
Hello,
Je regarde ça dès demain
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Bonsoir le Fil
une autre possibilité
VB: 
 If TxtDateRotation = "" And ObRotation = True Then MsgBox "Vous devez Sélectionner une date de début ": Exit Sub
    If TxtDateFixe = "" And ObFixe = True Then MsgBox "Vous devez Sélectionner une date de début ": Exit Sub
    If ChbMajoration = True And TxtTaux = "" Then MsgBox "Vous devez saisir un taux de Majoration": TxtTaux.SetFocus: Exit Sub
    If ObFixe.Value = False And ObRotation.Value = False Then MsgBox "Vous devez choisir si le planning est fixe ou tournant": Exit Sub
    If ObFixe.Value = True And CbSemTypeFixe = "" Then MsgBox "Vous avez choisi un Planning fixe, vous devez sélectionner la Semaine Type attribuée": CbSemTypeFixe.SetFocus: Exit Sub

Select Case ObRotation.Value 'ça commence Ici
     Case True And CbNbSemRotation.Value = ""
         MsgBox "Vous avez choisi un Planning à rotation, vous devez sélectionner le nombre de semaines de rotation": CbNbSemRotation.SetFocus: Exit Sub
     Case True And CDbl(CbNbSemRotation.Value) = 2
          If CbSemType1.Value = "" Or CbSemType2.Value = "" Then MsgBox "Vous devez sélectionner 2 Semaines type": Exit Sub
     Case True And CDbl(CbNbSemRotation.Value) = 3
          If CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Then MsgBox "Vous devez sélectionner 3 Semaines type": Exit Sub
     Case True And CDbl(CbNbSemRotation.Value) = 4
          If CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Or CbSemType4 = "" Then MsgBox "Vous devez sélectionner 4 Semaines type": Exit Sub
     Case True And CDbl(CbNbSemRotation.Value) = 5
          If CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Or CbSemType4 = "" Or CbSemType5 = "" Then MsgBox "Vous devez sélectionner 5 Semaines type": Exit Sub
     Case True And CDbl(CbNbSemRotation.Value) = 6
          If CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Or CbSemType4 = "" Or CbSemType5 = "" Or CbSemType6 = "" Then MsgBox "Vous devez sélectionner 6 Semaines type": Exit Sub
End Select 'Fin du test
With [TbEffectif].ListObject
Jean marie
 
Vote positif 0 Vote négatif
Solution
ChTi160

ChTi160

XLDnaute Barbatruc
Re
une autre version Perfectible
Code: 
Dim NbrRotation As Byte
''''''''''''''''''
''''''''''''''
If ObRotation.Value Then
   NbrRotation = IIf(CbNbSemRotation.Value = "", 0, CbNbSemRotation.Value)
  If NbrRotation = 0 Then MsgBox "Vous avez choisi un Planning à rotation, vous devez sélectionner le nombre de semaines de rotation": CbNbSemRotation.SetFocus: Exit Sub
For i = 1 To NbrRotation
    If Me.Controls("CbSemType" & i).Text = Empty Then MsgBox "Vous devez sélectionner " & NbrRotation & " Semaines type": Exit Sub
Next
End If
Jean marie
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
ChTi160 à dit:
Re
une autre version Perfectible
Code: 
Dim NbrRotation As Byte
''''''''''''''''''
''''''''''''''
If ObRotation.Value Then
   NbrRotation = IIf(CbNbSemRotation.Value = "", 0, CbNbSemRotation.Value)
  If NbrRotation = 0 Then MsgBox "Vous avez choisi un Planning à rotation, vous devez sélectionner le nombre de semaines de rotation": CbNbSemRotation.SetFocus: Exit Sub
For i = 1 To NbrRotation
    If Me.Controls("CbSemType" & i).Text = Empty Then MsgBox "Vous devez sélectionner " & NbrRotation & " Semaines type": Exit Sub
Next
End If
Jean marie
Cliquez pour agrandir...
Bonjour Jean-Marie,
Ta proposition est géniale, pourquoi faire compliqué quand on peut faire simple!!!
Merci beaucoup et bonne journée.
Prends soin de toi
Eric
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
TooFatBoy à dit:
Bonjour,

Une proposition :
VB: 
Dim CestOK as Boolean

    If ObRotation.Value = True Then
        If CbNbSemRotation.Value = "" Then MsgBox "Vous avez choisi un Planning à rotation, vous devez sélectionner le nombre de semaines de rotation": CbNbSemRotation.SetFocus: Exit Sub
        CestOK = True
        If CDbl(CbNbSemRotation.Value) = 2 And CbSemType1.Value = "" Or CbSemType2.Value = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 3 And CbSemType3 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 4 And CbSemType4 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 5 And CbSemType5 = "" Then CestOK = False
        If CDbl(CbNbSemRotation.Value) = 6 And CbSemType6 = "" Then CestOK = False
        If CestOK = False Then MsgBox "Vous devez sélectionner " & CbNbSemRotation.Value & " Semaines type": Exit Sub
    End If
Cliquez pour agrandir...
Bonjour,

Efficace comme d'habitude, les deux méthodes (avec celle de Jean-Marie) sont au top.
Bonne journée
Eric
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Oneida à dit:
Re,
Le probleme est que meme non visible les comboboxs sont testees dans le code.
Donc, une facon de faire
VB: 
    If ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 2 Then
        If CbSemType1.Value = "" Or CbSemType2.Value = "" Then
            MsgBox "Vous devez sélectionner 2 Semaines type": Exit Sub
        End If
    ElseIf ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 3 Then
        If CbSemType1 = "" Or CbSemType2 = "" Or CbSemType3 = "" Then
            MsgBox "Vous devez sélectionner 3 Semaines type": Exit Sub
        End If
    ElseIf ObRotation.Value = True And CDbl(CbNbSemRotation.Value) = 4 Then
    'etc, etc
Cliquez pour agrandir...
Bonjour,
Merci pour cette proposition
Bonne journée
Eric
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Bonjour lEric,le Fil
Une question : dans le fichier de Toofatboy
Le fait de tester le dernier élément du nombre de rotation ex 3 rotations choisies permet de ne sélectionner que deux ex 1 et 3 ,2 et 3
3 n'étant pas vide , c'est considéré comme ok .
Est une mauvaise interprétation de ma part ?
Bonne journée
Jean marie
 
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
Microsoft 365 contrôler un EXIT
Réponses
2
Affichages
89
Bill73
B
A
  • Question
XL 2016 erreur de code
Réponses
10
Affichages
304
AlphaOne
A
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
328
Phil69970
Phil69970
S
  • Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
194
Dranreb
Dranreb
E
  • Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
444
Excellearning
E
patricktoulon
  • Question
Autres la fonction similaire
Réponses
11
Affichages
432
patricktoulon
patricktoulon
Amigo
  • Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
Amigo
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
239
pat66
P
U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
493
un internaute
U
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
376
job75
job75

Membres actuellement en ligne

6 membres et 80 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 095
Messages
2 116 166
Membres
112 675
dernier inscrit
Tazra_IMOU