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é]

Une fois que tu as créé dynamiquement tes contrôles dans un tableau typée, tu peux en récupérer les valeurs!

Code :

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

1
2
3
4
5
6
7
for i =0 to ubounb(dbGrid)
 debug.print  dbGrid(i).txtBox1 
   debug.print  dbGrid(i).txtBox2
   debug.print  dbGrid(i).lstBox1
   debug.print  dbGrid(i).label1
 
Next

[chou2best987]

ça ne fonctionne pas Mes textbox s'affiche n'importe où!

[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.