MFC

Résolu/Fermé
nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 - 24 avril 2020 à 09:00
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 - 24 avril 2020 à 09:49
Bonjour,
j'essaie de faire en sorte que lorsque je sélectionne une cellule,la ligne toute entière se colore 'dune couleur
et la colonne toute entière d'une autre couleur.
suite a du code récupéré sur internet ne concernant que les lignes et en l'adaptant en plus aux colonnes. malheureusement cela ne fonctionne pas bien.
si quelqu'un pouvait m'aider ,d'avance merci.
j'ai excel 2000

ci-joint mon fichier
https://cjoint.com/c/JDyg6sf2GxC


Configuration: Windows / Firefox 75.0

2 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
24 avril 2020 à 09:24
Bonjour,

Supprime les 2 mises en formes conditionnelles et remplace ta macro par celle-ci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim l%, c%, Dl%, Dc%
  Dl = Cells(Rows.Count, 1).End(xlUp).Row
  Dc = Cells(1, Columns.Count).End(xlToLeft).Column
  Cells.Interior.ColorIndex = 2
  l = ActiveCell.Row
  c = ActiveCell.Column
  Range(Cells(l, 1), Cells(l, Dc)).Interior.ColorIndex = 40
  Range(Cells(1, c), Cells(Dl, c)).Interior.ColorIndex = 36
End Sub
0
nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
24 avril 2020 à 09:39
J'ai installé la macro ,mais le marquage des lignes s'effectue que dans la 1ère colonne
et le marquage des colonnes s'effectue que dans les 10 premières lignes.
0
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
24 avril 2020 à 09:49
Re,
Si tu as une feuille vierge, c'est normal
Le principe est de coloriser la ligne est la colonne depuis la dernière ligne remplie et la dernière colonne remplie
Teste en mettant en A20 un chiffre ou une lettre et idem en Q1
et regarde
0
Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 5 104
Modifié le 24 avril 2020 à 09:43
Bonjour,

tout simplement comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 11
Target.EntireColumn.Interior.ColorIndex = 30
End Sub


tu peux jouer avec les couleurs plus discrètes en remplaçant 11 et 50 par 24 par exemple,
mais supprime tes mises en forme conditionnelle existantes
0