Bonjour la communauté,
J'ai un soucis. J'essai d'imbriquer plusieurs variables dans une commande de feuille "Worksheet_Change". Sachant qu'on ne peut avoir qu'une seule commande de ce type par feuille, je ne sais pas comment compiler plusieurs fonctions.
Je m'explique: J'essai de faire en sorte que le bouton A prenne la valeur de la cellule F11. Jusque là, ça fonctionne. LE problème est que je dois faire de même pour 10 boutons au total, avec chacun un nom différent, qui doivent faire référence comme suite:
Bouton A = F11
Bouton B = F14
Bouton C = F17
etc...
Je joint un fichier démo si ça peut vous aider
Mon code actuel est le suivant, mais ce fonctionne que pour la 1er variable.
Merci d'avance pour votre précieuse aide.
J'ai un soucis. J'essai d'imbriquer plusieurs variables dans une commande de feuille "Worksheet_Change". Sachant qu'on ne peut avoir qu'une seule commande de ce type par feuille, je ne sais pas comment compiler plusieurs fonctions.
Je m'explique: J'essai de faire en sorte que le bouton A prenne la valeur de la cellule F11. Jusque là, ça fonctionne. LE problème est que je dois faire de même pour 10 boutons au total, avec chacun un nom différent, qui doivent faire référence comme suite:
Bouton A = F11
Bouton B = F14
Bouton C = F17
etc...
Je joint un fichier démo si ça peut vous aider
Mon code actuel est le suivant, mais ce fonctionne que pour la 1er variable.
VB:
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("F11")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("F14")) Is Nothing Then
Me.CommandButton2.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton2")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub