[VBA]Fonction Me.Controls Me.ActiveControl Fermé

Question

Bonjour, 

Je dois modifier une application VBA Excel déjà existante mais je ne comprends la signification du code suivant :

Private Sub CA1_Click()
capa = 1
Macro_bouton
End Sub

Private Sub Macro_bouton()

EMPLAC = Me.ActiveControl.ActiveControl.Name
Set b = Me.Controls(EMPLAC)


Je pensais que la variable EMPLAC allait prendre pour valeur CA1 mais apparament non puisque quand je veux la visualiser dans une cellule du classeur Excel, cette cellule reste vide. 
Je n'ai par conter aucune idée de la signification de la dernière ligne. Et quand j'avance pas à pas dans la macro il me dit que la fonction Me n'est pas définie alors que l'applicaiton marche très bien quand on la lance à partir du Userform !

Merci pour votre aide !

Mytå · Answer

Salut le forum 

Pour avoir CA1 comme valeur 
EMPLAC = Me.ActiveControl.Name
Permet de traiter les propriétes du CommandButton CA1 
Set b = Me.Controls(EMPLAC)

Mytå 
Quelle prétention de prétendre que l'informatique est récente 
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]

[VBA]Fonction Me.Controls Me.ActiveControl

1 réponse

Discussions similaires