Discussion :

[Prissou]

Bonjour à tous,

Je suis à Montevideo en stage, et je dois réaliser une macro commande au plus vite. Je n'y connais rien car je suis documentaliste et éprouve du mal avec les tutoriaux que j'ai trouvé. Voici mon problème:

Il me faut convertir une ligne de 8 colonnes, en une seule colonne de 8 lignes. En même temps cette ligne doit représenter qu une seule page.

Voici un schéma de ce que j 'ai:

Ref | descri | NTem | TTem | NsT | TsT | NssT | TssT |


Et ce que je voudrais:

Ref
descri
NTem
TTem
NsT
TsT
NssT
TssT


Si quelqu'un a une idée, merci d' avance.

[e040098k]

Essaie ça,

Tu doit d'abord sélectionner ta ligne !

Code :

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

1
2
3
4
5
6
7
' tu converti d'abor ton tableau en texte avec des tabulations comme séparation
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _
        True
' Ensuite tu reconverti ton texte en tableau en précisnt le nombre
'de colonne (ici une seule) le nombre de ligne passe alors à 8 !
    Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=1, _
        NumRows:=8, AutoFitBehavior:=wdAutoFitFixed

Pour découvrir vba : amuse toi avec l'enregistreur de macro :
Outils-->Macro-->Nouvelle Macro

[Prissou]

Merci beaucoup cela marche très bien.

la transformation de la ligne en colonne unique fonctionne.

Mais, ma responsable voudrait que cette ligne soit contenue dans une seule page. Or, pour le moment, la nouvelle ligne qui comprend plus qu'une seule colonne occupe plusieurs pages.

Bref, si quelqu'un sait comment forcer la conversion de la ligne sur UNE seule page (histoire d'améliorer la présentation), qu'il n'hésite pas !!!


merci d'avance

[ouskel'n'or]

Sur une seule page, à l'édition ou à l'écran ?
A l'écran, tu as essayé de modifier le zom dans Excel ? Tu sais, la boîte où il y a marqué 100%...
A l'édition ?
Tu dis

[Prissou]

à l'édition et pas à l'écran, j'aurai deviner quand même....

d'où l'envie d'une macro pour forcer la mise en page de a ligne sur une seule page et non sur 3 ou 4 (aucun probleme avec la grosseur du contenu)

amicalement

[ouskel'n'or]

Code :

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

1
2
3
4
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

Je rigolais, c'est la fin d'une journée chargée en émotions
A+