Discussion :

[Mrfreeze117]

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

[Mrfreeze117]

J'ai trouvé la solution sans passer par un tableau.

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
Sub SélectionLignes()
 
Dim DerniereLigne As Long
Dim i As Long
Dim ls As String
 
With ActiveSheet
     DerniereLigne = .UsedRange.Rows.Count
     For i = 1 To DerniereLigne
         If Application.CountA(Rows(i)) = Empty Then
            If ls = "" Then
            ls = i & ":" & i
            Else
            ls = ls & "," & i & ":" & i
            End If
 
         End If
     Next i
End With
 
Range(ls).Select
 
End Sub

Ce code sélectionne les lignes vide

[Mrfreeze117]

Je viens de remarquer que si j'ai un trop grand nombre de ligne à sélectionner cela ne marche plus ça sature ls. Je pense donc que ma première approche est la meilleur mais du coup je n'ai pas résolu mon problème.

[casefayere]

Bonjour,

Sans voir l'intérêt de selectionner, essayes ce code (à adapter, bien sur)

Code :

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

Rows("1:10").SpecialCells(xlCellTypeBlanks).Select'lignes à adapter

[Mrfreeze117]

De ce que j'ai Lu sur le net Rows ne marche que si les lignes sont contiguës.

Je viens d'essayer ça mais ça marche pas non plus.

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
Sub SélectionLignes()
 
Dim DerniereLigne As Long
Dim Tabl() As Long
Dim i As Long, u As Long, umax As Long
 
    With ActiveSheet
         u = 0
         DerniereLigne = .UsedRange.Rows.Count
         For i = 1 To DerniereLigne
             If Cells(i, 3).Value = "cvc" Then
             ReDim Preserve Tabl(u)
             Tabl(u) = i
             u = u + 1
             umax = u - 1
             End If
         Next i
    End With
 
For u = 0 To umax
 
Union(Range(Tabl(u) & ":" & Tabl(u))).Select
 
Next
 
End Sub

[casefayere]

De ce que j'ai Lu sur le net Rows ne marche que si les lignes sont contiguës.

non, dans ce cas précos c'est quant les colonnes ne sont pas contigues et tu ne le précises pas au départ

[Mrfreeze117]

non, dans ce cas précos c'est quant les colonnes ne sont pas contigues et tu ne le précises pas au départ

Ba je n'ai pas dis qu'elles l'étaient non plus. Qu'est ce que tu appelles précos?

[Mrfreeze117]

Ça y est j'ai trouvé.

Ça marche nickel

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 SélectionLignes()
 
Dim DerniereLigne As Long
Dim Tabl() As Long
Dim i As Long, u As Long, umax As Long
Dim plage As Range
 
    With ActiveSheet
         u = 0
         DerniereLigne = .UsedRange.Rows.Count
         For i = 1 To DerniereLigne
             If Cells(i, 3).Value = "cvc" Then
             ReDim Preserve Tabl(u)
             Tabl(u) = i
             u = u + 1
             umax = u - 1
             End If
         Next i
    End With
 
For u = 0 To umax
    If u = 0 Then
    Set plage = Range(Tabl(u) & ":" & Tabl(u))
    Else
    Set plage = Union(plage, Range(Tabl(u) & ":" & Tabl(u)))
    End If
Next
plage.Select
End Sub

Dites moi ce que vous en pensez.