Transformer la forme d'un tableur

**Leviath7** · 16/04/2018, 08h51

Bonjour à vous,

Pour simplifier la gestion de mes docs eXcel, j'aimerais faire une petite macro pour cette transformation (valable pour 50 000 lignes, quelque soit le nombre de produits rattachés à une pièce) :

Tableau avant macro :

Aj	B	Ci
01764565	Pièce 1	Produit 1
01765085	Pièce 2	Produit 2
		Produit 3
01765266	Pièce 3	Produit 4
		Produit 5
		Produit 6

Tableau après macro :

Aj	B	Ci
01764565	Pièce 1	Produit 1
01765085	Pièce 2	Produit 2 Produit 3
01765266	Pièce 3	Produit 4 Produit 5 Produit 6

Si besoin j'ai détaillé en 'naturel perso' la façon dont je pensais procéder, mais n'étant pas informaticien, je pense que cela peut être imparfait...

Motif global : (Somme pour j=1àN(somme pour i=1àn(Ci=Aj)) ; k défini après

étape A Prendre les données de la ligne i+k à supprimer
étape B Déplacer les données dans la ligne i à conserver (i=j)
étape C Supprimer la ligne i+k

étape A Sélectionner C(i+k)
Sélectionner tout le contenu
Copier le texte CTRL+C
étape B Sélectionner Ci
Cliquer gauche derrière le dernier caractère
Cliquer sur la barre espace
Coller CTRL V
Cliquer sur Entrée
étape C Sélectionner ligne l(i+k)
Supprimer l(i+k)

Condition d'application vis-à-vis de Aj
Règle 1 Ci réfère à Aj pour i=j
Règle 2 C(i+k) réfère Aj pour A(j+k)=0

Merci en tout cas pour votre aide, j'espère que vous pourrez rapidement me répondre, je gagnerai beaucoup de temps dans mon travail

**RyuAutodidacte** · 16/04/2018, 09h39

Bonjour,

Tu pourrais passer par une variable tableau, sur laquelle tu bouclerais en vérifiant les valeurs vides afin de remonter le nom du produit par concaténation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
VA = Range("A2:C50000").Value
   For i= 1 to Ubound(VA)
      If VA(i,1) > "" Then
          L = i
      Else
           VA(L,3) = VA(L,3) & " - " & VA(i,3)
           VA(i,3) = ""
      End If
   Next
   Cells(2, 1).Resize(Ubound(VA), 3).Value = VA

Après utiliser l'enregistreur de macro pour supprimer les lignes vides pouvant se faire manuellement
PS : fais de mon phone, donc j'ai pas vérifié et à tester (faire la déclaration des variables cf. Faq)

**Leviath7** · 16/04/2018, 10h48

Envoyé par RyuAutodidacte

Bonjour,

Tu pourrais passer par une variable tableau, sur laquelle tu bouclerais en vérifiant les valeurs vides afin de remonter le nom du produit par concaténation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
VA = Range("A2:C50000").Value
   For i= 1 to Ubound(VA)
      If VA(i,1) > "" Then
          L = i
      Else
           VA(L,3) = VA(L,3) & " - " & VA(i,3)
           VA(i,3) = ""
      End If
   Next
   Cells(2, 1).Resize(Ubound(VA), 3).Value = VA

Après utiliser l'enregistreur de macro pour supprimer les lignes vides pouvant se faire manuellement
PS : fais de mon phone, donc j'ai pas vérifié et à tester (faire la déclaration des variables cf. Faq)

Bonjour et merci pour votre retour rapide,

Seulement étant néophyte j'ai sûrement du oublier qqch, message d'erreur d'argument non facultatif...
Voilà ce que j'ai fait :
J'ai créé ce module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub transformer_tableur(VA)
Dim VA As Range
Dim L As Long
VA = Range("A2:C50000").Value
   For i = 1 To UBound(VA)
      If VA(i, 1) > "" Then
          L = i
      Else
           VA(L, 3) = VA(L, 3) & " - " & VA(i, 3)
           VA(i, 3) = ""
      End If
   Next
   Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub

Puis j'ai exécuté la macro dans mon eXcel.
Je vous remercie encore pour votre aide

**RyuAutodidacte** · 16/04/2018, 10h52

Déclaration des variables :

Code :

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

Dim VA, i&, L&

VA est un variant ici et non une Range

Edit : il manquait aussi la déclaration de i :

Code :

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

Dim i as Long

dans ton code

**Leviath7** · 16/04/2018, 11h08

Envoyé par RyuAutodidacte

Déclaration des variables :

Code :

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

Dim VA, i&, L&

VA est un variant ici et non une Range

Même message en corrigeant les déclarations de variables... Est-ce qu'il faut redéfinir le UBound ? Je ne vois pas ou se trouve mon erreur.

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
Sub transformer_tableur(VA)
Dim VA As Variant
Dim L As Long
Dim i As Long
VA = Range("A2:C50000").Value
   For i = 1 To UBound(VA)
      If VA(i, 1) > "" Then
          L = i
      Else
           VA(L, 3) = VA(L, 3) & " - " & VA(i, 3)
           VA(i, 3) = ""
      End If
   Next
   Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub

**RyuAutodidacte** · 16/04/2018, 11h35

Attention : bien connaitre les limites d'Excel : https://support.office.com/fr-fr/art...7-269d656771c3
concernant la limitation dans une cellule
sur l'exemple donné pas de souci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim VA, i&, L&
    DL = Cells(Rows.Count, 3).End(xlUp).Row
    VA = Range("A2:C" & DL).Value
    For i = 1 To UBound(VA)
        If VA(i, 1) > "" Then
            L = i
        Else
            VA(L, 3) = VA(L, 3) & " - " & VA(i, 3)
            VA(i, 3) = ""
        End If
    Next
    Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub

**Leviath7** · 16/04/2018, 11h45

Envoyé par RyuAutodidacte

Attention : bien connaitre les limites d'Excel : https://support.office.com/fr-fr/art...7-269d656771c3
concernant la limitation dans une cellule
sur l'exemple donné pas de souci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim VA, i&, L&
    DL = Cells(Rows.Count, 3).End(xlUp).Row
    VA = Range("A2:C" & DL).Value
    For i = 1 To UBound(VA)
        If VA(i, 1) > "" Then
            L = i
        Else
            VA(L, 3) = VA(L, 3) & " - " & VA(i, 3)
            VA(i, 3) = ""
        End If
    Next
    Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub

Merci RyuAutodidacte, code ok, me reste à faire la macro pour supprimer les lignes vides mais ça devrait être moins compliqué pour moi

Je renvoie un message pour statuer sur ce dernier point dans la journée.

**RyuAutodidacte** · 16/04/2018, 13h17

Pour indication, le code de suppression des lignes vides, tient sur une ligne; la boucle est superfétatoire

**Leviath7** · 16/04/2018, 14h14

Envoyé par RyuAutodidacte

Pour indication, le code de suppression des lignes vides, tient sur une ligne; la boucle est superfétatoire

Rebonjour,

j'ai peur d'avoir encore échoué, voici mon idée de code pour la suppression de ligne vide :
Sub suppr()
Dim i As Long
If Cells(i, 1) = "0,00" Then
Rows(Selection.Row).Delete shift:=xlUp
End If
End Sub

Pouvez-vous apporter une correction à ce code svp ?

Merci encore !

**RyuAutodidacte** · 16/04/2018, 15h37

pourquoi avons nous ceci :
If Cells(i, 1) = "0,00"
De plus dans le code il n y a pas de boucle

pourtant avec l'enregistreur de macro, une base de code est donné sur un plateau :
1- sélectionner la plage concernée
2- faire F5
3- cliquer sur "Cellules…"
4- dans "Sélectionner", choisir "Vide" et valider
5- avec l'outil supprimer, supprimer les lignes

Edit : à moins qu'il y a des paramètres dont je n'ai pas la connaissance …
PS : voir dans ma signature comment baliser le code dans un message

**Leviath7** · 16/04/2018, 15h49

Envoyé par RyuAutodidacte

pourquoi avons nous ceci :
If Cells(i, 1) = "0,00"
De plus dans le code il n y a pas de boucle

pourtant avec l'enregistreur de macro, une base de code est donné sur un plateau :
1- sélectionner la plage concernée
2- faire F5
3- cliquer sur "Cellules…"
4- dans "Sélectionner", choisir "Vide" et valider
5- avec l'outil supprimer, supprimer les lignes

Edit : à moins qu'il y a des paramètres dont je n'ai pas la connaissance …
PS : voir dans ma signature comment baliser le code dans un message

Parfait ! Merci

**Leviath7** · 18/04/2018, 09h15

Bonjour,

je reviens à nouveau vers vous pour faire une deuxième transposition de tableau.

Tableau initial

Aj	B	Ci	Di	Ei
1764565	Pièce 1	C1	D1	E1
1765085	Pièce 2	C2	D2	E2
		C3	D3	E3
1765266	Pièce 3	C4	D4	E4
		C5	D5	E5
		C6	D6	E6

Tableau obtenu avec code ci après

Aj	B	Ci	Di	Ei
1764565	Pièce 1	C1	D1	E1
1765085	Pièce 2	C2 - C3	D2 - D3	E2 - E3
1765266	Pièce 3	C4 - C5 - C6	D4 - D5 - D6	E4 - E5 - E6

Autre tableau final souhaité en complément

Aj	B	Ci	Di	Ei	Ci	Di	Ei	Ci	Di	Ei
1764565	Pièce 1	C1	D1	E1
1765085	Pièce 2	C2	D2	E2	C3	D3	E3
1765266	Pièce 3	C4	D4	E4	C5	D5	E5	C6	D6	E6

Voici mes codes de module :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub TestC()
' Ramener contenu de C
Dim VA, i&, L&
    DL = Cells(Rows.Count, 3).End(xlUp).Row
    VA = Range("A2:C" & DL).Value
    For i = 1 To UBound(VA)
        If VA(i, 1) > "" Then
            L = i
        Else
            VA(L, 3) = VA(L, 3) & " - " & VA(i, 3)
            VA(i, 3) = ""
        End If
    Next
    Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub
 
Sub TestD()
' Ramener contenu de D
Dim VA, i&, L&
    DL = Cells(Rows.Count, 4).End(xlUp).Row
    VA = Range("A2:D" & DL).Value
    For i = 1 To UBound(VA)
        If VA(i, 1) > "" Then
            L = i
        Else
            VA(L, 4) = VA(L, 3) & " - " & VA(i, 4)
            VA(i, 4) = ""
        End If
    Next
    Cells(2, 1).Resize(UBound(VA), 4).Value = VA
End Sub
 
Sub TestE()
' Ramener contenu de E
Dim VA, i&, L&
    DL = Cells(Rows.Count, 5).End(xlUp).Row
    VA = Range("A2:E" & DL).Value
    For i = 1 To UBound(VA)
        If VA(i, 1) > "" Then
            L = i
        Else
            VA(L, 5) = VA(L, 5) & " - " & VA(i, 5)
            VA(i, 5) = ""
        End If
    Next
    Cells(2, 1).Resize(UBound(VA), 5).Value = VA
End Sub
 
Sub Lignesvides()
' Supprimer les lignes vides
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.ClearContents
    Selection.ClearContents
    Selection.EntireRow.Delete
End Sub

Je n'arrive pas à transformer les lignes en colonnes sans écraser certaines cellules dans la manip... Quelqu'un a une idée de code qui soit robuste à N éléments C D et E ?

Merci pour votre retour

**Leviath7** · 19/04/2018, 09h44

Bonjour,

J'ai essayé d'avancer de mon côté,

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
Sub TestC()
' Ramener contenu de C
Dim VA, i&, L&
    DL = Cells(Rows.Count, 3).End(xlUp).Row
    VA = Range("A2:AH" & DL).Value
    For i = 1 To UBound(VA)
        If VA(i, 1) > "" Then
            L = i
        Else
            VA(i, 3.L-9) = VA(L, 3)
            VA(i, 3) = ""
        End If
    Next
    Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub

Mais j'ai un message d'erreur sur la ligne en gras, quelqu'un aurait une idée svp ? merci à vous

**RyuAutodidacte** · 19/04/2018, 17h59

Bonjour,

• Afin que le code soit lisible merci de modifier les posts afin de baliser celui-ci des balises [Code] - cf mon PS ci-dessous

Envoyé par RyuAutodidacte

PS : voir dans ma signature comment baliser le code dans un message

• Pour faire le 2d tableau (avec : Ci Di Ei), il suffit de reprendre le 1er code que j'ai fait,
de modifier la plage et d'ajouter les colonnes manquantes dans le/après le Else, comme cette exemple qui reprends la colonne 3 :

Code :

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

1
2
3
4
Else
            VA(L, 3) = VA(L, 3) & " - " & VA(i, 3)
            VA(i, 3) = ""
        End If

VA(i, 3) pourrait s’apparenter Cells(i, 3) => Cellule(Ligne, Colonne) ; mais cela dans la variable Tableau

Transformer la forme d'un tableur [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager