Discussion :

[BtjpsspgrW]

Bonjour,

La première ligne (1:1) utilise un filtre automatique.
À partir de la cellule A1, je demande de décaler d'une cellule vers le bas.
En l'occurrence, dans ce cas, la 2ème cellule est A50 (mais dans un autre cas, elle peut être A10 ou A625), car un filtre personnalisé est sur la cellule M1.
ActiveCell.Offset(1,0).Select désigne la cellule A2, mais je veux sélectionner la 2ème cellule visible de cette feuille.

Comment faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub couleurOnglet()
Range("A1").Select
ActiveCell.Offset(1,0).Select
If IsEmpty(ActiveCell) = False Then
ActiveWorkbook.Sheets("Cours absents").Tab.ColorIndex = 10
Else : ActiveWorkbook.Sheets("Cours absents").Tab.ColorIndex = 3
End If
End Sub

Vous en remerciant par avance.

Cordialement.

[Invité]

Bonjour,

Une solution possible si le but est de passer la couleur de l'onglet en rouge dès la première absence à un cours.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Sub CouleurOnglet()
 
 
Dim LigneDeTitre As Long
Dim DerniereLigne As Long
Dim AireOnglet As Range
Dim CelluleOnglet As Range
 
 
    With Sheets("Cours absents")
 
        .Tab.ColorIndex = 10  ' Assignation de la couleur de l'onglet en vert
        DerniereLigne = .Cells(.Rows.Count, 13).End(xlUp).Row  ' Par rapport à la colonne M
        Set AireOnglet = .Range(.Cells(LigneDeTitre + 1, 1), .Cells(DerniereLigne, 1))
 
        For Each CelluleOnglet In AireOnglet
            If CelluleOnglet.EntireRow.Hidden = False And CelluleOnglet = "" Then
                    .Tab.ColorIndex = 3 ' La couleur de l'onglet passe en rouge
                    Exit For            ' La boucle se termine à la première cellule vide
            End If
        Next CelluleOnglet
 
        Set AireOnglet = Nothing
 
    End With
 
End Sub

Cordialement.

[parmi]

Regarde du côté de SpecialCells dans l'aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Specialcells(xlCellTypeVisible)