Autres nom d'enfant

chilo27

XLDnaute Occasionnel
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
 

Pièces jointes

  • NomEnfant.zip
    27.6 KB · Affichages: 49

Dranreb

XLDnaute Barbatruc
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.
 
Dernière édition:

chilo27

XLDnaute Occasionnel
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
 

Pièces jointes

  • Temp dranreb (2).zip
    115.4 KB · Affichages: 3

Dranreb

XLDnaute Barbatruc
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.
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
J'ai vu qu'il y avait des boutons, alors je rajoute un peu de code dans tout ça :
VB:
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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.
 

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson