Userform Bouton dynamique inactif?

Bonjour, je souhaite créer un userform qui crée automatique des labels avec du texte venant à chaque fois d'une cellule, ainsi qu'un bouton de commande pour effacer la cellule si besoin.

Seulement, comme j'utilise un Private Sub UserForm_Initialize, je ne sais pas comment placer le code de mes boutons de contrôle qui se créent :s. J'ai essayé en callant un Private Sub CommandButton1_Click() à la suite de la création, mais ça ne fonctionne pas ^^

End Sub

Private Sub UserForm_Initialize()
Dim Bouton As Object, BoutonC As Object
Range("A1").Select
Do While Not (IsEmpty(ActiveCell)) 
     Selection.Offset(1, 0).Select

A = A + 1
Loop
For i = 1 To A
Set Bouton = UserForm1.Controls.Add("Forms.Label.1")
With Bouton
Bouton = Range("A" & i)
.Name = "TextBox" & i
Bouton.Left = 0
Bouton.Top = 20 * i
End With
Set BoutonC = UserForm1.Controls.Add("Forms.CommandButton.1") 'je lance comment le code avec ce bouton????'
With BoutonC
BoutonC.Left = 100
BoutonC.Top = 20 * i
End With

Next

End Sub

merci

Bonjour,

Hum... ça c'est du code spécifique pour module de classe, niveau programmeur professionnel confirmé multi langages.

Débutant s'abstenir !

Oublie pour le moment.

A+

Crotte j'en avais besoin

Il n'y a pas une alternative?

Je veux vérifier un tableau.

Si certaines dates correspondent à celle du jour, j'affiche les cellules textes à côté dans un userforme.

Si je clique sur un bouton, ça delete la cellule texte+date, si pas ça modifie le texte.

Au pire je ferai autrement, mais ça sera moins propre

Bonjour,

Sans fichier c'est insuffisant pour dire.

A+

Mon fichier ne comporte rien d'autre que le code cité au dessus, je commence juste le test avant de me lancer.

Bonjour,

voici un code pour créer un Userform dynamique

et un Bouton de commande dynamique

il ne reste plus qu'à l'adapter à ton cas.

amicalement