XL 2021 Spin button

  • Initiateur de la discussion Initiateur de la discussion Did25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Did25

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
Bonjour,
S'il n'y a que trois feuilles, le plus simple est tout simplement de les nommer, comme ceci :
VB:
Private Sub SpinButton1_Change()
Valeur = SpinButton1.Value
[B2] = Valeur
Sheets("Feuil2").[B2] = Valeur
Sheets("Feuil3").[B2] = Valeur
Sheets("Feuil4").[B2] = Valeur
End Sub
Bonjour Did,
Un essai en PJ.
1- Modifier les paramètres du spin button :
1743329090257.png

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

Pièces jointes

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 :
VB:
Private Sub SpinButton1_Change()
For Each F In Worksheets
    Sheets(F.Name).[B2] = SpinButton1.Value
Next F
End Sub
Les autres restant indépendantes.
 

Pièces jointes

Dernière édition:
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 :
VB:
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
 
Dernière édition:
Bonjour,
S'il n'y a que trois feuilles, le plus simple est tout simplement de les nommer, comme ceci :
VB:
Private Sub SpinButton1_Change()
Valeur = SpinButton1.Value
[B2] = Valeur
Sheets("Feuil2").[B2] = Valeur
Sheets("Feuil3").[B2] = Valeur
Sheets("Feuil4").[B2] = Valeur
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
41
Affichages
695
Réponses
40
Affichages
1 K
Réponses
6
Affichages
151
Réponses
7
Affichages
179
Retour