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

Copier une selection vers une autre feuille en transposé

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

billou74

Guest
Bonjour,
Je souhaiterais via une macro copier les valeurs de la colonne dernieres cotes dans la feuille donnée de manière transposée (voir en bleu dans l'onglet)en sachant que ce tableau peut varier cad que la colonne derniere cotes peut se situer indifferement en i,j,kou l
Voir mon fichier pour mieux comprendre.

A bientot et merci par avance
 

Pièces jointes

Trier par date Trier par votes
Re : Copier une selection vers une autre feuille en transposé

Bonjopur Billou74 le forum
et tu penses que de mettre un autre post avec exactement la même demande c'est bien??
et surtout correct??
Tu n'es pas capable d'expliquer ce que tu veux , alors ouvrir de nouvelles discussions ne servira à rien, il faut expliquer ce que tu veux faire car j'ai vu ton bricolage dans la macro de mdf, et franchement !!!! si tu expliques ce que tu veux, je le répète c'est sans problème
a+
Papou😱
 
Vote positif 0 Vote négatif
Re : Copier une selection vers une autre feuille en transposé

En creant ce fichier je pensais etre plus claire.
Je continuerais a écrire sur ce post et ne vais plus en creer un nouveau.
Peux tu m expliquer ce qui te bloque car je pensais cette fois avoir trouvé la bonne formule pour ma requete.
 
Vote positif 0 Vote négatif
Re : Copier une selection vers une autre feuille en transposé

je reformule .
Je souhaiterais via une macro copier les valeurs de la colonne dernieres cotes (en rouge) pour les coller dans la feuille donnée de manière transposée (dans la zone bleu )en sachant que ce tableau peut varier cad que la colonne derniere cotes peut se situer indifferement en i,j,kou l.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copier une selection vers une autre feuille en transposé

re,🙂🙂🙂
une version simplifié

Code: 
Sub es()
 Dim t(), a As Variant, r As Long
 Set a = [i:l].Find(What:="Dernières cotes", LookIn:=xlValues, LookAt:=xlWhole)
 If a Is Nothing Then
 MsgBox "Non trouvé"
 Else
 r = Cells.Find("*", , , , xlByRows, xlPrevious).Row
 t = a.Offset(1, 0).Resize(r - a.Row, 1).Value
 Sheets("donnée").[c2].Resize(, UBound(t, 1)) = Application.Transpose(t)
 End If
End Sub
 
Vote positif 0 Vote négatif
Re : Copier une selection vers une autre feuille en transposé

Par contre si je veux qu'un tri ascendant de mon tableau s’opère sur cette colonne avant de la transférer vers la page donnée.
Merci
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier une selection vers une autre feuille en transposé

re, comme je comprends??

Code: 
Sub es()
 Dim t(), a As Variant, r As Long
 Set a = [i:l].Find(What:="Dernières cotes", LookIn:=xlValues, LookAt:=xlWhole)
 If a Is Nothing Then
 MsgBox "Non trouvé"
 Else
 r = Cells.Find("*", , , , xlByRows, xlPrevious).Row
 a.Offset(1, 0).Resize(r - a.Row, 1).Sort Key1:=Cells(a.Row + 1, a.Column), Order1:=xlAscending, Header:=xlGuess
 t = a.Offset(1, 0).Resize(r - a.Row, 1).Value
 Sheets("donnée").[c2].Resize(, UBound(t, 1)) = Application.Transpose(t)
 End If
End Sub
 
Vote positif 0 Vote négatif
Re : Copier une selection vers une autre feuille en transposé

re,
en sachant pas bien d'ou demarre ton tableau & ou il se termine une facon de l'ecrire ... a voir si suffisant
peut être des colonnes pleines aprés la colonne recherche


Code: 
Sub es()
 Dim t(), a As Variant, r As Long, c As Byte
 Set a = [i:l].Find(What:="Dernières cotes", LookIn:=xlValues, LookAt:=xlWhole)
 If a Is Nothing Then
 MsgBox "Non trouvé"
 Else
 r = Cells.Find("*", , , , xlByRows, xlPrevious).Row
 c = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
 Cells(a.Row + 1, 1).Resize(r - a.Row, c).Sort Key1:=Cells(a.Row + 1, a.Column), Order1:=xlAscending, Header:=xlGuess
 t = a.Offset(1, 0).Resize(r - a.Row, 1).Value
 Sheets("donnée").[c2].Resize(, UBound(t, 1)) = Application.Transpose(t)
 End If
End Sub
 
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

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
199
sylvanu
F
  • Question Question
XL 2021 Automatiser données en fonction d une variable
Réponses
4
Affichages
339
alexga78
A
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
761
mromain
S
  • Résolu(e)
XL 2016 Copier/Coller des cellules en multipliant par des cellules sur une autre page
Réponses
3
Affichages
828
migau
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
958
steph_29120
S
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
918
MGH
M
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
583
Al1_44
A
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
M
  • Question Question
XL 2021 Copier une cellule sur deux et coller dans une autre colonne
Réponses
5
Affichages
642
DJunqueira
D
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
791
jgav
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
N
  • Résolu(e)
XL 2021 copier ligne vers une feuille existante sous condition et supprimer ligne de la feuille d'origine
Réponses
9
Affichages
872
NicolasKH
N
C
  • Question Question
Microsoft 365 copier coller en changeant la disposition et plage de donnees variable
Réponses
5
Affichages
815
cg1980
C
F
  • Résolu(e)
Microsoft 365 Rassembler les données de plusieurs feuilles dans une feuille récapitulative
2
Réponses
19
Affichages
2 K
cp4
D
  • Question Question
XL 2016 Copier coller en transposant d'une feuille à l'autre
Réponses
3
Affichages
856
job75
C
  • Question Question
XL 2016 Copier et coller une valeur dans plusieurs Listobjects d'une même feuille
Réponses
5
Affichages
580
chris
I
  • Question Question
XL 2016 Extraire une partie d'un texte d'une cellule et le copier vers une autre cellule
2 3
Réponses
32
Affichages
3 K
Staple1600
G
  • Question Question
Microsoft 365 Copier/Coller tableau vers une autre feuille VBA
Réponses
2
Affichages
906
gaelle31
G
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
607
eCHO
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…