Macro excel
claire_0812
Messages postés
1
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
j'aurai besoin de votre aide pour une macro excel :
Lorsque B1 est jaune je veux que lorsque je clique sur mon bouton retour il me renvoie sur la feuille 1
Lorsque C1 est jaune je veux que mon bouton retour me renvoie sur la feuille 2
Lorsque D1 est jaune je veux que mon bouton retour me renvoie sur la feuille 3
Merci d'avance :)
j'aurai besoin de votre aide pour une macro excel :
Lorsque B1 est jaune je veux que lorsque je clique sur mon bouton retour il me renvoie sur la feuille 1
Lorsque C1 est jaune je veux que mon bouton retour me renvoie sur la feuille 2
Lorsque D1 est jaune je veux que mon bouton retour me renvoie sur la feuille 3
Merci d'avance :)
A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
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 ?
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
