Autres nom d'enfant

[chilo27]

Bonjour le forum
Bonne fête de fin d'année

J'aimerais savoir était possible d'afficher les noms des enfants dans la combo NomEnfant
Svp

une famille de 3 enfants par exemple comment en appellant le nom
de cette famille afficher les noms de leurs enfants
Ex. alphonse a 3 enfants en affichant alphonse les 3 noms
des enfant titi, tata et teddy seront affichés dans la combo

Merci une nouvelle fois pour votre participation
Bone fête et bonne santé à vous tous et toutes

 

[Dranreb]

Bonjour.
Cette ressource le fait tout seul.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Ce code a fonctionné du 1er coup :

Option Explicit
Private WithEvents CLs As CLsCAs.ComboBoxLiées
Private Sub UserForm_Initialize()
   Set CLs = CLsCAs.Création.ComboBoxLiées
   CLs.Plage Feuil2.[A2:C2]
   CLs.Add Me.ChoixNom, 1
   CLs.Add Me.ChoixPrenom, 2
   CLs.Add Me.NomEnfant, 3
   CLs.CouleurSympa
   CLs.Actualiser
   End Sub

Remarque: J'ai mis tout le reste du code en commentaire et n'ai rien développé d'autre pour l'instant.

 

[chilo27]

bonsoir le forum, Dranreb

jobtiens ce message en retour

Private WithEvents CLs As CLsCAs.ComboBoxLiées
erreur de compilation
attribut incorrect dans une procédure sub ou fonction sur cette ligne
merci de l'aide

 

[Dranreb]

C'est à mettre en tête du module de l'UserForm, non dans une procédure.
N'oubliez pas de laisser s'installer préalablement le CBxLCtlA.xlam à partir du xlsm précurseur de la ressource, puis de cocher la référence à CLsCAs dans le projet VBA de votre classeur.

 

[chilo27]

rebonsoir dranreb,

je l'avais mis en tete de l'userform en option explicit

Par contre je n'ai pas Cbscasctla dans reference
désolé
merci beaucoup

 

[Dranreb]

Lorsque vous ouvrez le CBxLCtlA.xlsm de la ressource, il vous demande la permission de s'installer en tant que xlam dans votre dossier de compléments. Si vous la lui accordez la référence à CLsCAs y sera dans cette session Excel. Pour l'ouvrir à nouveau si vous l'avez installé lors d'une session précédente, vous pouvez cocher le complément Excel "CBx liées et Ctl associés" du coté Excel cette fois.

 

[job75]

Bonsoir chilo27, Bernard,

Une solution assez simple avec une colonne auxiliaire "A masquer" et le filtre avancé :

Dim F1 As Worksheet, F2 As Worksheet 'mémorise les variables

Private Sub ChoixNom_Change()
ChoixPrenom = "": NomEnfant = ""
End Sub

Private Sub ChoixPrenom_Change()
NomEnfant = ""
End Sub

