Discussion :

[Leviath7]

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]

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]

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]

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]

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]

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