Sélection etendre, diminuer ou decaler.

[Paulle]

Bonsoir,
Pour étendre ou diminuer une sélection sur les colonnes à droite, j’ai bien trouvé le moyen :
Sub Macro8()
'Etendre la sélection de 5colonnes puis la réduire de 3.
Range("G7:G10").Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count + 5).Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count - 3).Select
End Sub
J’aimerai pouvoir faire la même manipulation avec les colonnes a gauche.
Ou décaler la sélection d’une ou deux colonnes vers la gauche
Que la sélection devienne F7:G10 ou E7:G10
Merci.
Cordialement.

 

[david84]

Re : Sélection etendre, diminuer ou decaler.

Bonsoir,
utiliser Offset :

Range(Range("G7:G10"), Range("G7:G10").Offset(3, -5)).Select

A+

 

[Paulle]

Re : Sélection etendre, diminuer ou decaler.

Bonsoir,
J'ai testé, impeccable.
Merci David.

 

[david84]

Re : Sélection etendre, diminuer ou decaler.

Je ne l'ai pas précisé mais tu peux aussi étendre la plage vers la droite par exemple :

Range(Range("G7:G10"), Range("G7:G10").Offset(3, 5)).Select

A+

 

[Paulle]

Re : Sélection etendre, diminuer ou decaler.

Merci pour ta précision.

(hors sujet, peut-on mettre la discussion comme résolue? Si oui comment?)