Discussion :

[CléoB]

J'ai trouvé un code permettant de connaître la 1ère & la dernière ligne sur un filtre.
Le code ne fonctionne pas, j'ai 1 message d'erreur "ELSE sans IF".
Je ne comprend pas pourquoi.
Quelqu'un peux m'aider, ou me donner un autre moyen.
Merci.
Fichier joint.

[Pierre Fauconnier]

Bonjour

Je pense que c'est plus pratique de coller le code dans ton message plutôt que de joindre un fichier...

Cela étant, pour le fond du problème
Soit tu utilises un bloc If... End If

Code :

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

1
2
3
4
5
6
 
If ... Then
    ...
    Else
    ...
End IF

Soit tu utilises le tout sur une seule ligne, ce qui est possible quand il n'y a pas plusieurs instructions pour le If ou le Else

Code :

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

1
2
 
If ... Then ... Else ...

Lorsque je dis "même ligne", je parle de ligne de programmation, c-a-d de ce qui sera considéré comme une ligne par l'interpréteur...

Dans le code corrigé ci dessous, qui est syntaxiquement correct

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With Sheets("Cycle").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If .Areas(1).Rows.Count > 1 Then PremLigne = .Rows(2).Row _
Else PremLigne = .aeras(2).Row
DerLigne = .Areas(Areas.Count)(.Areas(.Areas.Count).Count).Row
 
MsgBox ("Première ligne visible :" & PremLigne)
MsgBox ("Dernière ligne visible :" & DerLigne)
End With
 
With Range("A:A").SpecialCells(xlCellTypeVisible).Areas
If .Item(1).Rows.Count > 1 Then Range("A2").Select _
Else .Item(2)(1).Select
End With

J'utilise _ pour passer à la ligne (lecture du code plus aisée) tout en restant sur une même ligne de programmation.

Ok?

[CléoB]

Merci pour la réponse cela fonctionne, erreur de frappe & de lecture.