Appliquer une macro à plusieurs boutons
Fermé
medestrac
-
24 mars 2015 à 10:36
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 24 mars 2015 à 14:46
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 24 mars 2015 à 14:46
A voir également:
- Appliquer une macro à plusieurs boutons
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Lancer une macro dans une macro - Astuces et Solutions
- Macro word - Guide
2 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 24/03/2015 à 11:12
Modifié par michel_m le 24/03/2015 à 11:12
Bonjour
Tu peux utiliser les modules de classe
un petit tuto avec des semaines
https://www.cjoint.com/?3CylpUeQH7b
worbookopen parcours les boutons et appelle à chaque bouton
le module de classe vers semaine qui donne un numéro de semaine quand tu cliqueras sur un bouton avec son N) de semaine te dirigera vers la feuille de la semaine...
a toi d'adapter: ca fait un peu peur la 1) fois qu'on manipule les modumes de classe mais tu 'apercevras que ce n'est pas si compliqué avec un peu d'efforts perso
Michel
Tu peux utiliser les modules de classe
un petit tuto avec des semaines
https://www.cjoint.com/?3CylpUeQH7b
worbookopen parcours les boutons et appelle à chaque bouton
le module de classe vers semaine qui donne un numéro de semaine quand tu cliqueras sur un bouton avec son N) de semaine te dirigera vers la feuille de la semaine...
a toi d'adapter: ca fait un peu peur la 1) fois qu'on manipule les modumes de classe mais tu 'apercevras que ce n'est pas si compliqué avec un peu d'efforts perso
Michel
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
24 mars 2015 à 14:46
24 mars 2015 à 14:46
Bonjour,
Voici un exemple:
Je te laisse mettre les couleurs. Le seul problème,c'est quand tu passes d'un bouton à l'autre il continue son cycle. Il faudrait trouver une solution de ce côté!
Voici un exemple:
Option Explicit
Dim val, valeur
Sub Bouton1_Clic()
mesclics ("Button 1")
Range("A1").Select
End Sub
Sub Bouton2_Clic()
mesclics ("Button 2")
Range("A1").Select
End Sub
Sub mesclics(monbouton As String)
val = val + 1
valeur = val
Select Case valeur
Case Is = 1
ActiveSheet.Shapes(monbouton).Select
Selection.Characters.Text = "NA"
Case Is = 2
ActiveSheet.Shapes(monbouton).Select
Selection.Characters.Text = "En cours"
Case Is = 3
ActiveSheet.Shapes(monbouton).Select
Selection.Characters.Text = "Terminé"
Case Is = 4
ActiveSheet.Shapes(monbouton).Select
Selection.Characters.Text = "En retard"
Case Else
val = 0
End Select
End Sub
Je te laisse mettre les couleurs. Le seul problème,c'est quand tu passes d'un bouton à l'autre il continue son cycle. Il faudrait trouver une solution de ce côté!
24 mars 2015 à 11:28
Je suis tout de même content de (re)découvrir les modules de classes... je les avais oublié avec mon peu d'utilisation de VBA au quotidien.