si valeur dans cellule alors motif dans autre feuille

[zesuila]

Bonjour à tous

Dans mon classeur j'ai :
un onglet planning
et plusieurs autres onglets avec des noms différents mais basé sur la même mise en forme (les noms sont du style ville_expos_mois)
lorsque je suis dans le planning si je clique sur un des dates remplis (il y a le nom de la ville dans la cellule), cela m'ouvre automatiquement un onglet précis.
Et c'est là que je voudrais y faire quelquechose :
donc dans planning j'ai cliqué sur le lien (donc je considère que la cellule de "planning" est toujours active quand je passe à l'onglet du lien)
dans cet onglet j'ai une liste de validation en C3 avec les choix suivants :
option - annulé - ok
comment faire pour que si je choisis
- le choix "option" en C3, cela me mette la cellule active de "planning" avec un motif à point
- le choix annulé, cela me mette cette cellule active du "planning" avec motif rayé
- et pour ok aucun motif

est ce réalisable ? (quelle question bête, vu la perspicacité, l'intelligence, des membres de ce forum)😀

merci

 

[ERIC S]

Re : si valuer dans cellule alors motif dans autre feuille

Bonjour

avec la mise en forme conditionnelle :

tu sélectionnes ta cellule

format
mise en forme conditionnelle

tu as trois critères possible, il ne t'en faut que 2

"la valeur de la cellule est égale à " "option"
et dans le format tu sélectionnes la police, bordure ou le fond que tu souhaites


en deuxième critère, même chose pour "annulé"

 

[zesuila]

Re : si valuer dans cellule alors motif dans autre feuille

salut Eric
Oui cela je sais faire, et c'est d'ailleurs ce que j'ai fait dans cette cellule C3
mais dans la cellule active de l'onglet planning je ne veux QUE le motif de cette C3 .

 

[ERIC S]

Re : si valeur dans cellule alors motif dans autre feuille

re

désolé je suis allé un peu trop vite

tu veux que la cellule active soit colorée uniquement quand tu la sélectionne? ou tout le temps en fonction (macro) du contenu de la feuille pointée (peut-être mfc)

là je retourne bosser, je reste en veille sur le fil si personne ne prend le relais je regarde ce soir

 

[zesuila]

Re : si valeur dans cellule alors motif dans autre feuille

voilà un exemple en PJ
je pense que cela peut être un peu plus clair que mon explication 🙂

merci de ton aide (et de la peut être future des autres excelliens !)

 

[ERIC S]

Re : si valeur dans cellule alors motif dans autre feuille

Re

un essai macro à mettre pour la feuille planning, recalcule à chaque activation de feuille
passe tous les liens en revue et va voir C3 dans chaque feuille correspondante

Private Sub Worksheet_Activate()
For Each h In ActiveSheet.Hyperlinks
plage = h.Range.Address
activité = Left(h.SubAddress, Len(h.SubAddress) - 3)
Select Case Sheets(activité).Range("C3").Value
Case "ok"
Range(plage).Interior.Pattern = xlPatternNone
Case "option"
Range(plage).Interior.Pattern = xlPatternGray16
Case "annule"
Range(plage).Interior.Pattern = xlPatternLightVertical
End Select
Next
End Sub

 

[vbacrumble]

Re : si valeur dans cellule alors motif dans autre feuille

Bonsoir



Une variante avec Switch (pas souvent utilisé le Switch 😉 )

Adapter avec le code d'ERIC pour activité

Private Sub Worksheet_Activate()
Dim r As Range, h As Hyperlink, plage$
Set r = Sheets(2).Range("C3")
For Each h In ActiveSheet.Hyperlinks
plage = h.Range.Address
Range(plage).Interior.Pattern = _
Switch(r = "ok", xlPatternNone, r = "option", xlPatternGray16, r = "annule", xlPatternLightVertical)
Next
End Sub

 

[job75]

Re : si valeur dans cellule alors motif dans autre feuille

Bonsoir zsuila, Eric, vbacrumble,

Si j'ai bien compris, voici 3 MFC dans la feuille PLANNING (j'ai mis des conditions parallèles à celles que vous avez mises dans les cellules C3).

Dans les autres feuilles, la cellule C3 est nommée.

A+

 

[ERIC S]

Re : si valeur dans cellule alors motif dans autre feuille

Bonjour job75

J'avais envisagé cette solution mais j'ai peur qu'à l'usage, si le nombre de feuilles se multiplie, la gestion soit lourde si l'utilisateur n'est pas "excellien"

de même si les mises à jour sont peu fréquentes, on a tendance à oublier ce qu'il faut faire

Sinon, c'est sûr je préfère à une solution vba

bonne journée à tous, i's time to go for me 😱

 

[zesuila]

Re : si valeur dans cellule alors motif dans autre feuille

bonjour ERIC S, job75, Vbacrumble,le forum

Bon je viens de tester tout cela, je vous remercie d'ailleurs de perdre un peu de votre temps avec mes demandes.

Pour la version de Job75, le soucis c'est que là il y avait 3 cellules dans planning mais il risque d'y en avoir beaucoup plus (vu que c'est un planning annuel!) donc les MFC à chaque fois pas possible !🙁

Pour la version d'Eric, cela fonctionne à merveille !!!😀
pour la version de Vbacrumble, soit je n'ai pas fait ce qu'il fallait faire (en fait j'ai retiré le code d'Eric dans worksheet activate et ai mis le tien en laissant le module d'Eric. Là en fait cela me change tout les motifs en mêm temps !!!😕 par ex si je clique sur toulouse , que je mettes le choix annule, en revenan t sur planning, toutes les cellules ont le même motif !

donc sois je me suis trompé dans la "fusion des 2 codes " soit cela ne va pas non plus
je pars donc sur la solution d'Eric.
Mais je viens de voir qu'Eric m'a renvoyé un post je vais le voir après avoir envoyé celui ci.

Merci

 

[zesuila]

Re : si valeur dans cellule alors motif dans autre feuille

Petite question à Eric par rapport à son code
pourquoi dans le module 'macro 4', il y a une référence a la cellule C6 alors que partout ailleurs c'est la C3 ?

 

[zesuila]

Re : si valeur dans cellule alors motif dans autre feuille

et d'ailleurs est il utile ce module ? car je viens d'essayer sans et cela a l'air de fonctionner!

 

[zesuila]

Re : si valeur dans cellule alors motif dans autre feuille

bon dans mon projet cela ne veut pas fonctionner
peut être à cause de cette ligne :
activité = Left(h.SubAddress, Len(h.SubAddress) - 3)
Select Case Sheets(activité).Range("C3").Value

que veut elle dire ?

 

[vbacrumble]

Re : si valeur dans cellule alors motif dans autre feuille

Bonjour à tous


Voici une pièce jointe avec le code de mon précédent message modifié en conséquence.

PS: il fait exactement la même chose que celui d'ERIC S
seul la syntaxe du code VBA est différente.
Dans un cas, un Select Case, dans l'autre l'emploi de Switch.

 

[zesuila]

Re : si valeur dans cellule alors motif dans autre feuille

au temps pour moi VBACRUMBLE, en fait cela fonctionne aussi. Mais par contre dans mon projet il ne veut ni du tien ni celui d'Eric.