CAVE Lien hypertexte et coloration cellule

[Arawaza]

Bonjour

Je voudrais gérer une cave à vin.

onglet 1 : Casier (qui schématise mes casiers à bouteilles)
onglet 2 : listing (liste la liste de tous les vins)

Quand je suis sur le listing, en cliquant sur B5 (dans mon exemple) je suis rediriger vers la cellule C5 de l'onglet qui correspond a ma bouteille dans mon casier.

Question :
- Peut-on colorier cette case pour qu'elle soit apparente plus facilement puis quand on ferme le fichier la couleur disparaît ?
- avez-vous un autre moyen toujours dans l'esprit listing et casier pour gérer ça ?

Merci à vous tous

 

[DoubleZero]

Re : CAVE Lien hypertexte et coloration cellule

Bonjour, Arawaza, le Forum,

... Peut-on colorier cette case pour qu'elle soit apparente plus facilement puis quand on ferme le fichier la couleur disparaît ?...

Peut-être avec ce code, dans le module de l'onglet "Casier" :

Private Sub Worksheet_Activate()
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 4
End Sub

A bientôt 🙂

 

[phlaurent55]

Re : CAVE Lien hypertexte et coloration cellule

Bonjour à tous,

voir fichier joint

à+
Philippe

 

[Fo_rum]

Re : CAVE Lien hypertexte et coloration cellule

Bonjour,

sans couleur (sauf pour 😀-😀 : 1 rose) mais en raccourci, la référence se retrouvant en première ligne

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Or Intersect(Target, Range("C5:D19")) Is Nothing Then Exit Sub
    Application.Goto Sheets("Listing").Rows(Target + 4), 1
  End Sub

 

[DoubleZero]

Re : CAVE Lien hypertexte et coloration cellule

Re-bonjour,

@ Philippe 🙂 & Fo_rum 🙂 :

Votre interprétation du besoin étant similaire, dois-je en conclure que j'étais, à 13h00, déjà pompette 😛😱😕😱 ?

A bientôt 🙂🙂