[VBA-W] : macro commande introuvable [Résolu]

[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 :

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 :

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+

[Prissou]

merci bien pour le code mais j'ai un souci avec un ligne précise :

Code :

With ActiveSheet.PageSetup

j'obtiens l'erreur 424 : objet requis


j'ai pourtant bien sélectionné la ligne à transformer...

Bref, dois-je modifier quelque-chose dans cette ligne qui me pose problème ?


merci de votre réponse

[ouskel'n'or]

Désolé j'avais oublié que tu étais sur Word. Là, ça va être plus difficile, word gère ses page lui-même.
Tu as combien de lignes sur ta deuxième page ?

[ouskel'n'or]

Je viens de découvrir un option d'impression
Pièce jointe 12583
Tu regardes, je n'ai sans doute pas la même imprimante que toi
A+

[Prissou]

après la transformation de la ligne de 8 colonnes en une colonne de 8 lignes, j'obtiens un résultat sur 7 pages et des poussières. Bref, je veux "tasser" ces 7 pages en une.


PS : je viens de lire ton message concernant l'imprimante... quel est le rapport avec les macros ?

[ouskel'n'or]

Aucun. Mais si tu veux "Editer" une colonne de huit pages sur une seule, c'est le moyen d'y parvenir.
Mais tu aurais des pattes de mouches
Donc, je ne dois pas comprendre ce que tu veux Désolé
Vaut mieux que je laisse tomber.

[Prissou]

merci de ton aide, le minimum est réalisé !!!

Merci beaucoup !!!


Il ne reste plus qu'à trouver une fonction qui dimensionne la colonne à la largeur de la page...

si qulequ'un a une idée, elle est la bienvenue !!!

merci pour tout dans tous les cas

[Speedrman]

Comment est ce possible qu'un tableau de 8 lignes puisse s'étaler sur 7 pages ?

serait-ce à cause de la police ou de la largeur des lignes du tableau ?? ..

[Prissou]

ouaps, autant pour moi !!!

on le corrige directement à la main en fait...


donc t'avais raison de trouver zarbi !


merci beaucoup pour tout !!!