XL 2016 Transposer colonnes sur lignes

[soumus]

Bonjour cher tous
Je sollicité votre soutien pour résoudre un problème excel. J ai un fichier Excel avec 3 feuilles. Je voudrais un code vba qui va me permettre de copier les données en colonnes sur ma feuille "Cotation "et de les coller en lignes sur la feuille "Base" et ensuite se positionner à la 1ere ligne vide suivante pour la prochaine copie-coller à faire et ainsi de suite.
Merci de votre soutien.

 

[gbinforme]

Bonjour,

Le numérique exige un peu de cohérence :
- ton classeur plante car il veut une feuille facture qui est absente
- tu veux coller sur la feuille "Base" mais elle n'existe pas
- comment initier ta procédure, l'on ne sait pas.

Avec ces anachronismes il est vraiment très difficile d'apporter du soutien.

 

[soumus]

Bonjour
Vous avez parfaitement raison. Ces bouts de codes vba sont unitiles

Bonjour,

Le numérique exige un peu de cohérence :
- ton classeur plante car il veut une feuille facture qui est absente
- tu veux coller sur la feuille "Base" mais elle n'existe pas
- comment initier ta procédure, l'on ne sait pas.

Avec ces anachronismes il est vraiment très difficile d'apporter du soutien.

Vous pouvez les supprimer.

 

[gbinforme]

Bonjour
Vous avez parfaitement raison. Ces bouts de codes vba sont unitiles

Vous pouvez les supprimer.

Bonjour,
Bien sûr j'invente la feuille "Base" et le reste.
Ce serait mieux avec un peu de rigueur dans la demande pour pouvoir aider.

 

[soumus]

Bonjour,
Bien sûr j'invente la feuille "Base" et le reste.
Ce serait mieux avec un peu de rigueur dans la demande pour pouvoir aider.

Il suffit juste de renommer la feuille "BD" par "Base". C est sur cette feuille Base que les données doivent être transposées.

 

[gbinforme]

Bonsoir,
Tu as la macro dans le module "copier"

 

[soumus]

Bonsoir,
Tu as la macro dans le module "copier"

Bonsoir.
Déjà merci pour ce début de solution presque parfaite. La seule chose qui manque c est copier et coller la colonne G (TAUX) et la colonne H (PRIMES) de la feuille "Cotation " et les coller en lignes respectivement juste après capitaux (XOF) sur la feuille "Base" comme indiqué en exemple en haut sur la feuille "Base".
Merci d'avance

 

[gbinforme]

Bonsoir.
Les colonnes sont copiées si elles ne vont pas au bon endroit il te suffit de corriger la destination ce n'est pas bien sorcier.

 

[soumus]

Bonsoir,
Tu as la macro dans le module "copier"

Bonjour
J ai vu le fichier ça correspond exactement à ce que je voulais.Suis entièrementsatisfait.Grand merci à toi pour ce soutien..
Si ce n est pas trop vous demander,est il possible d avoir un code vba pour sauvegarder la feuille "Cotation" en Pdf sur un dossier dénommé "Mes cotations" et ensuite créer un userform avec visionneuse pdf pour lire les fichiers pdf sauvegardés.

 

[Marc Vanlindt]

Pour info, il y a une fonction qui change les lignes en colonnes et vice versa.
Il s'agit de la fonction TRANSPOSE()
Par exemple : Créer une nouvelle feuille "TEST"
En A1 de TEST, copier la formule suivante : =TRANSPOSE(Cotation!A22:H39)
PS : Je ne suis pas sûr que cette fonction soit supportée par Excel 2016...

 

[soumus]

Pour info, il y a une fonction qui change les lignes en colonnes et vice versa.
Il s'agit de la fonction TRANSPOSE()
Par exemple : Créer une nouvelle feuille "TEST"
En A1 de TEST, copier la formule suivante : =TRANSPOSE(Cotation!A22:H39)
PS : Je ne suis pas sûr que cette fonction soit supportée par Excel 2016...

Pour info, il y a une fonction qui change les lignes en colonnes et vice versa.
Il s'agit de la fonction TRANSPOSE()
Par exemple : Créer une nouvelle feuille "TEST"
En A1 de TEST, copier la formule suivante : =TRANSPOSE(Cotation!A22:H39)
PS : Je ne suis pas sûr que cette fonction soit supportée par Excel 2016...

Bonjour Mr Marc
Merci pour l'info.Cette fonction pourrait m être utile dans un autre cas. Pour le cas présent le code Vba m arrange plus parce que la finalité est d avoir une Base où toutes les données de mes Cotations sont stockees,donc de copier et coller a la ligne chaque fois toute nouvelle Cotation. La fonction TRANSPOSE () ne le permet pas.

 

[gbinforme]

Si ce n est pas trop vous demander,est il possible d avoir un code vba pour sauvegarder la feuille "Cotation" en Pdf sur un dossier dénommé "Mes cotations" et ensuite créer un userform avec visionneuse pdf pour lire les fichiers pdf sauvegardés.

Bonjour,
Voilà ta demande codée.
Il faut vérifier le chemin de stockage de tes PDF pour que cela fonctionne.
Il faut modifier les contrôles windows pour éviter le message de suspicion sur la lecture.
Bons tests.

 

[Marc Vanlindt]

Bonjour Mr Marc
Merci pour l'info.Cette fonction pourrait m être utile dans un autre cas. Pour le cas présent le code Vba m arrange plus parce que la finalité est d avoir une Base où toutes les données de mes Cotations sont stockees,donc de copier et coller a la ligne chaque fois toute nouvelle Cotation. La fonction TRANSPOSE () ne le permet pas.

Bonjour.
Avec Excel 2024, ce sera possible grâce à la fonction ETENDRE()... Plus besoin de copier/coller.
Bonne journée.

 

[soumus]

Bonjour,
Voilà ta demande codée.
Il faut vérifier le chemin de stockage de tes PDF pour que cela fonctionne.
Il faut modifier les contrôles windows pour éviter le message de suspicion sur la lecture.
Bons tests.

Bonjour,
J ai testé le fichier .Tous les codes fonctionnent sauf le userform2;lorsque je selectionne le fichier pdf et que je clique sur "Ouvrir Pdf" je reçois un message d' erreur "impossible d'ouvrir le fichier spécifié" en mettant en surveillance la ligne de code : ActiveWorbook.FollowHyperlink fic
Pouvez-vous revoir ce code là.
Merci

 

[soumus]

Bonjour
Bon à savoir,merci du partage mais comment combiner les 2 fonctions pour pouvoir transposer avec ka fonction TRANSPOSE ()et retourner à la ligne vide pour copier et coller avec la fonction ETENDRE()