Discussion :

[Gormarius]

Bonjour,

Je souhaite pouvoir sélectionner les 6 dernières colonnes d'un tableau de relevé.

Le résultat de mon code donne une sélection qui part de KR1 à ...3 (ligne 3, dernière colonne je suppose).

Code :

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

1
2
3
4
5
Sub Bouton1_Cliquer()
 
Range(Cells(Range("C6").End(xlToRight).Offset(0, -6)), Cells(Range("C6").End(xlToRight).Offset(3, 0))).Select
 
End Sub

Si vous pouvez m'expliquer où j'ai fait une erreur ?

Merci d'avance,

Gormarius

[MarcelG]

Bonjour et bienvenu au Forum,

Il te faut
- définir la dernière colonne informée en partant de la dernière colonne de ta feuille de travail, en allant vers la gauche
- idem pour la ligne
- appliquer ta sélection

Regarde et reviens si nécessaire

[Thautheme]

Bonjour Gormarieus, Marcel, bonjour le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
Sub Bouton1_Cliquer()
Dim PL As Range
Set PL = Range("C6").CurrentRegion
Set PL = PL.Offset(0, PL.Columns.Count - 6).Resize(PL.Rows.Count, 6)
PL.Select
End Sub

[MarcelG]

Salut,

Effectuer un décalage sur un champ contigu me semble dangereux.

Plutôt
A appliquer.
(en supposant que ta base débute en "B3")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Public Sub sel_6col()
Dim derlign As Integer
Dim dercol As Byte
With Worksheets("lawks")
      dercol = .Cells(3, .Columns.Count).End(xlToLeft).Column
      derlign = .Cells(.Rows.Count, 2).End(xlUp).Row
      .Range(.Cells(3, dercol - 5), .Cells(derlign, dercol)).Select
End With
End Sub

[Gormarius]

Bonjour à vous trois, merci pour votre rapidité et votre efficacité, vos différents points de vue sont intéressants et suffisent amplement à solutionner mon problème.

Bonne journée.