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

Parcourir une colonne jusqu'à une cellule en couleur

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

GrimoireWeiss

XLDnaute Nouveau
Tout d'abord bonjour à tous,

En tant que très grand débutant en vba et pas du tout informaticien, je viens chercher un peu d'aide dans ce forum.

Je souhaite trouver une macro qui parcourrait les cellules d'une colonne active et s'arrêterait sur les cellules en couleur.
Pour être plus précis, je souhaiterais qu'elle ait les comportements suivants.

Doit sauter :
- Les cellules remplies ou vides et sans couleur
- Les cellules remplies ou vides en noir

Doit s'arrêter sur :
- Les cellules remplies ou vides et en couleur (sauf le noir)
- La dernière cellule utilisée dans la colonne (son emplacement peut varier), en indiquant par un message qu'elle a été atteinte.

L'idéal, si possible, serait qu'elle puisse effectuer les recherches vers le bas et le haut (au choix de l'utilisateur).

La seule chose que j'ai pu "bricoler" pour l'instant est le code suivant, avec ses (grosses) lacunes ;-) :

Code: 
Sub SearchColorDown()
Do
Selection.Offset(1, 0).Select
Loop Until ActiveCell.Interior.ColorIndex <> xlColorIndexNone
End Sub

Le fichier joint sera peut-être plus clair.

Merci d'avance à ceux qui voudront bien m'apporter leurs lumières !
 

Pièces jointes

Trier par date Trier par votes
Re : Parcourir une colonne jusqu'à une cellule en couleur

Bonjour GrimoireWeiss,

Une solution en pièce jointe.
Il manque quelques contrôles pour savoir si on est sur la bonne colonne.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Parcourir une colonne jusqu'à une cellule en couleur

Waouh, merci pour cette réponse express jmps !
À première vue, ton code correspond exactement à ce que je recherchais.
Je vais pouvoir le décortiquer et voir comment il fonctionne.

Merci encore !
 
Vote positif 0 Vote négatif
Re : Parcourir une colonne jusqu'à une cellule en couleur

Question sur ton code, jmps : peux-tu m'expliquer l'utilisation du "And ActiveCell.Interior.ColorIndex <> 1" ?

Edit: J'ai compris, c'est pour le noir ! 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Parcourir une colonne jusqu'à une cellule en couleur

Le code ne marchait que pour la colonne A. J'ai donc modifié la variable Der pour qu'il prenne en compte la colonne de la cellule active :

Code: 
Sub SearchColorDown()
Dim Der As Long
    Der = Cells(65536, ActiveCell.Column).End(xlUp).Row
    If ActiveCell.Row >= Der Then
        MsgBox "Dernière ligne atteinte."
        Exit Sub
    End If
    Do
        Selection.Offset(1, 0).Select
    Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = Der
End Sub
Sub SearchColorUp()
Dim Der As Long
    Der = 2
    If ActiveCell.Row <= Der Then
        MsgBox "Première ligne atteinte."
        Exit Sub
    End If
    Do
        Selection.Offset(-1, 0).Select
    Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = Der
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Parcourir une colonne jusqu'à une cellule en couleur

Je n'ai qu'une chose à dire GrimoireWeiss :
Bravo !

Comme disait Confucius :
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson."

C'est comme ça que tu progresseras. Pas en quémandant des fichiers tout fais.

A+
 
Vote positif 0 Vote négatif
Re : Parcourir une colonne jusqu'à une cellule en couleur

Merci jmps,

J'ai l'habitude de chercher par moi-même avant de demander de l'aide. 🙂

Dans ce cas précis, j'avais atteins mes limites et il me fallait un coup de main.

En regardant ton code, je vois que j'avais en tête toutes les pièces du puzzle (trouver la dernière ligne, exclure une couleur, etc). Je ne savais tout simplement pas comment les "écrire" et les combiner, vu que je connais pas la "grammaire" du vba.

Tu as raison, c'est comme ça qu'on apprend ! 😎
 
Vote positif 0 Vote négatif
Re: Re : Parcourir une colonne jusqu'à une cellule en couleur

Rebonjour,

Encore merci à toi jmps pour ton aide.

Je souhaiterais apporter une modification au code pour la recherche des couleurs vers le bas.

Le problème avec le code actuel est qu'il s'arrête à la dernière cellule remplie. Or, il peut arriver que ma véritable "dernière" cellule soit en couleur et vide.

Donc, est-il possible d'intégrer ce paramètre à la variable Der ?

Je joins un fichier avec le code actuel.

Je vais chercher de mon côté ;-)
 

Pièces jointes

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
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
315
sylvanu
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
183
Ckyara31
C
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
473
Electron24
J
  • Résolu(e)
XL 2021 Coloriser une cellule avec un click d'une colonne
Réponses
10
Affichages
387
TooFatBoy
M
  • Question Question
Autres Mettre en couleur des cellules depuis une date de début jusqu'a la date de fin
Réponses
10
Affichages
504
mcl
M
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
464
spike29
S
M
  • Question Question
Microsoft 365 Verrouiller des cellules qui sont en couleur suite à une mise en forme conditionnelle
Réponses
4
Affichages
903
meunierceline78
M
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
484
anthoYS
L
  • Question Question
XL 2010 Filtrer et mise en couleur de cellules sur une colonne
Réponses
8
Affichages
755
sylvanu
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
679
crocrocro
C
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
890
Laliepomm
L
Y
  • Question Question
XL 2019 Mettre en couleur une cellule selon une condition dans une autre colonne
Réponses
1
Affichages
545
TooFatBoy
P
  • Question Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
611
sylvanu
J
  • Question Question
XL 2019 mettre une couleur en arrière plan dans une cellule en fonction de la valeur d'une autre cellule
Réponses
1
Affichages
826
JLR67
J
O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
966
Oko
O
R
  • Question Question
XL 2013 Sélectionner des cellules vides dans une colonne par rapport à une autre cellule
Réponses
9
Affichages
658
Romain31
R
B
  • Résolu(e)
Autres Colorer une cellule en un clic
2
Réponses
18
Affichages
2 K
baguihome
B
A
  • Question Question
XL 2016 Verrouiller automatiquement la colonne précédente après avoir modifier une cellule de la colonne suivante
Réponses
0
Affichages
478
arnoldbrice19
A
  • Question Question
Microsoft 365 Additionner les 7 cellules non vides de la colonne B en dessus
2
Réponses
15
Affichages
1 K
TooFatBoy
B
  • Résolu(e)
XL 2010 Supprimer des cellules vides avec une condition
Réponses
4
Affichages
803
bagheera
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…