Bonjour à tous,

Je souhaite sélectionner plusieurs ligne en même temps sachant que j'en ai pas le même nombre à chaque fois et que les numéro de ligne change aussi.

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
Sub SélectionLignes()
 
Dim LigneDeTitre As Long
Dim DerniereLigne As Long
Dim Tabl() As Long
Dim i As Long, u As Long
 
    With ActiveSheet
         LigneDeTitre = 1
         u = 0
         DerniereLigne = .UsedRange.Rows.Count
         For i = DerniereLigne To LigneDeTitre + 1 Step -1
             If Application.CountA(Rows(i)) = Empty Then
             ReDim Preserve Tabl(u)
             Tabl(u) = i
             u = u + 1
             End If
         Next i
    End With
    Range(Rows(Tabl)).Select
 
End Sub
Je me sert de Tabl pour stoker le numéro des lignes à sélectionner.

Merci d'avance pour votre aide