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

La fonction "transposé"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Roblim
  • 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
R

Roblim

Guest
Bonjour,
Je viens solliciter votre aide car je suis en train de tenter de transformer une base de données Excel en un fichier Gedcom pour pouvoir importer dans un outil de généalogie.
J'ai donc un fichier excel avec plus de 10 000 lignes, 4 colonnes et il faut transposer les données dans une seule colonne.
J'ai vu comment faire pour une ligne avec le copier/collerspécial en cochant "transposé".
Mais bien sur je ne peux réitérer cette opération manuellement pour chaque ligne.
Auriez-vous une solution s'il vous plait
Trés cordialement
Robert Costanzo

Je joins le fichier avec l'exemple
Merci de votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : La fonction "transposé"

Bonjour Roblim,
Une proposition:
Code: 
[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] Tablo()
[COLOR=blue]With[/COLOR] Sheets("Feuil2")
    Derligne = .Range("A" & Application.Rows.Count).End(xlUp).Row
    [COLOR=blue]ReDim[/COLOR] Tablo(Derligne * 4)
    k = 0
    [COLOR=blue]For[/COLOR] I = 6 [COLOR=blue]To[/COLOR] Derligne
        [COLOR=blue]For[/COLOR] j = 1 [COLOR=blue]To[/COLOR] 4
            Tablo(k) = .Cells(I, j)
            k = k + 1
        [COLOR=blue]Next[/COLOR] j
    [COLOR=blue]Next[/COLOR] I
[COLOR=blue]End With[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil3")
    .Range("A1").Resize([COLOR=blue]UBound[/COLOR](Tablo, 1)) = Application.transpose(Tablo)
    .Activate
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : La fonction "transposé"

Bonjour Roblim, bonjour le forum,

Je n'ai pas compris ta requête. Tu demandes de transposer en une seule colonne :
J'ai donc un fichier excel avec plus de 10 000 lignes, 4 colonnes et il faut transposer les données dans une seule colonne.
Cliquez pour agrandir...
puis dans l'exemple tu parles de A1, B1, C1 et D1 ???
L'idéal serait que dans le fichier exemple tu montres dans l'onglet Feuil2 le resultat que tu souhaiterais obtenir.

Édition :

Ooops bonjour Efgé on s'est croisé
 
Dernière édition:
Vote positif 0 Vote négatif
Re : La fonction "transposé"

Je vous remercie à tous les trois pour votre aide
Cela fonctionne
Toujours de grands spécialistes sur ce forum et une aide appréciable pour le petit utilisateur que je suis
Amicalement
Robert
 
Vote positif 0 Vote négatif
Re : La fonction "transposé"

Juste une précision complémentaire.
Lorsque dans mon tableau "à transposer" il y a une cellule vide, celle-ci engendre, avec les 2 méthodes proposées, une ligne vide dans la transposition.
Comment adapter le script ou la formule afin que la cellule vide n'engendre pas de ligne vide?
ou
Comment, à partir du résultat, enlever cette ligne en ne changeant rien à l'ordre des autres lignes?
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : La fonction "transposé"

Re à tous, Bonjour david84,
Une modif (en rouge) pour éviter les cellules vides:

Code: 
[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] Tablo()
[COLOR=blue]With[/COLOR] Sheets("Feuil2")
    Derligne = .Range("A" & Application.Rows.Count).End(xlUp).Row
    [COLOR=blue]ReDim[/COLOR] Tablo(Derligne * 4)
    k = 0
    [COLOR=blue]For[/COLOR] i = 6 [COLOR=blue]To[/COLOR] Derligne
        [COLOR=blue]For[/COLOR] j = 1 [COLOR=blue]To[/COLOR] 4
            [COLOR=red][B]If .Cells(i, j) <> "" Then Tablo(k) = .Cells(i, j): k = k + 1[/B][/COLOR]
        [COLOR=blue]Next[/COLOR] j
    [COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Feuil3")
    .Range("A1").Resize([COLOR=blue]UBound[/COLOR](Tablo, 1)) = Application.transpose(Tablo)
    .Activate
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
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

L
  • Question Question
XL 2021 [Power Query] Appliquer un nettoyage identique sur plusieurs tableaux d'une même documentation
Réponses
1
Affichages
189
chris
A
  • Résolu(e)
Microsoft 365 Fusion de 2 tables
Réponses
6
Affichages
329
Amilo
A
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
271
alexga78
A
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
741
Musbek
M
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
393
NikonvsWild
N
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
276
PR.
P
  • Question Question
XL 2021 EXTRAIRE + SOMME des 6 meilleures valeurs avec condition par participant
Réponses
11
Affichages
499
Poulet13
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
574
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
873
alexga78
A
T
  • Résolu(e)
XL 2016 Modification de données en fonction d'une valeur
Réponses
3
Affichages
578
therse
T
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
462
Sissou71
S
K
  • Question Question
XL 2016 Calculer note de sport en fonction de multiples barèmes (sexe, âge, chrono ou résultat net)
Réponses
14
Affichages
860
TooFatBoy
  • Résolu(e)
XL pour MAC Fusion de 2 feuilles dont l'une est issue de Power Query
Réponses
5
Affichages
595
chris
B
  • Question Question
Power BI valeur la plus forte sur 3 colonnes powerBI
Réponses
2
Affichages
529
Wayki
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
602
Phil69970
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
457
cathodique
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
895
picc
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…