Pb bouton
Résolu/Fermé
A voir également:
- Pb bouton
- Réinitialiser chromecast sans bouton - Guide
- Hard reset samsung sans bouton home - Guide
- Thunderbird bouton envoyer disparu ✓ - Forum Thunderbird
- Bouton d'alimentation - Guide
- Bouton cpi souris ✓ - Forum souris / Touchpad
2 réponses
Bonjour,
J'ai testé ta macro, elle ajoute bien 4 boutons sur la feuille, ils réagissent quand on clic dessus, mais ils ne se passe rien vu qu'ils ne sont ratachés à aucune macro.
C'est normal , ou est le problème?
A+
J'ai testé ta macro, elle ajoute bien 4 boutons sur la feuille, ils réagissent quand on clic dessus, mais ils ne se passe rien vu qu'ils ne sont ratachés à aucune macro.
C'est normal , ou est le problème?
A+
Je pense que l'objet Bouton se refere au dernier element inseré. Sa valeur est ecrasée à chaque tour de boucle et ne garde sa valeur que pour k=5
ensuite du ecritSub init(Bouton As CommandButton, Parent As Classe2, idbouton As Integer)
Set mBouton = Bouton
midbouton = idbouton
Set mParent = Parent
mBouton pointe sur l'objet Bouton
et donc
Private Sub mBouton_click()
choix_install2.bouton_cliqué.Caption = midbouton
choix_install2.Show
affiche la feuille choix_install2
A+.
ensuite du ecritSub init(Bouton As CommandButton, Parent As Classe2, idbouton As Integer)
Set mBouton = Bouton
midbouton = idbouton
Set mParent = Parent
mBouton pointe sur l'objet Bouton
et donc
Private Sub mBouton_click()
choix_install2.bouton_cliqué.Caption = midbouton
choix_install2.Show
affiche la feuille choix_install2
A+.
13 mars 2008 à 16:49
en fait ces bouton sont d'un type qui vient d'un module de classe :
Option Explicit
Private WithEvents mBouton As CommandButton
Private mParent As Classe2 'Contient le nom du parent
Private midbouton As Integer
Sub init(Bouton As CommandButton, Parent As Classe2, idbouton As Integer)
Set mBouton = Bouton
midbouton = idbouton
Set mParent = Parent
End Sub
Private Sub mBouton_click()
choix_install2.bouton_cliqué.Caption = midbouton
choix_install2.Show
With mBouton
.Caption = AutoBe.nom_bouton.Caption
'.AutoSize = True
End With
End Sub
et du coup je pensais que le fait de mettre les boutons comme ca ils garderaient leur fonctionnalités
en fait ce qui me tue dans ce que tu me dis et qui est vrai, c'est que je vois pas pourquoi le dernier bouton généré m'ouvre le userform souhaité alors que je ne lui ai aps indiqué .
j'ai du mal à comprendre vois tu d'où pourrais venir le pb ?
13 mars 2008 à 16:52
13 mars 2008 à 17:07
mes bouton sont déclaré de type de mon module de classe.
dans ce module il y a une collection sur lesquels je dois ajouter les boutons .
le fait que mon dernier bouton généré soit le seul qui puisse agir était tout à fait normal car je n'avais aps inclus dans la boucle le fait que : collection.add "bouton". ceci était à l'extérieur de la boucle .
forcement le dernier élément créé devient le seul à avoir els caractérisqtiques souhaitées !
voili voilou ,
merci beaucoup car avec ta question tu m'as fait trouver mon problème
@+