Discussion :

[varik]

bonjour tout le monde !!
je viens de commencer une macro et je bloque sur une partie des instructions .
je vais détailler mon tableau:

article   trim1  trim2  trim3  trim4  total
c         65     65     684    6465   6846
x         687    68     68     68     6876
x
c
xx
rx
xf
xxs

j'aimerais changer premièrement les codes articles afin de les traduire en famille d'article ,c'est la première fonction remplacer qui tourne sans soucis.

mais la deuxième partie me pose quelques problèmes car je dois regrouper par code article et sommer en même temps les chiffres correspondant afin de les stocker dans la même ligne et supprimer la ligne du deuxième enregistrement .

je vois pas comment récupérer le num de ligne de l'ancien code et qui va être changer afin de pointer dessus pour faire la somme avec le prochain!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Remplacer()
Dim Cel As Range
Dim Plg As Range
Set Plg = Range("A4:A200")
For Each Cel In Plg
     If Cel Like "x*" Then Cel = "yyy"      
     Next Cel
'Call Regrouper (Val, Cel)
End Sub
'Sub Regrouper(Plg,Cel)
'je désire regrouper les lignes contenant les yyy et sommer les enregistrement correspondant.
'stocker la somme dans la cellule de la plus petite ligne correspondante au"yyy"
'End Sub

merci beaucoup

[casefayere]

Bonjour,
essayes comme ça :
si tu es sur que c'est "x*" et non "*x*",sinon adaptes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Remplacer()
Dim Cel As Range
Dim Plg As Range, y As Currency, celtot As String
Set Plg = Range("A4:A200")
y = 0
For Each Cel In Plg
  If Cel Like "x*" Then
    If y = 0 Then celtot = Cel(1, 7).Address'à vérifier où coller le résultat
    y = y + Cel(1, 6)
  End If
Next Cel
Range(celtot) = y
End Sub

[varik]

merci pour votre aide, je pense que je me suis mal exprimé ou compris cotre code car ,ce que je voulais dire :
je veux passer du premier au deuxième tableau .

article  trim1  trim2  trim3  trim4  total    
c           20     10     20     20     90       
x           10     20     10     20     60       
x           10     10     10     10     40
c           20     20     20     20     80
xx
rx
xf
xxs

article  trim1  trim2  trim3  trim4  total
 x          20     30     20     30    100
 c          40     30     40     40    170

c'est pour cela que je voulais faire en deux étapes le remplacement des codes articles avant les regroupements par somme .

[casefayere]

Envoies un fichier bidon ou une image car visuellement, ça prend la tête, surtout que j'ai la grippe et la tête comme une citrouille

[varik]

je vous envoie un fichier pour mieux m'expliquer !!

je veux regrouper les références articles en décomposant premièrement le code article et garder juste la partie avant le séparateur "-" seulement pour les articles commençant par la lettre x .

je pense qu'un visuel sur le fichier excel apportera plus de clarté.

merci et bonne convalescence

[varik]

j'essaie toujours de trouver une alternative car je sais pas si avec un split ,on peut exiger deux conditions :

-une pour appliquer le split que sur les champs qui commencent avec x
-une pour supprimer les caractères juste après le "-" . même le tiret !!

du coup j'ai pensé à une alternative en deux temps :
la première fonction va m'aider à faire une première partie du travail

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Sub Test() 
  Dim Pos As Integer
   Dim I As Long
    'dans la colonne B
    For I = 1 To Range("B" & Rows.Count).End(xlUp).Row
       With Range("B" & I)
         Pos = InStr(.Value, "X")
         If Pos <> 0 Then
               .Value = Left(.Value, InStr(.Value, "") + 3)
           End If
        End With
    Next I
 End Sub

ma question est la suivante ; est ce que je peux me baser sur cette fonction pour regrouper les champs concernées et faire la somme tout en supprimant les lignes traités ?

ou il faut que j'appelle une deuxième fonction pour effectuer la suite ?

merci à vous