[VBA]Fonction Me.Controls Me.ActiveControl
Schtroumpf_Wiki
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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 !
1 réponse
Salut le forum
Pour avoir CA1 comme valeur
Permet de traiter les propriétes du CommandButton CA1
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)]
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)]
