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]

Normalement si une plage d'une seule ligne est spécifiée à la méthode Plage, il le comprend comme une demande d'aller chercher lui même le nombre de lignes réel à partir de celle ci.
Mais le plus propre serait de faire subir à la plage une mise sous forme de tableau. En effet si elle est couverte par un ListObject, l'objet ComboBoxLiées le détecte et en tient compte.
Il est alors même possible de spécifier le titre d'une colonne en guise de spécification de colonne à sa méthode Add.
Je jetterai un œil si vous joignez le classeur.

 

[chilo27]

rebonjour

excuse pour le fichier c'est une étourderie de ma part
par ailleurs votre exemple me semble très interéssant mais il faut le comprendre
désolé de vous embêter
merci

 

[Dranreb]

Les 9 prénoms sont proposés dans la liste.
Par contre c'est la liste qui n'est plus proposée au delà du nombre attribué à la valeur de la propriété ListRow de la ComboBox, qui est ici de 8, à moins de faire Alt + flèche bas à l'exécution pour demander la liste quand même ou d'ajouter une instruction CLs.LMaxDropBtn = Le nombre maxi voulu. Mais le plus judicieux, si la liste n'est plus proposée, c'est de taper au moins une lettre d'abord.

 

[Dranreb]

J'ai vu qu'il y avait des boutons, alors je rajoute un peu de code dans tout ça :

Option Explicit
'Private WithEvents CLs As CLsCAs.ComboBoxLiées, LCou As Long, TVL()
Private WithEvents CLs As ComboBoxLiées, LCou As Long, TVL()
Private Sub UserForm_Initialize()
'   Set CLs = CLsCAs.Création.ComboBoxLiées
   Set CLs = New ComboBoxLiées
   CLs.Plage Feuil2.[A2:D2], True
   CLs.Add Me.ChoixNom, 1
   CLs.Add Me.ChoixPrenom, 2
   CLs.Add Me.NomEnfant, 3
   CLs.Add Me.ComboBox1, 4
   CLs.CouleurSympa
   CLs.LMaxDropBtn = 25
   CLs.Actualiser
   End Sub
Private Sub CLs_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
   If NbrLgn = 1 Then Exit Sub
   LCou = 0
   ReDim TVL(1 To 1, 1 To CLs.PlgTablo.Columns.Count)
   End Sub
Private Sub CLs_BingoUn(ByVal Ligne As Long)
   LCou = Ligne
   TVL = CLs.PlgTablo.Rows(LCou).Value
   End Sub
Private Sub BoutonAjouter_Click()
   If LCou <> 0 Then Exit Sub
   CLs.ValeursVers TVL
   LCou = CLs.PlgTablo.Rows.Count
   CLs.PlgTablo.Rows(LCou).Copy
   CLs.PlgTablo.Rows(LCou).Insert xlShiftDown
   LCou = LCou + 1
   CLs.PlgTablo.Rows(LCou).Value = TVL
   CLs.Actualiser
   End Sub
Private Sub BoutonSupprimer_Click()
   If LCou = 0 Then Exit Sub
   CLs.PlgTablo.Rows(LCou).Delete xlShiftUp
   CLs.Actualiser
   End Sub
Private Sub BoutonQuitter_Click()
   Unload Me
   End Sub

Vous ne voulez toujours pas mettre la plage sous forme de tableau ?
L'ajout d'une ligne serait un peu plus simple, déjà, avec une seule instruction CLs.Lignes.Add.Range.Value = TVL au lieu de 5 !
N'envisagez vous pas d'utiliser le complément ?

 

[chilo27]

Bonsoir le forum, Dranreb

Merci pour tout le travail pour ce qui concerne le tableau
Je ne suis pas contre, on utilise souvent des petits fichiers que l'on modifie
et là je cherche à comprendre le fonctionnement

Je vais le faire aussitôt, mais je vais peut être vous solliciter
Merci beaucoup

 

[chilo27]

Bonjour le forum, Dranreb

J'ai cherché à insérer des textbox compliquer pour moi
Quand la feuille contact est impossible d'enregister un nouveau
quand au tableau ce n'est pas mieux

Merci pour votre compréhension$

 

[Dranreb]

Bonjour.
Il y a peu de modification à effectuer dans l'ensemble du code.
C'est le rôle d'un ControlsAssociés
Pouvez vous joindre le fichier.

 

[Dranreb]

Bon, je joins ma version comme elle est …

 

[chilo27]

Rebonjour

J'ai encore oublié de joindre le fichier compressé

Excuse moi pour cet oubli
Merci Dranreb

 

[Dranreb]

Repartez peut être de ma version poste #23

 

[chilo27]

Bonjour

Oui, je suis entrain de la tester pour voir
Je vous tiens informer
Dans tous les cas , cela réponds à ce que je veux faire,
Seul quelques petits aménagements, histoire de personnaliser
Merci encore à vous

 

[Dranreb]

Attention j'ai oublié de modifier le Tableau des Valeurs de la Ligne dans la CBnModifier_Click :

Private Sub CBnModifier_Click()
   If LCou = 0 Then Exit Sub
   CAs.ValeursVers TVL
   CLs.Lignes(LCou).Range.Value = TVL
   End Sub

 

[chilo27]

Rebonjour

Impeccable, je cherchais à le faire
Cela parait simple, Mais évident pour un débutant
Je reviens sur le principe du tableau, qui a l'avantage de préserver les colonnes
Faut il encore maitriser le principe
Merci pour le temps passé

 

[chilo27]

Bonjour le Forum, Dranreb

Le petit (fichier) va très bien
Il continue à grandir
J'ai essayé de mettre à niveau les combobox mais j'ai du mal

Je souhaiterai, quant je change le nom que les autres combox liées changent aussi
Merci de la patience
et pour le temps passé

 

[Dranreb]

Bonjour.
C'est le cas, mais seulement si elle ne sont pas déjà renseignées. Le dernier bouton ou la touche Echap permet de tout vider pour pouvoir taper ou choisir une nouvelle combinaison existante plutôt que d'en créer une.
Joignez le classeur si vous avez essayé de changements qui ne fonctionnent pas comme vous souhaitiez.