Sub Bouton3_Cliquer()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionCette procédure est la 1ere qui a été crée (automatiquement) quand j'ai placé mon 1er bouton sur la feuille ; j'ai gardé le nom par défaut
Donc oui, il s'agit d'une macro qui se lance lors du click sur le bouton (bouton de formulaire).
Seule ? Et avec ce nom ?
Je ne le crois pas !
Allez : metsd-nous ici un copier/coller du code (tout) que contient le module de code de tes macros (Module1, je pense).
Sub Bouton3_Cliquer() nomdubouton = Application.Caller MsgBox (nomduboutton) End Sub
ou ta version de Excel est assez "particulière". Quelle est donc cette version ?
Est-ce une procédure ? Est-ce autre chose ? et quoi exactement (car tu n'en parles pas !) ?
Cette procédure est la 1ere qui a été crée (automatiquement) quand j'ai placé mon 1er bouton sur la feuille ; j'ai gardé le nom par défaut
Sub toto(quoi) MsgBox "voilà mes instructions pour " & quoi.Name End Sub Sub Bouton6_Clic() toto ActiveSheet.Shapes("Bouton 6") End Sub Sub Bouton7_Clic() toto ActiveSheet.Shapes("Bouton 7") End Sub
Sub toto() MsgBox Application.Caller End Sub Sub Bouton6_Clic() toto End Sub Sub Bouton7_Clic() toto End Sub
Sub Bouton3_Cliquer() Dim nomduboutton As String nomduboutton = Application.Caller Range("A50") = nomduboutton UserForm1.Label2 = Cells(63, 2).Value UserForm1.Label3 = Cells(64, 2).Value * 100 & "%" UserForm1.Label5 = Cells(65, 2).Value * 100 & "%" UserForm1.Label7 = Cells(66, 2).Value * 100 & "%" UserForm1.Label9 = Cells(67, 2).Value * 100 & "%" UserForm1.Label11 = Cells(68, 2).Value * 100 & "%" UserForm1.Label13 = Cells(69, 2).Value & " kg/h" UserForm1.Label15 = Cells(70, 2).Value & " °C" UserForm1.Label17 = Cells(71, 2).Value & " b" UserForm1.Label19 = Cells(72, 2).Value & " kg/m3" UserForm1.Show End Sub
ne me donne pas la valeur numérique du bouton (alors que la chaine de texte contient bien cette valeur), j'ai systématiquement 0