Discussion :

[py86acces]

Bonjour
Un peu novice dans le sujet, je cherche un code VBA.
Je voudrais sélectionner toutes les lignes a partir de la 20 et toutes celle dont les cellules de la colonne B sont non vide .

j'ai trouvé cela

Code :

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

Rows(20).Resize(Range("B1") + 1).Select

Mais pas de résultat.

Merci pour le coup de main.

[Jean-Philippe André]

Salut,

tu peux decouper ton raisonnement comme ceci :
- filtrer sur la colonne B les cellules vides
http://excel.developpez.com/faq/?pag...iltreAutoMacro
- selectionner les lignes visibles (pour en faire quoi par la suite ?)
http://excel.developpez.com/faq/?pag...LignesVisibles

[pijaku]

Bonjour,

Regarde dans l'aide VBA (ou sur MSDN) à quoi correspond SpecialCells.

Un exemple (qu'il te sera très aisé d'adapter) :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Selectio()
On Error Resume Next
'si Range contient des valeurs :
Range("A1:A5").SpecialCells(xlCellTypeConstants).EntireRow.Select
'si Range contient des formules
Range("A1:A5").SpecialCells(xlCellTypeFormulas).EntireRow.Select
'si Range contient des valeurs ET/OU des formules
Union(Range("A1:A5").SpecialCells(xlCellTypeConstants), Range("A1:A5").SpecialCells(xlCellTypeFormulas)).EntireRow.Select
End Sub

[py86acces]

Bonjour et merci pour vos réponses
Après la pose, voici

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Rows("20:20").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Add Key:=Range( _
        "D20:D107"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Add Key:=Range( _
        "K20:K107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Add Key:=Range( _
        "I20:I107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("PLANNING").Sort
        .SetRange Range("A20:DR107")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$19:$I$107").AutoFilter Field:=2, Criteria1:="<>"
    Rows("20:20").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Add Key:=Range( _
        "D20:D80"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Add Key:=Range( _
        "K20:K80"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("PLANNING").Sort.SortFields.Add Key:=Range( _
        "I20:I80"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("PLANNING").Sort
        .SetRange Range("A20:DR80")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B20").Select
    ActiveSheet.Range("$A$19:$I$107").AutoFilter Field:=2
End Sub

Si il y a un moyen de faire plus court je suis preneur mais cela marche.
Je l'ai réaliser avec enregistrement (macro )



je vais plancher encore
un coup de pouce serait le bien venu.

merci encore

[Menhir]

Un petit conseil : dans la plupart des cas, les Select et Activate sur les Range (ou les Cells, Row, etc.) sont inutile et peuvent être évités.
Ils ralentissent l'exécution et sont visuellement désagréables.

[py86acces]

Bonjour et encore merci
je viens de trouver un code qui pourrais résoudre ma première question

Code :

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

Range(Cells(20,2),Cells(Cells(Rows.Count,2).End(xlUp).Row,2)).Select

Mais, j'ai beaucoup de mal a l'adapter pour qu'il me sélectionne des lignes a la place des cellules.

Est ce que quelqu'un aurait une piste?
Merci

[Menhir]

Il y a plus simple :

Code :

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

Range(Cells(20,2),Cells(Rows.Count,2).End(xlUp)).Select

Ou bien :

Code :

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

Range("B20:B" & Cells(Rows.Count,2).End(xlUp).Row).Select

Mais, j'ai beaucoup de mal a l'adapter pour qu'il me sélectionne des lignes a la place des cellules.

Il y a de nombreuses méthodes. L'un d'elles est d'ajoute la propriété EntireRow à la fin de la désignation.
https://msdn.microsoft.com/fr-fr/lib.../ff836836.aspx