A
Arkonide51
Guest
Bonjour a toutes et a tous,
Avec la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Button 7").Select
Selection.Characters.Text = [A1]
ActiveSheet.Shapes("Button 8").Select
Selection.Characters.Text = [A2]
ActiveSheet.Shapes("Button 9").Select
Selection.Characters.Text = [A3]
ActiveSheet.Shapes("Button 10").Select
Selection.Characters.Text = [A4]
Range("A1").Select
End Sub
Je peux sur la FEUILLE 1 afficher le mot que je rentre dans las case A1, A2, A3, et A4 sur des boutons "Bouton 1", "Bouton 2", etc...
Ceci ne se passant que sur la feuille 1
Je voudrais que la liste des mots soit sur la FEUILLE 1 et que les boutons soient sur les feuilles 2, 3, 4 etc....
Comment faire ?
Je suis dessus depuis des jours et 😕
D'avance MERCI
Avec la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Button 7").Select
Selection.Characters.Text = [A1]
ActiveSheet.Shapes("Button 8").Select
Selection.Characters.Text = [A2]
ActiveSheet.Shapes("Button 9").Select
Selection.Characters.Text = [A3]
ActiveSheet.Shapes("Button 10").Select
Selection.Characters.Text = [A4]
Range("A1").Select
End Sub
Je peux sur la FEUILLE 1 afficher le mot que je rentre dans las case A1, A2, A3, et A4 sur des boutons "Bouton 1", "Bouton 2", etc...
Ceci ne se passant que sur la feuille 1
Je voudrais que la liste des mots soit sur la FEUILLE 1 et que les boutons soient sur les feuilles 2, 3, 4 etc....
Comment faire ?
Je suis dessus depuis des jours et 😕
D'avance MERCI