Conversion colonnes.
Résolu
chunga's rev
Messages postés
7
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour.
On me demande de convertir une ligne de 12 colonnes en 3 lignes de 4 colonnes, en gardant, bien entendu, les données de celles-ci.
J'avoue être perdu.
Ligne A, données colonne 1 à 12
à convertir en :
Ligne A, données colonnes 1 à 4
Ligne A, données colonnes 5 à 8
Ligne A, données colonnes 9 à 12
Je ne sais même pas si celà est possible.
Merci.
On me demande de convertir une ligne de 12 colonnes en 3 lignes de 4 colonnes, en gardant, bien entendu, les données de celles-ci.
J'avoue être perdu.
Ligne A, données colonne 1 à 12
à convertir en :
Ligne A, données colonnes 1 à 4
Ligne A, données colonnes 5 à 8
Ligne A, données colonnes 9 à 12
Je ne sais même pas si celà est possible.
Merci.
1 réponse
-
Bonjour,
On me demande de convertir une ligne manuellement, formule ou VBA ???????????-
-
Re,
une facon de faire au plus simple:
Sub distrib()
Application.ScreenUpdating = False
With Worksheets("feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
For lig = derlig To 1 Step -1
'colonnes I-L
.Range("I" & lig & ":L" & lig).Cut
If lig = derlig Then
.Range("A" & lig + 1).Select
ActiveSheet.Paste
Else
.Range("A" & lig + 1).Select
Selection.Insert Shift:=xlDown
End If
.Range("E" & lig & ":H" & lig).Cut
.Range("A" & lig + 1).Select
Selection.Insert Shift:=xlDown
Next lig
End With
Application.ScreenUpdating = True
End Sub -
Merci, celà semble donc possible.
Mais ceci a comme résultat:
https://www.cjoint.com/c/DLpopsyy7pH
Et comme je suis une "bille" en VBA, je n'arrive pas à corriger celà... -
-
Parce que je me suis mal exprimé.
Il y a la première colonne de "référence" puis 12 colonne de données. Et celà fait bien 13, sorry.
En fait, le résultat souhaité serait:
https://www.cjoint.com/c/DLpo7fRct88
-
