Code VBA sélection ligne en fonction contenu cellule

Version imprimable

20/01/2017, 11h02
py86acces

Code VBA sélection ligne en fonction contenu cellule

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:

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

Mais pas de résultat.

Merci pour le coup de main.
20/01/2017, 11h08
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

Bonjour,

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

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

Code:

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

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

Code:

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 )

:pc:

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

merci encore

20/01/2017, 14h27
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.
22/01/2017, 12h20
py86acces

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

Code:

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
23/01/2017, 08h57
Menhir

Il y a plus simple :

Code:

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

Ou bien :

Code:

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

Citation:

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