× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Conversion tableau en colonne
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Hajar
  Posté le 17/04/2017 @ 23:04 
Aller en bas de la page 
Petite astucienne

Bonsoir,

J'ai un tableau de plusieurs lignes et plusieurs colonnes. Je dois développer une macro pour convertir le tableau en colonne.

Si quelqu'un aurait une idée ? Vous trouverez Ci-joint une petite démonstration du résultat souhaité.

Merci beaucoup et d'avance




[Configuration automatique à compléter]
Windows 7
Chrome 57.0.2987.133

Publicité
Hajar
 Posté le 17/04/2017 à 23:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Voici le tableau initial :

1 A1 A2 A3 A4

2 B1 B2 B3 B4

3 C1 C2 C3 C4

Voici le résultat final

1 A1

1 A2

1 A3

1 A4

2 B1

2 B2

2 B3

2 B4

3 C1

3 C2

3 C3

3 C4



Modifié par Hajar le 17/04/2017 23:11
Gabrilou
 Posté le 17/04/2017 à 23:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Je ne sais pas le faire en une seule opération. Aussi je te propose de copier

A1 A2 A3 A4

Ensuite

Collage spécial, tu coches Transposé



Modifié par Gabrilou le 17/04/2017 23:37
Hajar
 Posté le 17/04/2017 à 23:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Salut,

En fait j'ai un tableau avec 105 colonnes et 10000 lignes. Il m'est impossible de le faire manuellement . Donc je dois développer une petite macro pour ça.

Les tableaux que tu as vu sont juste à titre d'explication du résultat que je souhaite avoir . Merci pour ton retour :)

Gabrilou
 Posté le 17/04/2017 à 23:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Oui, je comprends, 10000 lignes, tu vas y passer la nuit

Daneel Olivaw
 Posté le 17/04/2017 à 23:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Hajar
 Posté le 18/04/2017 à 00:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

En fait , La taille maximale d'une feuille est comme mentionnée sur le lien est:

1 048 576 lignes et 16 384 colonnes donc c'est plutot 1 048 576* 16 384

Daneel Olivaw
 Posté le 18/04/2017 à 00:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Hajar a écrit :

En fait , La taille maximale d'une feuille est comme mentionnée sur le lien est:

1 048 576 lignes et 16 384 colonnes donc c'est plutot 1 048 576*16 384

Personne ne dit le contraire.

Mais 10000 lignes * 105 colonnes = 1 050 000 lignes * 1 colonne

Alors 16 384 colonnes...

ferrand
 Posté le 18/04/2017 à 00:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Macro de principe... mais, comme l'a souligné Daneel Olivaw, il faudra revoir la disposition, ou bien fractionner, ou bien ce qu'on voudra...

Sub Hajar()
Dim Lgn, n&, nn&, i&, k%, no%, wsC As Worksheet
Set wsC = Worksheets("Cible")
With Worksheets("Source")
n = .Cells(.Rows.Count, 1).End(xlUp).Row
k = .Cells(1, .Columns.Count).End(xlToLeft).Column
For i = 1 To n
no = .Cells(i, 1)
Lgn = WorksheetFunction.Transpose(.Range(.Cells(i, 2), .Cells(i, k)).Value)
wsC.Cells(nn + 1, 2).Resize(k - 1).Value = Lgn
wsC.Cells(nn + 1, 1).Resize(k - 1).Value = no
nn = nn + k - 1
Next i
End With
End Sub

Cordialement.

Publicité
Hajar
 Posté le 18/04/2017 à 01:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,

Merci infiniment pour votre retour. J'ai intégré le code , mais apparemment j'ai un petit problème avec la ligne wsC.Cells(nn + 1, 2).Resize(k - 1).Value = Lgn:

Le programme m'affiche une erreur , et je ne sais comment je la corrige :(

Merci encore une fois pour l'aide

ferrand
 Posté le 18/04/2017 à 02:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Erreur ?

Hajar
 Posté le 18/04/2017 à 10:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Non, c'est bon , ça marche très bien merci beaucoup Ferrand

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
383,32 €Smartphone 6.1 pouces Huawei P30 (Full HD+, Kirin 980, 6 Go de RAM, 128 Go) à 383,32 €
Valable jusqu'au 30 Mai

Amazon fait une promotion sur le smartphone Huawei P30 qui passe à 383,32 € livré gratuitement. On le trouve ailleurs à partir de 449 €. Avec un design moderne et élégant, il est notamment équipé d'un sublime écran FullView OLED de 6.1" à résolution Full HD+ de 1080 x 2340 pixels, d'un processeur Kirin 980 Octo-Core cadencé à 2.6 GHz, 6 Go de RAM ainsi que 128 Go de stockage. Porté par un triple capteur photo 40+16+8 MP, ce modèle vous assurera des photos exceptionnelles. De plus, vous apprécierez sa batterie de 3650 mAh, sa conception double SIM, son design robuste et toutes les possibilités offertes par le système d'exploitation Android 9.0.


> Voir l'offre
580,99 €Disque dur externe Western Digital My Book Duo 24 To USB 3.1 à 580,99 €
Valable jusqu'au 30 Mai

Amazon propose actuellement le disque dur externe Western Digital My Book 24 To USB 3.1 à 580,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 800 €. Le My Book Duo est une solution de stockage RAID de bureau d’une très grande capacité, idéale pour stocker des photos, des vidéos, des documents et de la musique. Vous pourrez l'utiliser en mode RAID 0 pour des perfomances ultrarapides (vitesse de lecture séquentielle pouvant atteindre 360 Mo/s) ou bien en mode RAID 1 pour bénéficier d’une redondance et mettre vos données en miroir sur les disques durs installés dans le boîtier. Ce dernier comporte en effet 2 disques durs Western Digital RED de 12 To adaptés aux NAS et qui peuvent être récupérés pour être utilisés ailleurs. Sachant qu'un disque dur RED 12 To coûte au moins 450 €, l'achat du Western Digital My Book Duo 24 To peut aussi être une solution économique si vous avez besoin de 2 disques durs 12 To pour votre NAS.


> Voir l'offre
279,99 €Ecran PC 27 pouces Samsung Space Monitor (WQHD, 144 Hz, borderless, pied plat articulé) à 279,99 €
Valable jusqu'au 31 Mai

La Fnac fait une belle promotion sur l'écran PC 27 pouces Samsung Space Monitor S27R750 qui passe à 279,99 € alors qu'on le trouve ailleurs à partir de 389 €. Cet écran possède une dalle WQHD (2560x1440) à 144 Hz sans bordures et un pied articulé des plus pratique. Monté sur un pied articulé, le Space Monitor S27R750QEU offre un confort d'utilisation au quotidien. Dans sa position initiale, l'écran est plaqué au mur ou positionné de manière traditionnelle. Mais vous pouvez approcher le moniteur jusqu'à ce que la base touche le bureau. Le mouvement est fluide et se fait sans aucune difficulté. La hauteur du bras est ajustable jusqu'à 21.3 cm tandis que le moniteur lui-même offre une inclinaison -5/+20°. L'installation se fait simplement avec le pied sur le bord du bureau avec un système ajustable pour convenir au mobilier avec une épaisseur maximale de 90 mm. 


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique