Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Griser case du jour quand clic sur lien

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mikael2235

XLDnaute Occasionnel
Griser case du jour quand clic sur lien [RESOLU]

Bonjour à tous,

Je vous explique mon projet.

J'ai donc dans ma colonne A en vertical des liens hypertextes, et dans ma ligne 1 en hoizontal, la date du jour.

Je voudrais faire une macro qui, quand on clique sur le lien (de la colonne A), il grise sur la même ligne la colonne correspondant à la date du jour.

Merci pour votre aide.

Mikael.


P.S. J'ai mis la pièce jointe en xls, parce que xlsx ne passe pas !
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Griser case du jour quand clic sur lien

Bonjour mikael2235,

Si j'ai bien compris, cette macro dans le code de la feuille :

Code: 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim col As Variant
With Target.Range.Offset(1 - Target.Range.Row, 1 - Target.Range.Column) 'coin en haut à gauche
  .Resize(65536, 256).Interior.ColorIndex = xlNone 'efface toute couleur (à voir...)
  col = Application.Match(CDbl(Date), .EntireRow, 0)
  If IsNumeric(col) Then .Offset(Target.Range.Row - 1, col - 1).Interior.ColorIndex = 15
End With
End Sub

Toute couleur est préalablement effacée. Voir si ça convient...

A+

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Griser case du jour quand clic sur lien

job75 à dit:
Bonjour mikael2235,

[...]

Toute couleur est préalablement effacée. Voir si ça convient...

A+
Cliquez pour agrandir...

Merci pour ce code, le principe est la, mais comme tu le dis il ne faut pas que ça efface toutes les cellules.
Il doit garder les couleurs dans les cellules.

Et après je rajouterai à la fin ActiveWorkbook.Save pour qu'il enregistre les données.

EDIT :

J'ai modifié un peu le code et rajouter ActiveWoorkbook.Save, et tout marche parfaitement.

Merci encore
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
685
Dégé59
D
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
C
  • Question Question
Microsoft 365 MFC colonnes + description +date du jour
Réponses
5
Affichages
509
fanfan38
B
  • Résolu(e)
Microsoft 365 Formule Excel : Colonne selon date du jour
Réponses
4
Affichages
894
djidji59430
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
X
  • Question Question
XL 2010 copier la valeur d'une cellule, si date du jour correspond à la date de la colonne...
Réponses
1
Affichages
748
djidji59430
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
828
AtTheOne
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
9
Affichages
748
clausen
C
P
  • Question Question
Autres Evenements VBA - Fermeture du classeur (Croix grise sur fond jaune) / fermeture de l'application (Croix rouge sur fond blanc)
Réponses
12
Affichages
1 K
papat0
P
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
615
clausen
C
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
S
  • Résolu(e)
Microsoft 365 Inscrire automatiquement la date du jour et bloquer les cellules
Réponses
4
Affichages
784
sebastien176
S
  • Résolu(e)
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
1 K
patricktoulon
C
  • Question Question
XL 2021 EXCEL IMPORTER du texte de plusieurs fichier en 1 fichier
Réponses
6
Affichages
827
Cousinhub
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
822
Oneida
L
  • Question Question
Microsoft 365 [Résolu] Vérification de lien hyper texte vers répertoire valide
Réponses
2
Affichages
508
la lozere
L
C
  • Résolu(e)
Microsoft 365 Segment date, pourquoi ça filtre uniquement sur le premier jour du mois ?
Réponses
2
Affichages
2 K
Cherrylie
C
O
  • Question Question
XL 2019 Renvoyer du texte présent sur une seule case d'une ligne
Réponses
6
Affichages
632
JHA
J
M
  • Résolu(e)
XL 2013 Bouton compteur / annulation du dernier clic
Réponses
9
Affichages
1 K
macca
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…