SuppotDeSaTante Aka dje69r | Bonjour
produvba a écrit :
si ta liste s'appelle, "maliste", tu dois créer un code pour l'événement "maliste_change".
Dans ce code, tu récupère la valeur de la liste (maliste.index). Si ton bouton s'appelle "monbouton", alors tu utiliseras par exemple la propriété ".caption" du bouton pour changer son texte. Idem pour la macro associée
|
Je ne suis pas sur que tu ai tout lu si...?
Pour le souci de ellivrad je penche plutot comme suit :
Une boucle sur tout les objets de la feuilles. Si c'est un bouton, on lui affecte la colonne 2 en Caption, plus ajoute a la propriété OnClick la reference desirée de la macro en fonction de la ligne sur laquelle le bouton est positionné.
Regarde du coté de :
Code :
- Sub ellivrad()
- Dim Bouton As Object
- 'Pour chaque objet dans ta feuille (bouton, checkbox etc.)
- For Each Bouton In ActiveSheet.OLEObjects
-
- 'Si c'est un bouton on poursuit
- If TypeOf Bouton.Object Is MSForms.CommandButton Then
- 'Recupere le nom de l'objet
- NomDuControle = Bouton.Name
- 'Recupere la cellule au dessus du bouton
- CelluleAuDessus = Bouton.TopLeftCell.Address
- 'Donc pour récuperer la valeur de la cellule a gauche du bouton :
- CelluleACote = Cells(Range(CelluleAuDessus).Row + 1, Range(CelluleAuDessus).Column - 1).Value
-
- 'On recupere la cellule sour forme $A$1 pour l'afficher dans le message
- Set CelluleACoteAdr = Cells(Range(CelluleAuDessus).Row + 1, Range(CelluleAuDessus).Column - 1)
- MsgBox "Le bouton se nomme " & NomDuControle & " il se trouve à coté de la cellule " & CelluleACoteAdr.Address & " contenant : " & CelluleACote
-
- End If
- Next Bouton
- End Sub
|
Tu as tout pour t'en sortir normalement.
Cordialement
Message édité par SuppotDeSaTante le 15-09-2009 à 15:56:28
---------------
Soyez malin, louez entre voisins !
|
