Coller transposer dans differentes colonnes selon la celulle
pinkbaby91
Messages postés
23
Date d'inscription
Statut
Membre
Dernière intervention
-
pinkbaby91 Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
pinkbaby91 Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je travaille sur un fichier excel qui va etre documenté par différentes personnes. Je souhaite pouvoir copier transposer différentes colonnes de mon fichier
A colonne A, j'ai un Numauto( mon fichier s'exporte d'access). Un numero par ligne
En colonnes BG à BU, j'ai, sur la premiere lignes, des monnaies (EUR, JPY, RUB, CNY, TRY...) et sur les lignes suivantes, attribuées à chaque NumAuto, des montants de monnaies
Je souhaiterai grace a une macro, pouvoir recuperer, en colonne les monnaies de ma premiere ligne BG BU (qu'il faudra dupliquer en fonction du nombre de Numauto), les montants et mon numAuto dupliqué en face de chaque monnaie.
En gros sur excel ca donne ca (en me supprimant les lignes à 0
ce que l'on documente
Numauto / RUB / JPY / EUR/ USD
1 25 / 200/ 45 / 0
2 30 / 56 / 80 / 90
Et je souhaite obtenir
1 RUB 25
1 JPY 200
1 EUR 45
2 RUB 30
2 JPY 56
2 EUR 80
2 USD 90
Si quelqu'un sait m'aider!! je seche!!
Merci
A.
Je travaille sur un fichier excel qui va etre documenté par différentes personnes. Je souhaite pouvoir copier transposer différentes colonnes de mon fichier
A colonne A, j'ai un Numauto( mon fichier s'exporte d'access). Un numero par ligne
En colonnes BG à BU, j'ai, sur la premiere lignes, des monnaies (EUR, JPY, RUB, CNY, TRY...) et sur les lignes suivantes, attribuées à chaque NumAuto, des montants de monnaies
Je souhaiterai grace a une macro, pouvoir recuperer, en colonne les monnaies de ma premiere ligne BG BU (qu'il faudra dupliquer en fonction du nombre de Numauto), les montants et mon numAuto dupliqué en face de chaque monnaie.
En gros sur excel ca donne ca (en me supprimant les lignes à 0
ce que l'on documente
Numauto / RUB / JPY / EUR/ USD
1 25 / 200/ 45 / 0
2 30 / 56 / 80 / 90
Et je souhaite obtenir
1 RUB 25
1 JPY 200
1 EUR 45
2 RUB 30
2 JPY 56
2 EUR 80
2 USD 90
Si quelqu'un sait m'aider!! je seche!!
Merci
A.
A voir également:
- Coller transposer dans differentes colonnes selon la celulle
- Formule moyenne excel plusieurs colonnes - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Historique copier coller - Guide
- Copier coller pdf - Guide
1 réponse
Bonjour
Essaie cette macro, à adapter éventuellement à ton fichier (en ce qui concerne les feuilles) à lancer depuis la 1ere feuille :
Cdlmnt
Via
Essaie cette macro, à adapter éventuellement à ton fichier (en ce qui concerne les feuilles) à lancer depuis la 1ere feuille :
Sub transfert()
Dim ligne As Long
'dernière ligne remplie 1ere feuille
ligne = Sheets(1).Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
' boucle sur les lignes de 1er feuille
For x = 2 To ligne
numero = Range("A" & x)
' boucles sur les colonnes BG à BU
For y = 59 To 73
monnaie = Cells(1, y)
' si valeur> 0 dans une colonne
If Cells(x, y) > 0 Then
' incremente de 1 le n° de ligne de recopie et inscrit données
lg = lg + 1
With Sheets(2)
.Range("A" & lg) = numero
.Range("B" & lg) = monnaie
.Range("C" & lg) = Cells(x, y)
End With
End If
Next y
Next x
End Sub
Cdlmnt
Via
C'est exactement ce dont j'avais besoin...
Merci, Merci Infiniement