Recherche d'une solution d'automatisation de tableau
Bonjour !
Pour le boulot, je dois de temps en temps intégrer des produits qu'on reçoit dans notre logiciel interne.
Mais pour ça, il y a une étape de l'intégration qui consiste à écrire la "famille" du produit + son numéro de palette à la place de sa ref.
(j'ai fait un tableau tout propre pour vous aider à comprendre)
Je fais tout ça à la main, et d'habitude y'a plus de 800 produit.
J'aimerais que :
Sur chaque PREMIER produit (j'insiste bien sur "le premier") de chaque palette, soit remplacé automatiquement la référence par "Famille-n°palette.
En clair, il faudrait repérer quand le numéro de palette change, ensuite sur la même ligne choper la référence et la remplacer par "famille-n°de palette".
La petite difficulté je pense c'est que dans le fichier qu'on reçoit, le numéro de palette s'appelle "SLD-numéro", et il faudrait arriver à ne choper que le numéro. Si c'est pas possible, on fera sans, mais ce serait mieux.
Le mieux est de regarder le fichier que je vous transmet en bas de message pour voir le tableau car, je ne sais pas si j'ai été clair dans mes explications.
Alors croyez vous que c'est possble ? Si oui, comment ?
Merci d'avance !!
LE FICHIER :
BOnjour,
En utilisant la condition si numero pallette ligne du dessus différent…..
Bonjour,
Une proposition VBA à étudier.
Cdlt.
Public Sub Process_data()
Dim rng As Range, tbl As Variant, I As Long
Set rng = ActiveSheet.Cells(1).CurrentRegion
tbl = rng.Offset(1).Resize(rng.Rows.Count - 1)
tbl(1, 1) = tbl(1, 3) & "-" & Split(tbl(1, 2), "-")(1)
For I = 2 To UBound(tbl)
If tbl(I, 2) <> tbl(I - 1, 2) Then
tbl(I, 1) = tbl(I, 3) & "-" & Split(tbl(I, 2), "-")(1)
End If
Next I
rng.Offset(1).Resize(rng.Rows.Count - 1).Value = tbl
End SubMerci pour votre réponse, mais je n'arrive pas à l'appliquer sur mes autres tableaux
Bonjour,
C'est sûr, la vision est importante pour les seniors, quoique !...
Le trydactile a des ressources insoupçonnées.
Cdlt.