filou54110
XLDnaute Nouveau
Bonjour Le Forum
Bonjour les Pros
Bonjour et merci de votre aide " sur la colonne A "client" et les code client enregistrer avec la commande, d ou des doublons et mes colonnes B D F H J L N P R T V X sont les réferences saisie lors du bon de commande j'essaye de trouve une formule VBA qui rechercher le client ex:0001 et retrouver tout les articles sans doublons et les reunir , donc je devrais retrouver une seule ligne avec comme client "0002" et les réference 802406 et 802405 et une autre avec le client 0001 et les réferences 802405 802406 802407 , Mais qui m'additionne les quantitée C E G I K M O Q S U W Y je n'ai toujour pas trouver de solution merci d avance
Je joint piece jointe
Et Merci a Job75 qui avais déjas fais un code VBA sur les doublons
j essaye de l' adapter avec d aditionner les quantitées mets en vain
Merci Pour votre aide
Je joint le premier code VBA qui marche tres bien "Merci Job75" pour une autre Feuille
Sub Recap()
Dim h&, lig&, i&, d As Object, ref As Range
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
h = [A65536].End(xlUp).Row 'hauteur du tableau
[O2:AA65536].ClearContents 'RAZ
lig = 2 '1ère ligne à remplir
For i = 2 To h
If Application.CountIf([A1].Resize(i - 1), Cells(i, 1)) = 0 Then 'NB.SI
[A1].Resize(h).AutoFilter 1, Cells(i, 1).Text 'filtre automatique
Set d = CreateObject("Scripting.Dictionary")
For Each ref In [A2:M2].Resize(h - 1).SpecialCells(xlCellTypeVisible)
If Trim(ref) <> "" Then d(ref.Value) = ref.Value
Next
If d.Count Then
Cells(lig, "O").Resize(, d.Count) = d.keys
lig = lig + 1
End If
End If
Next
ActiveSheet.AutoFilterMode = False 'désactive le filtre
Application.Goto [O1], True 'facultatif
End Sub
et je voudrais l'adapter a ce nouveau dossier
Merci
Bonjour les Pros
Bonjour et merci de votre aide " sur la colonne A "client" et les code client enregistrer avec la commande, d ou des doublons et mes colonnes B D F H J L N P R T V X sont les réferences saisie lors du bon de commande j'essaye de trouve une formule VBA qui rechercher le client ex:0001 et retrouver tout les articles sans doublons et les reunir , donc je devrais retrouver une seule ligne avec comme client "0002" et les réference 802406 et 802405 et une autre avec le client 0001 et les réferences 802405 802406 802407 , Mais qui m'additionne les quantitée C E G I K M O Q S U W Y je n'ai toujour pas trouver de solution merci d avance
Je joint piece jointe
Et Merci a Job75 qui avais déjas fais un code VBA sur les doublons
j essaye de l' adapter avec d aditionner les quantitées mets en vain
Merci Pour votre aide
Je joint le premier code VBA qui marche tres bien "Merci Job75" pour une autre Feuille
Sub Recap()
Dim h&, lig&, i&, d As Object, ref As Range
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
h = [A65536].End(xlUp).Row 'hauteur du tableau
[O2:AA65536].ClearContents 'RAZ
lig = 2 '1ère ligne à remplir
For i = 2 To h
If Application.CountIf([A1].Resize(i - 1), Cells(i, 1)) = 0 Then 'NB.SI
[A1].Resize(h).AutoFilter 1, Cells(i, 1).Text 'filtre automatique
Set d = CreateObject("Scripting.Dictionary")
For Each ref In [A2:M2].Resize(h - 1).SpecialCells(xlCellTypeVisible)
If Trim(ref) <> "" Then d(ref.Value) = ref.Value
Next
If d.Count Then
Cells(lig, "O").Resize(, d.Count) = d.keys
lig = lig + 1
End If
End If
Next
ActiveSheet.AutoFilterMode = False 'désactive le filtre
Application.Goto [O1], True 'facultatif
End Sub
et je voudrais l'adapter a ce nouveau dossier
Merci
Pièces jointes
Dernière édition: