Discussion :

[Florian53]

Bonjour à tous,

Depuis ce matin je galère à trouver un code qui me sélectionne tous les ranges ci dessous espacés de 4 lignes par exemple:

For i =4 to derlgn step 4
.Range ( cells(i,3),cells(i,dercol)).select
Next

J'ai essayé avec une boucle, mais pas concluant

J'ai aussi essayé avec un filtre, pas concluant non plus

Code vb :

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

1
2
3
4
5
6
7
Sheets("Feuil1").Range("B1").AutoFilter Field:=2, Criteria1:="Echange"
Set tbl = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
numRows = tbl.Rows.Count
numColumns = tbl.Columns.Count
tbl.Resize(numRows - 1, numColumns - 2).Select
Selection.Name = "LstFC"
ActiveSheet.AutoFilterMode = False

Je voudrais avoir en sélection ce range : " .Range ( cells(i,3),cells(i,dercol)).select" toutes les 4 lignes et à partir de la ligne 4 jusqu'à derlgn. Pour par la suite nommer cette sélection.

Dans mon 2eme essai, j'ai fait un filtre car mon critère "Echange" apparaît toutes les 4 lignes ( 4,8,12,16,20...), donc si il y a juste une macro qui pourrait me sélectionner les lignes à intervalle de 4 et au départ de ligne 4 et colonne 3. sa serait nickel.

Est que quelqu'un à une idée ?

Merci à vous

[RyuAutodidacte]

Bonjour,

Voir l'utilisation de Union en vba
Ou utilisé les filtres élaborés avec l'ajout d'une colonne afin de pouvoir faire une formule ne prenant en compte que le lignes qui sont en multiple de 4 :
http://philippetulliez.developpez.co...dvancedfilter/

[Theze]

Bonjour,

Voir mon post sur l'autre forum !

[Florian53]

Super theze, merci à toi .

[Menhir]

Code :

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

1
2
3
For i =4 to derlgn step 4
 .Range ( cells(i,3),cells(i,dercol)).select
Next

Un point devant Range et pas de point devant Cells, ça ne sent pas la victoire....

Sans boucle :

Code :

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

 .Range ("C4", .Cells(derlgn, dercol)).select