Autres nom d'enfant

Dranreb

XLDnaute Barbatruc

• 7 Janvier 2021

• #16

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: 7 Janvier 2021

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 7 Janvier 2021

• #17

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

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Janvier 2021

• #18

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: 7 Janvier 2021

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Janvier 2021

• #19

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 ?

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 8 Janvier 2021

• #20

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 9 Janvier 2021

• #21

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$

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Janvier 2021

• #22

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Janvier 2021

• #23

Bon, je joins ma version comme elle est …

 

Pièces jointes

• Temp.xlsm

  131.1 KB · Affichages: 20

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 9 Janvier 2021

• #24

Rebonjour

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

Excuse moi pour cet oubli
Merci Dranreb

 

Pièces jointes

• Temp dranreb.zip

  119.5 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Janvier 2021

• #25

Repartez peut être de ma version poste #23

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 9 Janvier 2021

• #26

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Janvier 2021

• #27

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

VB:

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 9 Janvier 2021

• #28

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é

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 13 Janvier 2021

• #29

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é

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #30

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.

 

Vote positif 0 Vote négatif