Dernière ligne de couleur

abtony

XLDnaute Impliqué
Bonsoir tout le monde, et bonnes fêtes de pâques,

Comment sélectionner sur une feuille de calcul la dernière ligne de couleur (bleu par exemple) ?

merci pour vos réponses
 

ftho

XLDnaute Occasionnel
Re : Dernière ligne de couleur

Bonsoir,

En considérant que la cellule Ax de la dernière ligne bleue n'est pas vide, on pourrait faire un truc de ce style
Code:
Sub ligne_couleur()
Dim i%
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 5 Then '<-- adapter l'index
Rows(i).Select
Exit Sub
End If
Next i
End Sub
 

ftho

XLDnaute Occasionnel
Re : Dernière ligne de couleur

euuuh ta question était bien "sélectionner la dernière ligne" :p

Pour ne sélectionner que la cellule
Code:
Sub ligne_couleur()
Dim i%
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 5 Then '<-- adapter l'index
Cells(i, 1).Select
Exit Sub
End If
Next i
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 997
Messages
2 084 452
Membres
102 579
dernier inscrit
JLB35