XL 2021 Spin button

[Did25]

Bonjour le Forum ,je recherche une solution pour que mon spin button puisse modifier plusieurs dates qui se trouvent sur plusieurs feuilles . Je vous joins un fichier simple ,ce n'est pas l'original. Merci de votre aide

 

[sylvanu]

Bonjour Did,
Un essai en PJ.
1- Modifier les paramètres du spin button :

2- Dans chaque feuille hormis la première, en B2 mettre : =Feuil1!B2

 

[Did25]

Bonjour Did,
Un essai en PJ.
1- Modifier les paramètres du spin button :
Regarde la pièce jointe 1215535
2- Dans chaque feuille hormis la première, en B2 mettre : =Feuil1!B2

 

[Did25]

Bonjour Sylvanu , merci de ta réponse mais j'ai oublié de te dire que sur les feuilles 2,3,4 ,les cellules sont des références de départ pour des plannings et je souhaiterais pouvoir indépendamment pouvoir modifié ,soit toutes les dates depuis la feuille 1 .

 

[sylvanu]

Re,
Désolé, je ne comprends pas.
Quand on modifie la feuille 1 ça modifie toutes les feuilles, mais on peut aussi modifier indépendamment chaque feuille sans affecter les autres ?
Une cellule ne peut comporter une valeur et une formule. Une solution serait le VBA si vous l'acceptez.
Si oui, voir PJ avec dans la feuille 1 :

Private Sub SpinButton1_Change()
For Each F In Worksheets
    Sheets(F.Name).[B2] = SpinButton1.Value
Next F
End Sub

Les autres restant indépendantes.

 

[Did25]

Re,
Désolé, je ne comprends pas.
Quand on modifie la feuille 1 ça modifie toutes les feuilles, mais on peut aussi modifier indépendamment chaque feuille sans affecter les autres ?
Une cellule ne peut comporter une valeur et une formule. Une solution serait le VBA si vous l'acceptez.
Si oui, voir PJ avec dans la feuille 1 :

Private Sub SpinButton1_Change()
For Each F In Worksheets
    Sheets(F.Name).[B2] = SpinButton1.Value
Next F
End Sub

Les autres restant indépendantes.

Parfait ça correspond parfaitement ,est_il possible de pouvoir sélectionner uniquement les 3 feuilles car mon fichier original possède 10 feuilles

 

[sylvanu]

Bonjour,
S'il n'y a que trois feuilles, le plus simple est tout simplement de les nommer, comme ceci :

Private Sub SpinButton1_Change()
Valeur = SpinButton1.Value
[B2] = Valeur
Sheets("Feuil2").[B2] = Valeur
Sheets("Feuil3").[B2] = Valeur
Sheets("Feuil4").[B2] = Valeur
End Sub

 

[Did25]

Bonjour,
S'il n'y a que trois feuilles, le plus simple est tout simplement de les nommer, comme ceci :

Private Sub SpinButton1_Change()
Valeur = SpinButton1.Value
[B2] = Valeur
Sheets("Feuil2").[B2] = Valeur
Sheets("Feuil3").[B2] = Valeur
Sheets("Feuil4").[B2] = Valeur
End Sub

Merci sylvanu au top ,dsl pour le retard ...Merci le Forum également