Discussion :

[chou2best987]

Voilà le bon fichier...ne pas tenir compte du précédent.

Comment vide la cellule "Compteur_Click" lors de la fermeture du formulaire. J'ai réussi à le faire lorsqu'on click soit sur le bouton "Valider" soit sur le bouton "terminer" mais pas encore lorsque le formulaire est fermé via la croix rouge en haut à droite.

[Docmarti]

Voici une technique facile.
Utilise la propriete TAG des controles pour y mettre le nom de l'onglet et celui de la colonne destination.
Exemple : OBSERVATOIRE A

Puis ensuite tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim c As Control
L = Sheets("OBSERVATOIRE").Cells(Rows.Count, "A").End(xlUp).Row + 1
For Each c In Me.Controls
If c.Tag <> "" Then
onglet = Split(c.Tag, " ")(0)
If Not onglet Like "OBSERVATOIRE" Then
Else
col = Split(c.Tag, " ")(1)
Sheets(onglet).Cells(L, col).Value = c.Value
 
End If
End If
Next c

[Invité]

Bonsoir Doc,
Tu peux créer un tableau en tête du formulaire et faire un Ubound du tableau!

[chou2best987]

En intégrant le code de @Doc, je ne toujours rien qui se passe, pas de listes déroulantes et encore moins avec les valeurs des textboxes ajoutées dynamiquement.

[Docmarti]

Est-ce que tu sais comment, en mode Edition, modifier les proprietes des controles?

En mode Edition, clic droit sur le controle dont la valeur doit etre ecrite dans la colonne A de l'onglet OBSERVATOIRE. Choisis Proprietes. Modifie la propriete TAG de ce controle pour OBSERVATOIRE;a

Idem pour le controle dont la valeur doit etre ecrite dans la colonne B ou tu changes la propriete TAG pour OBSERVATOIRE;b

Etc...

Ne t'occupe pas pour le moment des controles dont les valeurs doivent aller dans une liste deroulante.

Ensuite tu utilises le code suivant comme Validation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim c As Control
L = Sheets("OBSERVATOIRE").Cells(Rows.Count, "A").End(xlUp).Row + 1
For Each c In Me.Controls
If c.Tag <> "" Then
 onglet = Split(c.Tag, ";")(0)
If Not onglet Like "OBSERVATOIRE" Then
Else
 col = Split(c.Tag, ";")(1)
 Sheets(onglet).Cells(L, col).Value = c.Value
End If
End If
Next c

[chou2best987]

Merci Docmarti pour ce code mais je ne peux pas modifier les Tags des contrôles (cad Textbox) car il sont ajoutés dynamiquement ! Ils n’apparaîtront que lorsqu'on aura cliqué sur le Button "Ajouter actionnaire". ???

[chou2best987]

Docmarti,

