Macro excel
Fermé
claire_0812
Messages postés
1
Date d'inscription
vendredi 6 juillet 2012
Statut
Membre
Dernière intervention
6 juillet 2012
-
6 juil. 2012 à 12:03
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 7 juil. 2012 à 16:38
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 7 juil. 2012 à 16:38
A voir également:
- Macro excel
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
- Si et excel - Guide
2 réponses
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
6 juil. 2012 à 15:28
6 juil. 2012 à 15:28
Bonjour,
Est-ce que les 3 cellules peuvent être en jaune ?
Qu'elle est le critère pour que la/es cellules soient jaune ?
Un seul bouton ou un par cellules ?
Sur quelle feuille se trouvent les cellules témoins ?
Est-ce que les 3 cellules peuvent être en jaune ?
Qu'elle est le critère pour que la/es cellules soient jaune ?
Un seul bouton ou un par cellules ?
Sur quelle feuille se trouvent les cellules témoins ?
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
7 juil. 2012 à 16:38
7 juil. 2012 à 16:38
bonjour
tu ne réponds pas aux questions de Le Pingou (salut à toi) donc je tente ceci
bonne suite
tu ne réponds pas aux questions de Le Pingou (salut à toi) donc je tente ceci
Option Explicit
' couleur jaune au choix
Const jaune1 = 6
Const jaune2 = 36
Const jaune3 = 19
Const FTest = "Feuil4" ' feuille où se trouvent les cellules à tester
Public Sub Retour()
With Sheets(FTest)
If .Range("B1").Interior.ColorIndex = jaune1 Then Sheets(1).Activate
If .Range("C1").Interior.ColorIndex = jaune1 Then Sheets(2).Activate
If .Range("D1").Interior.ColorIndex = jaune1 Then Sheets(3).Activate
End With
End Sub
bonne suite
