réorganisation entre cellule et colonne

[mumu]

Bonjour,

Je me creuse la tête depuis un moment sur ma macro (ci-jointe) mais incomplète.
En fait, j'ai des couples de lignes qui contiennent des infos liées.
J'ai mis un exemple......
Les lignes 100 contiennent des données que je voudrais voir apparaître en colonne et les lignes 200 contiennent des info de taille. Par exemple, en jaune et orange les tailles en mm et en bleu le nombre d'individu ayant cette taille.
Je voudrais remanier mon fichier pour faire apparaître les tailles en entête de colonne et les nombre d'individu correspondant en dessous et sur la même ligne '100'.

Est-ce possible d'écrire ça en VB ??
Je vous remercie par avance pourles futures réponses.....

@ +

Mumu

 

[Cousinhub]

Re : réorganisation entre cellule et colonne

Bonjour,

regarde le fichier joint, et dis si cela te convient

le code :

Sub mise_en_forme()
Dim DerLig As Long, DerLig2 As Long, I As Long
Dim DerCol As Byte, J As Byte, K As Long
DerLig = [A65000].End(xlUp).Row - 1
With Sheets("result")
    .Cells.ClearContents
    .[S1] = 10: .[T1] = 11
    .Range("S1:T1").AutoFill Destination:=.Range("S1:CA1")
    For I = 1 To DerLig Step 2
        DerLig2 = .[A65000].End(xlUp).Row + 1
        .Range(.Cells(DerLig2, 1), .Cells(DerLig2, 18)).Value = Range(Cells(I, 1), Cells(I, 18)).Value
    Next I
    K = 2
    For I = 2 To DerLig Step 2
        DerCol = Cells(I, 256).End(xlToLeft).Column
        For J = 3 To DerCol - 1 Step 2
            .Cells(K, Cells(I, J).Value + 9).Value = Cells(I, J + 1).Value
        Next J
        K = K + 1
    Next I
End With
End Sub

ton fichier avec le code (clique sur le bouton vert)

 

[mumu]

Re : réorganisation entre cellule et colonne

Salut bhbh,

Wouha !! Je suis impressionnée, c'est exactement ce que je voulais !!
je te remercie de m'avoir trouvé la solution si rapidement !!!

Sinon, j'ai une petite question.... c'est dans cette ligne que tu demandes de mettre le nombre d'individu en face des tailles ???? j'ai compris tout ton code sauf cette partie.....

For J = 3 To DerCol - 1 Step 2
            .Cells(K, Cells(I, J).Value + 9).Value = Cells(I, J + 1).Value
        Next J

encore merci et @ +

Mumu

 

[Cousinhub]

Re : réorganisation entre cellule et colonne

Bonjour,

effectivement, comme dans la colonne C, tu as la taille, et en D, le nombre, je balaie toutes les colonnes "impaires" (C, E, G......)

K donne le numéro de ligne à renseigner dans la feuille "result"

Cells(I, J).Value + 9 te donne la taille. En effet, en colonne S (soit numéro de colonne 19), tu as la taille 10

Si la cellule (I, J) comporte 34, tu vas donc en colonne 34 + 9 soit 43, soit colonne AQ, et tu y mets la valeur de la cellule située à droite de celle-ci

 

[mumu]

Re : réorganisation entre cellule et colonne

Salut bhbh,

Je te remercie pour ces explications !! Cela me permettra de pouvoir réutiliser ces astuces !!
En tout cas tu m'as enlevé une grosse épine du pied !! Mais je savais que je trouverai mon bonheur ici....

Encore merci et surement @ bientôt.

Mumu