J'ai repris ton code en l'adaptant afin de récupérer les valeurs dans le Worksheet ("Liste déroulante"). J'ai également ajouter ==> .Tag = "Liste déroulate;a dans le code qui ajoute une nouvelle Textbox. Toutefois, la seule valeur que j'arrive à récupérer est "10" (valeur saisie dans la 10ème Textbox ajoutée". Les valeurs des précédentes Textboxes sont irrécupérables!!!!

[Docmarti]

C'est tres bien.

Il manque une information importante cependant : la valeur M qui indique la ligne ou se trouve les controles.
Donc ajoute dans .Tag un troisieme element : M qui va etre tres utile.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Tag = "Liste déroulante;a;" & M

[chou2best987]

J'ai rajouté "M" et le problème semble rester le même. J'ai toujours et uniquement la dernière valeur utilisée dans le dernier Textbox ajouté qui est récupérée.

[Docmarti]

J'ai rajouté "M" et le problème semble rester le même.

Ce n'est pas suffisant de mettre la valeur de M dans la propriete .TAG. Tu dois ensuite l'utiliser, sinon le problème reste le même, c'est sur et certain.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 col = Split(c.Tag, ";")(1)
 M = Split(c.Tag, ";")(2)
 Sheets(onglet).Cells(M + L, col).Value = c.Value
 Sheets(onglet).Activate
 Sheets(onglet).Cells(M + L, col).Select
 Stop

La valeur M dans range("COMPTEUR_CLICK") semble s'effacer. Il faudrait chercher et trouver pourquoi.

Et re-initialise Range("COMPTEUR_CLICK") a 1 dans UserForm_Initialize

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
     Range("COMPTEUR_CLICK") = 1  
End Sub

[chou2best987]

Merci pour ta réponse @DOCMARTI j'ai fait ce que tu suggérais et notamment supprimé le code qui effaçait la valeur de mon "compteur_click". Cependant, en intégrant ton code, une erreur apparaît "l'indice n'appartient pas à la sélection".

J'ai tout essayé (déclarer la variable M etc) mais rien n'y fait. J'ai toujours la même erreur qui apparaît.

[Docmarti]

C'est fort probablement la propriete TAG du TextBox21 sur la page Composition du capital qui est
Liste déroulante;a
et qui devrait etre
Liste déroulante;a;1
Il lui manque le troisieme parametre.

Quelqu'un t'avait suggere de supprimer ces 5 controles sur la page Composition du capital. C'est une tres bonne idee. Supprime-les. Ils sont inutiles.

[chou2best987]

J'ai rajouté 1 en tant que troisième paramètre mais toujours aucun changement

[chou2best987]

Petite lueur d'espoir, j'ai rajouté des choses au code et je me suis rendu compte (en exécutant la macro pas à pas) que la macro ajoutait bien les valeurs des Textboxes dynamiques dans les cellules de la colonne A de la feuille "Liste déroulante". Mais ce qui se passe est que ces valeurs sont écrasé/supprimé et il ne reste que la dernière valeur du dernier textboxe.

[patricktoulon]

bonsoir

je suis étonné que après 35 posts personne ne t'ai parlér des modules classes

[chou2best987]

Les modules classes résoudraient mon problème ? Je veux bien en savoir plus si c'est le cas.

[Invité]

Bonjour,
En réalité 35 réponse multiplié par 3 ou 4 discussion qui sens être redondante se télescopant!

Ajuster tel trucs décale tel autre! Un seule et unique poste en 3 point aurait évité un cacophonie!

[chou2best987]

Ben pour le coup, je pensais avoir été assez claire loirs de mon premier post (en deux points):



"1° La valeur saisie dans les Textbox créés dynamiquement dans un formulaire (à chaque click d'un bouton "CommandButton") s'effacent à chaque fois que le Textbox suivant est créé (à chaque click dudit bouton "CommandButton"). En gros, à chaque click les Textbox se vident.

2° Comment faire pour récupérer les valeurs saisies dans les Textbox créés dynamiquement afin de les faire apparaître dans une liste déroulante placée sur une feuille de calcul Excel."

[Invité]

Bonjour,
En réalité tu rajoutes des contrôles sur des contrôles existants, tu j'efface pas les contrôles tu les découvres!


Le premier contrôle créé garde bien sa valeur mais est recouvert par un nouveau!

Utilise un type de variable utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
type controles
   txtBox1 as Object
   txtBox2 as Object
   lstBox1 as Object 
   label1 as Object 
En dype
 
Dim dbGrid() as controles,nb as long
Private Sub CommandButton6_Click()
    redim preserver dbGrid(nb) 
Set dbGrid(nb).label1 = UserForm1.MultiPage2.Pages(2).Controls.Add("forms.Label.1", "ACTIONNAIRE" & nb, True)
Set dbGrid(nb).txtBox1 = UserForm1.MultiPage2.Pages(2).Controls.Add("forms.TextBox.1") 
Nb=nb+1

je n'arrête pas de te dire qu'a chaque click sur CommandButton6 tu ajoutes des contrôles sur ceux existent!

[chou2best987]

Merci pour ce code, je l'ai intégré dans mes codes mais je ne suis pas plus avancé. J'ai l'impression plus on creuse, plus ça devient inextricable. Je pense qu'il ne doit pas vraiment y avoir de solutions.