Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transformer un tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lilicoco
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lilicoco

Guest
Bonjour

Je ne maitrise pas du tout le langage macro et j'ai besoin d'automatiser une tâche tres fastidieuse à effectuer manuellement.

Je souhaite transformer une matrice double entrées en un tableau simple

exemple

Presentation du Tableau d'origine
Col A Col B Col C Col D Col E
Lign 1 MARIE MARC LOUIS JEAN
210456 10 1 10 10
210457 2 1 2 2
210458 7 1 7 7
210459 12 1 12 12
210460 8 1 0 8


Structure du tableau de destination
210456 10 MARIE
210457 2 MARIE
210458 7 MARIE
210459 12 MARIE
210460 8 MARIE
210456 1 MARC
210457 1 MARC
210458 1 MARC
210459 1 MARC
210460 1 MARC
210456 10 LOUIS
210457 2 LOUIS
210458 7 LOUIS
210459 12 LOUIS
210460 0 LOUIS
210456 10 JEAN
210457 2 JEAN
210458 7 JEAN
210459 12 JEAN
210460 8 JEAN


Sachant que le nombre de cellules remplies en colonne A (210456 - 210457 ...etc ) ainsi que le nombre d'items (MARIE, MARC etc ) en ligne 1 sont variables.

Enfin je souhaite conserver le 1er tableau en Feuil1 et generer le second tableau en Feuil2.

D'avance mille mercis de votre aide
 
Trier par date Trier par votes
Re : Transformer un tableau

Bonjour LiliCoco et bienvenue, salut Michel 🙂,
A tester et à adapter
Code: 
Sub Test()
Dim I As Integer, J As Integer, K As Integer
K = 1
For I = 2 To 5
For J = 2 To 6
Cells(K, 7) = Cells(J, 1)
Cells(K, 8) = Cells(J, 2)
Cells(K, 9) = Cells(1, I)
K = K + 1
Next J
Next I
End Sub
Bon WE 😎
 
Vote positif 0 Vote négatif
Re : Transformer un tableau

Bonjour,

Une tentative avec ceci :

En Feuil2, en A1 :

Code: 
=SI(LIGNE()>(NBVAL(Feuil1!$A:$A)-1)*(NBVAL(Feuil1!$1:$1)-1);"";INDEX(Feuil1!A:A;
MOD(LIGNE()-1;NBVAL(Feuil1!A:A)-1)+2))
à recopier vers la droite en B1

en C1 :

Code: 
=SI(LIGNE()>(NBVAL(Feuil1!$A:$A)-1)*(NBVAL(Feuil1!$1:$1)-1);"";INDEX(Feuil1!
$1:$1;ENT((LIGNE()-1)/5)+2))
Formules à recopier vers le bas

@+

Edit : Bing ! Salut Jean-Noël 🙂

@+
 
Vote positif 0 Vote négatif
Re : Transformer un tableau

Re 🙂,
Corrigé avec ton fichier
Code: 
Sub Test()
Dim I As Integer, J As Integer, K As Integer
K = 1
For I = 2 To 5
For J = 2 To 6
With Sheets("Feuil2")
.Cells(K, 1) = Sheets("Feuil1").Cells(J, 1)
.Cells(K, 2) = Sheets("Feuil1").Cells(J, 2)
.Cells(K, 3) = Sheets("Feuil1").Cells(1, I)
End With
K = K + 1
Next J
Next I
End Sub
Bon WE 😎
Ajout : Salut Tibo
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Transformer un tableau

Superrrrrrrrrrrr

J'ai essayé la derniere proposition de JPN et c'est exactement ce que je souhaitais !!

Merci merci merci à tous !!! ce forum est formidable de part son existence, la qualité, et la rapidité des reponses .... Quel beau sens du partage !

Bravo et merci encore !

(Vous me reverrez 😉 )
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
229
Marie L
M
M
  • Question Question
Google Sheets Formule à rallonge avec conditions
Réponses
13
Affichages
347
Moreno076
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Résolu(e)
XL 2010 tableau de comptage sans doublon
2 3
Réponses
44
Affichages
3 K
cathodique
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
240
vazvaz
V
S
  • Question Question
XL 2021 suite de nombre avec changement tous les 5
Réponses
9
Affichages
751
mapomme
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
818
KRUG WOO
K
S
  • Question Question
XL 2016 Différents calculs et graphiques
Réponses
8
Affichages
403
Stephane72
S
R
  • Résolu(e)
XL 2021 Transformer des données
Réponses
4
Affichages
589
Richard30
R
T
  • Question Question
XL 2019 tableau championnat interbanques
Réponses
1
Affichages
728
fanfan38
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
870
piga25
W
  • Question Question
remplacer des valeurs dans un grand tableau
Réponses
10
Affichages
733
warden
W
D
  • Résolu(e)
XL 2019 Report automatique de données
2
Réponses
17
Affichages
2 K
AtTheOne
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
L
  • Question Question
Microsoft 365 Tableau transposant des valeur B2 juxtaposant des valeurs au départ en A1
Réponses
2
Affichages
488
lusert
L
P
  • Résolu(e)
XL 2010 Attribuer des points à des joueurs suivant leur pronostics
Réponses
13
Affichages
877
Phiphi4457
P
M
  • Résolu(e)
Microsoft 365 VBA pour transformer une plage en tableau + Générer un tableau de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
S
  • Question Question
XL 2016 Nombre de facture close
Réponses
11
Affichages
728
JHA
J
C
  • Question Question
Microsoft 365 Modifier un tableau pour reporting
Réponses
5
Affichages
471
alexga78
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…