Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie la macro suivante :
Sub Test() Dim TotalLignes As Integer, Ligne As Integer, Col As Integer TotalLignes = 550 Ligne = 61 Col = 1 Do Until TotalLignes < 10 Range("A" & Ligne, Range("A" & Ligne + 59)).Cut Range("A1").Offset(0, Col) Col = Col + 1 Ligne = Ligne + 60 TotalLignes = TotalLignes - 60 Loop End Sub
Cordialement. Daniel
"AA" a écrit dans le message de news: %
Bonjour,
J'ai une liste (colone) de 550 lignes. la largeur d'une coolnne est jusque ce qu'il faut pour deux mots (environ 20 caractères en moyennes)
Comment faire pour dire à excel de ne remplir qu'une seule page (s'il le faut en plueisuers colones), comme le fait word (multicolonages)!
Je veux en fait 4 colonnes (ou meme 5 en réduisnat la taille de la police) chaque colone faisant 60 lignes?
Merci d'avance
Bonsoir.
Essaie la macro suivante :
Sub Test()
Dim TotalLignes As Integer, Ligne As Integer, Col As Integer
TotalLignes = 550
Ligne = 61
Col = 1
Do Until TotalLignes < 10
Range("A" & Ligne, Range("A" & Ligne + 59)).Cut
Range("A1").Offset(0, Col)
Col = Col + 1
Ligne = Ligne + 60
TotalLignes = TotalLignes - 60
Loop
End Sub
Cordialement.
Daniel
"AA" <aa@aa.net> a écrit dans le message de news:
%23PRbws83FHA.744@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai une liste (colone) de 550 lignes.
la largeur d'une coolnne est jusque ce qu'il faut pour deux mots (environ
20 caractères en moyennes)
Comment faire pour dire à excel de ne remplir qu'une seule page (s'il le
faut en plueisuers colones), comme le fait word
(multicolonages)!
Je veux en fait 4 colonnes (ou meme 5 en réduisnat la taille de la police)
chaque colone faisant 60 lignes?
Sub Test() Dim TotalLignes As Integer, Ligne As Integer, Col As Integer TotalLignes = 550 Ligne = 61 Col = 1 Do Until TotalLignes < 10 Range("A" & Ligne, Range("A" & Ligne + 59)).Cut Range("A1").Offset(0, Col) Col = Col + 1 Ligne = Ligne + 60 TotalLignes = TotalLignes - 60 Loop End Sub
Cordialement. Daniel
"AA" a écrit dans le message de news: %
Bonjour,
J'ai une liste (colone) de 550 lignes. la largeur d'une coolnne est jusque ce qu'il faut pour deux mots (environ 20 caractères en moyennes)
Comment faire pour dire à excel de ne remplir qu'une seule page (s'il le faut en plueisuers colones), comme le fait word (multicolonages)!
Je veux en fait 4 colonnes (ou meme 5 en réduisnat la taille de la police) chaque colone faisant 60 lignes?
