Tableau transposé

[Joe]

Bonjour,

J'utilise un tableau sous Excel qui a un nombre de lignes variable. Ainsi ce tableau est compris entre B2:K(i) ou (i) correspond au numéro de ligne.

A l'aide d'une macro, je voudrais sélectionner ce tableau, le copier, puis faire un collage spécial dans une autre feuille du classeur en utilisant l'option "transposé".

Comment faire un "copier" d'un tableau lorsque l'on ne connait pas sa taille (en nombre de lignes) ?

Merci pour votre aide.

 

[Jon_Chninkel]

bonjour
si tu n'as pas de données adjacentes à ce tableau, l'instruction suivante suffira : range("B2").currentregion.select

sinon c'est un peu plus compliqué.
ceci peut marcher, à éprouver tout de même.
Range("B2:K2", Range("B65536:K65536").End(xlUp)).Select

 

[Moa]

Salut Joe !

Avec la commande : Range(Selection, Selection.End(xlDown)).Select

Si il n'y a pas de lignes vides dans ton tableau.

Ta macro pourrait être comme ça :

Sub RecopierTransposer()

Application.ScreenUpdating = False

Sheets("Tableau").Select
Range("B2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CopieTableau").Select
Range("B2").Select
Selection.PasteSpecial Transpose:=True
Range("A1").Select

Application.ScreenUpdating = True

End Sub

Je t'ai fait un exemple, regarde le fichier joint.

@ +

Moa

 

[Joe]

Merci pour votre aide.

Merci Moa, ta solution marche super !

 

[Moa]

Re Joe !

Quelques petites précisions :

En fait si tu ne connaissais pas, aussi, le nombre de colonnes, ta macro aurait été :

Sheets("Tableau").Select
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

bal bala bla...

Les "Range(Selection, Selection.End(xlDown)).Select et (xlUp) et (xlToRight)
et(xlToleft)", s'arrêtent à la dernière cellule pleine.

Donc il est important que ces commandes soit utilisées avec des tableaux sans colonnes ou lignes vides.

@ +

Moa

 

[Jon_Chninkel]

bonjour


la solution de moa ne marche pas si dans ta colonne B, tu avais des cellules vides alternées avec des cellules pleines.


bye
steph