Bonjour,
Je vais essayer d'être très clair...
Donc, j'ai un ensemble de zone de textes auxquelles je veux affecter une macro.
Je sais automatiser cela avec
ActiveSheet.Shapes("Text Box 318").Select
Selection.OnAction = "Feuil3.tb318"
ActiveSheet.Shapes("Text Box 319").Select
Selection.OnAction = "Feuil3.tb319"
Mais pour me simplifier la vie, comme j'ai beaucoup (vraiment) de textbox, et plutot que de générer du code (avec l'excelente méthode de MCRomain
Sub test()
Dim composantVB
Set composantVB = ThisWorkbook.VBProject.VBComponents("Feuil1")
composantVB.CodeModule.AddFromString "Sub MacroTest()" & vbNewLine & "MsgBox ""test""" & vbNewLine & "End Sub"
End Sub)
je voudrais n'avoir qu'une seule fonction cible, et pouvoir savoir dans la fonction sur quel text box on a cliqué..
J'aurais alors qq chose du style :
ActiveSheet.Shapes("Text Box 318").Select
Selection.OnAction = "Feuil3.MaFct"
ActiveSheet.Shapes("Text Box 319").Select
Selection.OnAction = "Feuil3.MaFct"
et
sub Mafct()
dim c as shape
set c = Me.LeControleSurLequelJaiCliqué
end sub
Merci de vos réponses pertinentes !
Je vais essayer d'être très clair...
Donc, j'ai un ensemble de zone de textes auxquelles je veux affecter une macro.
Je sais automatiser cela avec
ActiveSheet.Shapes("Text Box 318").Select
Selection.OnAction = "Feuil3.tb318"
ActiveSheet.Shapes("Text Box 319").Select
Selection.OnAction = "Feuil3.tb319"
Mais pour me simplifier la vie, comme j'ai beaucoup (vraiment) de textbox, et plutot que de générer du code (avec l'excelente méthode de MCRomain
Sub test()
Dim composantVB
Set composantVB = ThisWorkbook.VBProject.VBComponents("Feuil1")
composantVB.CodeModule.AddFromString "Sub MacroTest()" & vbNewLine & "MsgBox ""test""" & vbNewLine & "End Sub"
End Sub)
je voudrais n'avoir qu'une seule fonction cible, et pouvoir savoir dans la fonction sur quel text box on a cliqué..
J'aurais alors qq chose du style :
ActiveSheet.Shapes("Text Box 318").Select
Selection.OnAction = "Feuil3.MaFct"
ActiveSheet.Shapes("Text Box 319").Select
Selection.OnAction = "Feuil3.MaFct"
et
sub Mafct()
dim c as shape
set c = Me.LeControleSurLequelJaiCliqué
end sub
Merci de vos réponses pertinentes !