Mettre une cellule sélectionnée en évidence

Fermé

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 29 oct. 2015 à 12:55
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 30 oct. 2015 à 13:15

Bonjour,

J'ai un bouton avec ce code :

Application.Goto (ActiveWorkbook.Sheets("Autres documents").Range("D3"))

J'aimerais que lorsque l'utilisateur verra s'afficher la feuille "Autres documents", la cellule "D3" soit mise en évidence autrement que par une simple bordure épaisse.
Par exemple en changeant la police de caractère ou la trame de fond.
Est-ce possible? Et si oui, comment?

(Noter que j'ai d'autres boutons du même type qui mènent à d'autres cellules et d'autres feuilles, selon les cas... et que j'utilise Excel 2010)

Merci!

A voir également:

Excel affichage cellule sélectionnée
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide
Formule excel pour additionner plusieurs cellules - Guide

7 réponses

Réponse 1 / 7

Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
29 oct. 2015 à 13:11

Bonjour,

clic droit sur l'onglet de feuille concernée/visualiser le code et colle ce code

Private Sub Worksheet_Activate()
[D3].Select
[D3].Interior.ColorIndex = 3
[D3].Font.ColorIndex = 5
[D3].Font.Bold = True
End Sub

chaque ligne à une action, au choix sélectionner la cellule D3, coloriser le fond de cellule, coloriser la police ou mettre le texte en gras

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
Modifié par ButteDuLac le 29/10/2015 à 14:56

J'aurais plutôt voulu que dans la macro associée au bouton (dans le menu) s'ajoute le code, et non dans la feuille comme tel. Car il se peut que les gens arrivent dans la feuille par un autre chemin sans que la cellule D3 ne soit activée. Et puis si les gens cliquent sur un autre bouton, ils peuvent arriver dans une autre cellule de cette même feuille.

Les gens ne pourront pas cliquer sur les onglets, de toute façon, car ils ne paraissent pas.

Ah oui, et la cellule ne doit pas rester en couleur, elle doit seulement l'être lorsque la cellule est activée par le bouton (macro), puis dès que les gens se déplacent dans la feuille ainsi atteinte, la cellule reprend son fond sans couleur.

Un peu comme dans Access Sur réception focus vs Sur perte focus

Réponse 2 / 7

Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
29 oct. 2015 à 14:55

Re,

et bien tu copies une ou plusieurs de ces lignes dans ton code existant déjà associé à ton bouton en fonction de ce que tu souhaites et au moment voulu dans le déroulement de ton code

[D3].Select
[D3].Interior.ColorIndex = 3
[D3].Font.ColorIndex = 5
[D3].Font.Bold = True

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
29 oct. 2015 à 15:13

Non, j'ai essayé.
Ça colore l'intérieur de la cellule D3 dans la feuille où est le bouton et non dans la feuille visée. Et la couleur rouge reste en permanence.
Ce code ne répond pas à mon besoin du tout. Désolée, mais merci pour l'effort!

Réponse 4 / 7

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
29 oct. 2015 à 15:26

Bonjour,

comme ceci dans le bouton:

Application.Goto (ActiveWorkbook.Sheets("Autres documents").Range("D3"))
ActiveCell.Interior.ColorIndex = 3

Dans la feuille Autres documents:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("D3").Interior.ColorIndex = 0End Sub

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
29 oct. 2015 à 15:27

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("D3").Interior.ColorIndex = 0
End Sub

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
29 oct. 2015 à 17:36

J'ai fait le test.
Premièrement, je dois ôter la protection de la feuille, ce que je ne veux pas.
Ensuite, la cellule D3 demeure rouge par après...
Je ne veux pas colorer la cellule mais la mettre en évidence (comme je l'ai écrit dans le titre).
Par défaut, dans Excel, la cellule ciblée par ma macro s'entoure d'une bordure plus épaisse, mais je trouve que ce n'est pas assez évident...

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
Modifié par ButteDuLac le 29/10/2015 à 17:46

Ainsi, tout ce qu'il manquerait, c'est qu'en quittant la cellule active, elle redevienne sans couleur de fond.

C'est ce que la macro semble dire, mais ça ne fonctionne pas...

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
Modifié par ButteDuLac le 29/10/2015 à 17:55

AH! Sincèrement désolée!!!
Ça fonctionne, mais... comment je fais pour que toutes les cellules de la ligne 3 reprennent leur forme initiale?
Car on peut arriver dans B3, dans D3, dans F3, etc.
Et au départ, il y a une couleur (RVB 255;255;153) en fond de ces cellules. Je pense que ColorIndex = 36 fera l'affaire, mais il ne me manquerait que cette ligne...

ActiveSheet.Range("D3").Interior.ColorIndex = 36

Remplacer Range("D3") par la plage de cellules B3,D3,F3, etc. (bref toutes les colonnes paires, ligne $3)

Sinon, j'essaierais B$3:Z$3 (je ne devrais pas aller plus loin que z... mais les colonnes impaires seront affectées...

Réponse 5 / 7

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
29 oct. 2015 à 17:53

Il faut cliquer n'importe où dans la feuille pour supprimer la couleur:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("D3").Interior.ColorIndex = 0
End Sub

C'est ce que fait cette macro

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
29 oct. 2015 à 18:11

oui. Ma dernière réponse a croisé la vôtre.
Mais il me reste un seul petit problème...
Trouver une façon que Range("D3") soit remplacé par Range(... toutes les colonne paires de la ligne 3...)
Est-ce possible?
Sinon, je dois faire...

ActiveSheet.Range("B3").Interior.ColorIndex = 36
ActiveSheet.Range("D3").Interior.ColorIndex = 36
ActiveSheet.Range("F3").Interior.ColorIndex = 36
ActiveSheet.Range("H3").Interior.ColorIndex = 36
ActiveSheet.Range("J3").Interior.ColorIndex = 36
ActiveSheet.Range("B3").Font.ColorIndex = 0
ActiveSheet.Range("D3").Font.ColorIndex = 0
ActiveSheet.Range("F3").Font.ColorIndex = 0
ActiveSheet.Range("H3").Font.ColorIndex = 0
ActiveSheet.Range("J3").Font.ColorIndex = 0

Ce qui va être très long, au fur et à mesure que j'ajoute des thèmes (chaque colonne « paire » comporte un thème...)

Réponse 7 / 7

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
30 oct. 2015 à 08:40

voici le code avec une boucle:

Dans le bouton

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
Application.Goto (ActiveWorkbook.Sheets("Autres documents").Range("B3"))
ActiveCell.Interior.ColorIndex = 3
For i = 1 To 10
Selection.Offset(0, 2).Select
ActiveCell.Interior.ColorIndex = 3
i = i + 2
Next i
End Sub

Dans la feuille Autres documents

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Range, C As Range
 For Each Col In Range("A3:Z3").Columns ' a adapter
  For Each C In Col.Cells
  If C.Interior.ColorIndex = 3 Then 'rouge
  C.Interior.ColorIndex = 0 'pas de couleur
 End If
  Next
 Next
End Sub

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
30 oct. 2015 à 08:42

pour effacer les cellules rouges, il faut qu'une cellule est changer dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
30 oct. 2015 à 13:15

Merci!
Je vais essayer, mais je crois que le bouton va mettre en évidence toutes cellules de la ligne 3 en même temps pour les colonnes paires?
Me semble que ce serait plutôt dans la feuille que je devrais avoir un code pour les colonnes paires, pour que toutes les cellules ligne 3 de colonnes paires reviennent à leur couleur initiale.
Peut-être que j'arriverai à m'arranger avec le raisonnement que vous m'avez proposé.
Mais sinon, je vais continuer mon code ligne par ligne. Pour l'instant, je n'ai que trois thèmes, et au fur et à mesure qu'il s'en ajoutera, je corrigerai le code...
Merci de tout ce travail!!!

Discussions similaires

Excel 2010 - Formule SI cellule non vide

Sélection jusqu'à la prochaine cellule non vide

Formule recherche une partie du texte

FAIRE DEPASSER UN TEXTE DE SA CELLULE

Masquer des lignes en fonction de la valeur d'une cellule

Suppression automatique d'une partie de donnée dans une cellule