Discussion :

[FAUFAU57]

Bonjour à tous,

C'est la 1ere fois que je fais appel a une équipe d'experts en la matière puisque je demarre (en autodidact) dans le VBA.

Je vous expose mon souci :
j'ai une liste de produits dans une feuille excel 2007 (8500 lignes x 50 colonnes)
1ere colonne : code du produit
2eme colonne : 1er regroupement produit (valeur numérique de 1 à 99)
3eme colonne : valeur du regroupement précedent (alphanumérique)
4eme colonne : 2eme regroupement produit (valeur numérique de 1 à 99 toujours supérieure au regroupement précédent)
5eme colonne : valeur du regroupement précédent (alphanumérique).
et ainsi de suite...
le nombre de regroupement n'est pas le même pour les 8500 produits
Un meme regroupement peut avoir des valeurs différentes en fonction des produits.

mon souhait :
créer 99 colonnes (correspondant aux 99 regroupements possibles)
et à l'intersection produit/regroupement, mettre la valeur du regroupement correspondant si elle existe.

Si vous le désirez je peux vous joindre une feuille excel d'exemple.

merci pour votre aide.

FAUFAU57


je rajoute en piece jointe un exemple de ce que j'ai et ce que je désire obtenir.

merci

[FAUFAU57]

Bonjour,
c'est toujours moi,

personne ne peux m'aider ?
Le problème serait-il insolvable ?

a quoi correspondent les petits icones a coté a gauche des messages car il semblerait que je sois le seul a avoir une enveloppe fermée acec une flêche retour dessus.

MERCI D'AVANCE.

[jfontaine]

Bonjour,

Ci dessous une proposition mise en place dans ton fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Tri()
 
Dim ShSource As Worksheet
Dim ShCible As Worksheet
Dim i As Long
Dim iCible As Long
Dim Col As Integer
Dim Rg As Range
 
Set ShSource = ThisWorkbook.Sheets("Feuil1")
Set ShCible = ThisWorkbook.Sheets("Feuil2")
 
For i = 5 To ShSource.Range("A" & Rows.Count).End(xlUp).Row
    iCible = ShCible.Range("A" & Rows.Count).End(xlUp).Row + 1
 
    ShCible.Range("A" & iCible).Value = ShSource.Range("A" & i).Value
 
    For Col = 2 To 11 Step 2 'traitement des colonnes
        'Cherche la colonne  cible
        Set Rg = ShCible.Range("A1:L1").Find(what:=ShSource.Cells(i, Col).Value, lookat:=xlWhole)
        'Traitement si trouvé
        If Not Rg Is Nothing Then
            ShCible.Cells(iCible, Rg.Column).Value = ShSource.Cells(i, Col + 1).Value
        End If
 
    Next Col
 
Next i
 
End Sub

tri.xls

[FAUFAU57]

Merci beaucoup

c'est exactement la solution désirée.
on ne peut pas faire mieux.
Il me suffit de la tester sur mes 8500 lignes et 55 colonnes reventilées en 8500 lignes et 99 colonnes. et voir le temps que cela prend.
j'avais déja fait une "sorte" de macro dont le traitement avec des imperfections avait mis plus de trois heures pour faire 2000 lignes. Problème de déclarations de variables je crois (entre autre). Néophyte explique cela.

Merci encore.

je cloture l'appel