Doublons & Rangement
Bonjour,
J'ai une question sur Excel et je ne sais pas si c'est possible, j'ai même du mal a trouver un titre adéquate..
Voila j'ai un tableau ou des références produits sont sur 1, 2 ou 3 pays mais doublonnées et sont dans une liste comme suit :
179413 SPF6S FR
179413 SPF6S DE
550120 TENGE FR
550120 TENGE UK
550120 TENGE DE
On voit ici par ex. que 2 référence est sur 2 pays et 1 référence sur 3 pays.
Ce que j'aimerai avoir c'est ca :
179413 SPF6S FR DE
550120 TENGE FR UK DE
C'est a dire n'avoir plus que 2 références et ou le 2eme pays soient mis en colonne E et si il y a 3eme alors en colonne F.
Si cela est plus simple il est aussi possible de se retrouver ça :
179413 SPF6S FR DE
179413 SPF6S FR DE
550120 TENGE FR UK DE
550120 TENGE FR UK DE
550120 TENGE FR UK DE
Au cas ou la suppression des doublons de la colonne A soient compliqué ce qu'il sera facile de faire avec Excel après coup.
Merci de votre aide
Salut,
oui c'est deja dans 3 colonnes. A, B, C.
si VBA ca fonctionne plutot qu'une formule ca me va aussi
Re-
Cf le fichier ci-joint, et le code ci-dessous :
Sub SuppDoublon()
Dim x As Long, y As Long
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(x, 1) & Cells(x, 2) & Cells(x, 3) = "" Then Exit For
For y = x + 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(y, 1) & Cells(y, 2) = Cells(x, 1) & Cells(x, 2) Then
Cells(x, Cells(x, 10000).End(xlToLeft).Column + 1) = Cells(y, 3)
Cells(x, Cells(x, 10000).End(xlToLeft).Column).HorizontalAlignment = xlCenter
x = x - 1
Rows(y).Delete Shift:=xlUp
Exit For
End If
Next
Next
End SubSi il y a des éléments identiques en colonne A et B, alors le Pays est reportées sur la ligne la plus en haut, et le doublon est supprimer
Restant à ta dispo
Wouhou ca marche génial !!
Super pratique comme truc
Merci beaucoup