[XL-2007] Seléctionner les 3 dernières colonnes d'un tableau à taille variable [Résolu]

[ron13]

Bonjour à tous,

Après des recherches infructueuses je me retourne vers vous. J'ai une feuille de calcul excel qui n'a jamais le même format et je souhaite simplement trouver une macro qui séléctionnera les 3 dernières colonnes.
Comme ces colonnes ne sont pas dans les mêmes numéros de colonnes je n'arrive pas à trouver le moyen de les seléctionner.
La seule chose qui permette de les réperer sont que ce sont les 3 dernières colonnes avant qu'il n'ai plus rien j'avais donc pensé à cela mais cela ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
Sub séléction_colonne()
 
For i = 1 To 100
If Cells(1, i).Value = "" Then i = nb
    Columns("nb").Select
    Columns("nb-1").Select
    Columns("nb-2").Select
End Sub

D'autant que ce qui ne m'arrange pas dans cette méthode et que je dois faire une boucle, n' y a t'il pas plus simple ?

Merci de votre aide

Bon après midi à vous.

[LouiMz]

Bonjour,

Si il n'y a rien après les colonnes :

Code :

1
2
3
4
5
dim j as Integer
 
'Recupere le numero de la derniere colonne non vide (sur la ligne 1)
'Modifier le range en fonction de la ligne où commence le tableau
j = Range("IV1").End(xlToLeft).Column

En espérant avoir répondu

[ron13]

Bonjour Louis,

Merci pour ta réponse. Pardon pour mon ignorance mais que dois-je mettre dans le range ? En effet d'après moi le range est constitué d'un numéro de colonne. Mais dans mon cas je ne souhaite pas inscrire un numéro de colonne, je souhaite que la macro le trouve toute seul car il changera tout le temps. Le tableau ne fait jamais les même dimensions.

Merci à toi.

Cordialement

Ron

[LouiMz]

Re,

En fait le but de cette ligne est de partir de la derniere colonne possible sous Excel (la colonne "IV" sous 2000, par exemple).

Donc en fait, on part de cette colonne jusqu'à ce qu'on tombe (End(xltoleft)) sur la premiere cellule non vide et on lui affecte le numero de colonne.

Le but est de partir d'une colonne très éloignée, qui ne contiendra jamais de données , donc de la cellule Range("IV1") par exemple.

C'est la methode que j'utilise pour lire mes tableaux croisés dynamiques car il tombera systématiquement sur la derniere cellule non vide d'un tableau et donc la derniere colonne.

Je n'ai pas d'autre proposition. Desolé

[jfontaine]

Bonjour,

Une solution (pas vraiment académique)

Sélectionne les 3 dernières colonnes du tableau actif (Correspondant à la cellule active)

Code :

Columns("" & Split(Sheets(1).Cells(1, ActiveCell.End(xlToRight).Column - 2).Address, "$")(1) & ":" & Split(Sheets(1).Cells(1, ActiveCell.End(xlToRight).Column).Address, "$")(1)).Select

[ron13]

re,

J'ai compris ta logique et je compte m'en servir aussi c'est une bonne idée, seulement je me retrouce confronté à un problème très bête. Une fois que j'ai réussi à déclarer la colonne (dans ton exemple : j)

Lorsque j'écrit

Code :

colums("j").select

Il mem séléctionne la colonne J. et il ne comprend pas quand je lui écris :

Code :

Columns("j-1").select

Comment séléctionne-t-on après ?

Merci bien

Ron

[jfontaine]

Le code fournit fait cela.

Je récupère la lettre correspondant à l'index de la dernière colonne -2

Code :

Split(Sheets(1).Cells(1, ActiveCell.End(xlToRight).Column - 2).Address, "$")(1)

[LouiMz]

Ron:

Il suffit de supprimer les guillemets "".

Code :

Columns(j).select

Jerome:

Merci pour cette idée Monsieur Jerome ^^ Je n'avais jamais pensé à coupler la fonction Split et les adresses.

++

[ron13]

J'avance petit à petit :

J'ai réussi à définir quel est le numéro (variable) de la colonne qui m'intéresse en l'écrivant de la manière suivante :

Code :

1
2
Dim colonne As Integer
colonne = Range("IV1").End(xlToLeft).Column

Lorsque je souhaite ensuite slectionner la colonne qui a le numéro "colonne". Cela ne fonctionne pas :

Code :

Columns("colonne:colonne-2").Select

Quelqu'un connait-il la syntaxe pour séléctionner une colonne à partir d"une variable ?

Merci pour votre aide.

Ron

Même sans les guillemets cela ne fonctionne pas

Code :

Columns(colonne:colonne-2).select

ne fonctionne pas il attend un "séparateur de liste".

Pour l'idée de jérome, elle semble tres efficace mais un peu compliqué pour moi, je préfère comprendre ce que j'écris (C'est vrai que ca limite mais c'est préférable je pense)

Cdt

Ron

[LouiMz]

Re,

Désolé je n'avais pas tout dis ^^

Code :

1
2
3
4
5
6
7
Dim j As Integer
 
j = Range("IV1").End(xlToLeft).Column
 
Columns(j).select
Range(Selection, Columns(j-1)).select
Range(Selection, Columns(j-2)).select

En espérant que c'est bon

[jfontaine]

Le code fournit sélectionne les 3 dernières colonnes.

Dans ton code tu cherches a sélectionner à la suite les 3 dernières colonnes, mais seul la colonne j-2 sera sélectionnée.

Que veux tu faire ???

[ron13]

Je dirai que c'est PARFAITEMENT BON !

Merci à tout les deux pour votre aide !

Bonne continuation à vous.

Ron

[Mytå_Qc]

Salut le forum

Peut-être comme ceci pour la ligne 1

Code :

1
2
3
4
5
6
7
8
 
Dim NumCol As Long
 
NumCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
If NumCol < 3 Then MsgBox "Sélection impossible": Exit Sub
 
Cells(1, NumCol).Offset(, -2).Resize(, 3).Select

Mytå_Qc