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

U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
238
un internaute
U
chaelie2015
  • Question
XL 2013 Réduire un code
Réponses
0
Affichages
242
chaelie2015
chaelie2015
P
  • Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
73
pat66
P
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
143
BenExcel
B
E
  • Résolu(e)
Microsoft 365 Application match et dates
2
Réponses
16
Affichages
612
eric72
E
L
  • Question
XL 2019 checkbox cochée alors date apparait dans listbox
Réponses
7
Affichages
294
Oneida
Oneida
jcf6464
  • Résolu(e)
Microsoft 365 Saisie des / en automatique dans textbox date
Réponses
14
Affichages
545
jcf6464
jcf6464
yojema
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
162
Dranreb
Dranreb
herve62
  • Question
XL 2010 fonction vlookup réticente ? (vba) [RESOLU]
2 3
Réponses
34
Affichages
2 K
TooFatBoy
TooFatBoy
A
  • Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
505
aurelio.ewane
A

Membres actuellement en ligne

19 membres et 112 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
312 219
Messages
2 086 372
Membres
103 198
dernier inscrit
CACCIATORE