Private Sub ChoixPrenom_Enter()
If ChoixNom.ListIndex = -1 Then UserForm_Initialize: Exit Sub
Filtre "=A2=""" & ChoixNom & """", Union(F2.Columns(1), F2.Columns(3)), ChoixPrenom
End Sub

Private Sub NomEnfant_Enter()
If ChoixNom.ListIndex = -1 Then UserForm_Initialize: Exit Sub
If ChoixPrenom.ListIndex = -1 Then ChoixPrenom_Enter: Exit Sub
Filtre "=A2&CHAR(1)&B2=""" & ChoixNom & Chr(1) & ChoixPrenom & """", F2.Columns(1).Resize(, 2), NomEnfant
End Sub

Private Sub CommandButton1_Click() 'Quitter
Unload Me
End Sub

Private Sub UserForm_Initialize()
Set F1 = Sheets("Contact")
Set F2 = Sheets("A masquer")
Filtre "=TRUE", F2.Columns(2).Resize(, 2), ChoixNom
End Sub

Sub Filtre(critere$, ColSuppr As Range, CB As ComboBox)
F2.Cells.Clear 'RAZ
With F1.[A1].CurrentRegion.Resize(, 3)
    .Cells(2, 5) = critere
    .AdvancedFilter xlFilterCopy, .Cells(1, 5).Resize(2), F2.[A1] 'filtre avancé
    .Cells(2, 5) = ""
End With
F2.Rows(1).Delete
ColSuppr.Delete
If Application.CountA(F2.Columns(1)) = 0 Then CB.Clear: Exit Sub
With F2.UsedRange
    .Sort .Cells, xlAscending, Header:=xlNo 'tri alphabétique
    .RemoveDuplicates 1, xlNo 'supprime les doublons
End With
CB.List = F2.UsedRange.Resize(, 2).Value 'au moins 2 éléments
CB.SetFocus
CB.DropDown 'déroule la liste
End Sub

 

[chilo27]

Bonsoir

Drandrfeb, job

Merci Job75

La pièces jointe fonctionne bien

Merci, je vais pouvoir continuer

Bonne fête de fin à vous

 

[Dranreb]

Je joins une version qui me semble réagir mieux.
Remarque: j'ai équipé le classeur de tous les modules de service nécessaires, en attendant que vous régliez le problème de l'utilisation du complément.

 

[chilo27]

Bonjour le Forum, Job75, Dranreb

Avant toutes choses je vous souhaite une bonne et heureuse année 2021, qu'elle vous apporte santé et plus si affinité.

je m'arrache les cheveux enfin ce qu'il me reste pour résoudre un petit,
je n'arrive pas à supprimer le premier enregistrement par vba
j'ai le message à cette ligne
1) ChoixPrenom.List = Application.Transpose(dicoP.keys)

2) On dit souvent que c'est en mangeant que l'appétit vient
Je voudrais savoir s'il était possible de rajouter un nom de rue à la liste rue à partie d'une combobox
je suis désolé de vous embêter mais avec la nouvelle année la lumière ne vient toujours pas
Sur cette plaisanterie, je vous remercie pour votre aide

merci d'avance

 

[chilo27]

ReBonjour; Dranredb

Avec votre proposition, je découvre une autre façon de procéder
et aujourd'hui, il m'est impossible de déchiffrer tout cela

mais merci de m'apporter d'autres perspectives

 

[Dranreb]

Bonjour.
Il y a une page d'aide dans le classeur source du complément qui décrit en détail toutes les propriétés, méthodes et évènements des objets qu'il définit.

 

[chilo27]

Oui, j'ai vu, mais la lumière ne jaillit pas,
Plus sérieusement j'essaie de comprendre,
pour réussir les bonnes associations
affichages des autres informations
suppressions etc...
etc
merci beaucoup
je vais devoir vous solliciter pour décoder tout cela
Encore une fois merci

 

[Dranreb]

Pas de problème.
Je ne peux pas me mettre à la place de ceux qui ne comprennent pas. Peut être faudrait-il que l'aide soit rédigée par quelqu'un d'autre.
Il semblerait que vous soyez déjà arrêté par les rôles distincts mais complémentaires des objets ComboBoxLiées et ControlsAssociés
Alors le premier a pour seul but d'établir le ou les numéros de lignes dans la base correspondant aux choix effectués dans des ComboBox seulement, ou d'établir qu'il n'en existe aucune.
Le second permet de travailler sur une ligne existante ou reconnue comme étant à créer, en permettant de transférer via un tableau dynamique d'une ligne les valeurs des autres types de contrôles, voire de ComboBox aussi mais munies de listes fixes préétablies.

 

[chilo27]

Bonjour le Forum, Dranreb

Me voila de retour
Je me retrouve devant un petit soucis
au delà de 8 éléments les combobox ne fonctionnent plus

si vous pouvez jeter un oeil

il faut bien entendu le récupérer à la fin

Merci par avance