Re : Multi Mini BD
Bonjour et merci Didier,
J'ai bien fait les modifications des listes déroulantes dans la partie "Personnalisation". Tout fonctionne, c'est magnifique !!!
Là où cela se corse pour moi, c'est que je voudrais que les informations présentes dans la liste déroulante "MOTIFS" puissent varier en fonction de l'Item sélectionné dans la liste "PRESENCE".
Par exemple, si je sélectionne dans la liste déroulante "PRESENCE" l'Item "Interme", seuls les Items Entité, Groupe, Multisites apparaissent dans la liste "MOTIFS" et non les autres Items.
Que dois-je faire ???
Merci pour votre aide...
David
'--------------------------------
'Mettre le nom de la 8ème colonne à personnaliser.
PersoNomColonne = "PRESENCE"
'Ici on détermine automatiquement le numéro de la colonne à personnaliser.
'( La première colonne n'est pas personnalisable ).
For BoucleCol = 8 To NbColonnes
If Cells(1, BoucleCol) = PersoNomColonne Then PersoNuméroColonne = BoucleCol
Next BoucleCol
'Ensuite on effectue le traitement de la personnalisation
If NomBD = PersoNomBD And Cells(1, PersoNuméroColonne) = PersoNomColonne Then
'Personnalisation
'Par exemple : Création d'une liste de choix
Controls("Champ" & PersoNuméroColonne).Clear
Controls("Champ" & PersoNuméroColonne).AddItem "Interne"
Controls("Champ" & PersoNuméroColonne).AddItem "XXXX"
Controls("Champ" & PersoNuméroColonne).AddItem "YYYY"
Controls("Champ" & PersoNuméroColonne).AddItem "Externe"
Controls("Champ" & PersoNuméroColonne).AddItem "ZZZZZ"
'C'est dans cet ordre que les items de la liste apparaitront.
'Pour changer la taille du Control.
Controls("Champ" & PersoNuméroColonne).Width = 100
Controls("Champ" & PersoNuméroColonne).Height = 16
'Pour activer la liste déroulante.
Controls("Champ" & PersoNuméroColonne).ShowDropButtonWhen = fmShowDropButtonWhenAlways
Else
End If
'--------------------------------
'Mettre le nom de la 9ème colonne à personnaliser.
PersoNomColonne = "MOTIFS"
'Ici on détermine automatiquement le numéro de la colonne à personnaliser.
'( La première colonne n'est pas personnalisable ).
For BoucleCol = 9 To NbColonnes
If Cells(1, BoucleCol) = PersoNomColonne Then PersoNuméroColonne = BoucleCol
Next BoucleCol
'Ensuite on effectue le traitement de la personnalisation
If NomBD = PersoNomBD And Cells(1, PersoNuméroColonne) = PersoNomColonne Then
'Personnalisation
'Par exemple : Création d'une liste de choix
Controls("Champ" & PersoNuméroColonne).Clear
Controls("Champ" & PersoNuméroColonne).AddItem "Entité"
Controls("Champ" & PersoNuméroColonne).AddItem "Groupe"
Controls("Champ" & PersoNuméroColonne).AddItem "Multisites"
Controls("Champ" & PersoNuméroColonne).AddItem "Emploi salarié"
Controls("Champ" & PersoNuméroColonne).AddItem "RTT"
Controls("Champ" & PersoNuméroColonne).AddItem "Vacances"
Controls("Champ" & PersoNuméroColonne).AddItem "Congés"
Controls("Champ" & PersoNuméroColonne).AddItem "Retraite"
Controls("Champ" & PersoNuméroColonne).AddItem "Nada"
'C'est dans cet ordre que les items de la liste apparaitront.
'Pour changer la taille du Control.
Controls("Champ" & PersoNuméroColonne).Width = 100
Controls("Champ" & PersoNuméroColonne).Height = 16
'Pour activer la liste déroulante.
Controls("Champ" & PersoNuméroColonne).ShowDropButtonWhen = fmShowDropButtonWhenAlways
Else
End If