Masquer une ligne selon un code de couleur avec VBA

Résolu/Fermé

christ.lenoir Messages postés 38 Date d'inscription mardi 6 juin 2017 Statut Membre Dernière intervention 7 septembre 2017 - Modifié le 29 août 2017 à 20:27
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 29 août 2017 à 20:33

Bonjour,

J'ai déjà une macro qui masquer mes lignes sans problème selon une fonction si que j'ai instauré. Voici ma macro :

Sub Masquer_lignes_facturation()
'
   
' pour afficher les lignes
Cells.Select
Selection.EntireRow.Hidden = False
Columns("K:M").Select
Selection.EntireColumn.Hidden = False

' Pour masquer les lignes

Dim Ligne As Integer

For Ligne = 4 To 57
 If Cells(Ligne, 12) = "M" Then
 Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
 End If
Next

' Pour masquer la colonne L
    Columns("L:L").Select
    Selection.EntireColumn.Hidden = True

End Sub

J'aimerais l'améliorer en lui disant :

For Ligne = 4 To 57
If Cells(Ligne, 12) = "COULEUR GRIS" Then
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
End If

Toutefois je ne sais pas comment faire cela...

Merci d'avance

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

A voir également:

Masquer une ligne selon un code de couleur avec VBA
Masquer conversation whatsapp - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Aller à la ligne excel - Guide
Hors ligne instagram - Guide

2 réponses

Réponse 1 / 2

via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
Modifié le 29 août 2017 à 20:18

Bonsoir chris.lenoir

Le code :

For Ligne = 4 To 57
If Cells(Ligne, 12).Interior.ColorIndex = 16 Then
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
End If
Next

16 étant le code couleur du gris foncé

Pour autre gris employer le code adéquat

Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein

christ.lenoir Messages postés 38 Date d'inscription mardi 6 juin 2017 Statut Membre Dernière intervention 7 septembre 2017
29 août 2017 à 20:25

Bonjour,

merci beaucoup.

Avez-vous une charte pour les codes de couleur puisque ça ne marche pas mais ça doit seulement être à cause que le gris n'est pas exactement pareil ?

Merci encore

via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704 > christ.lenoir Messages postés 38 Date d'inscription mardi 6 juin 2017 Statut Membre Dernière intervention 7 septembre 2017
29 août 2017 à 20:33

On la trouve facilement sur le net :

je joins une image des 56 couleurs à mon premier message

christ.lenoir Messages postés 38 Date d'inscription mardi 6 juin 2017 Statut Membre Dernière intervention 7 septembre 2017
29 août 2017 à 20:28

C'est beau j'ai trouvé ça fonctionne ! Merci beaucoup :)

Réponse 2 / 2

ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
Modifié le 29 août 2017 à 20:27

Bonjour

tu as plusieurs gris dans la palette (codés 15 16, 48)

Const gris1 = 15
Const gris2 = 16
Const gris3 = 48

Sub ok()
For ligne = 4 To 57
  ' pour le fond
  If Cells(ligne, 12).Interior.ColorIndex = gris1 Then
    Rows(ligne).Hidden = True
  End If
  ' pour la police
  If Cells(ligne, 12).Font.ColorIndex = gris1 Then
    Rows(ligne).Hidden = True
  End If
Next ligne
End Sub

Cdlmnt

Discussions similaires

sertissage des cables rj45

Que veut dire "correspondant occupé" lors d'un appel ?

[référencement] Ne pas être référencé

Discussions similaires

Newsletters