Formule pour mettre doublons sur une ligne Résolu/Fermé

Question

Bonjour, 

encore une demande de formule pour gagner dutemps!

dans le tableau (lien ci dessous), ce trouve des ref en double(avec info dont j'ai besoin), est il possible de garder les infos
de ces lignes en double ou triple et ne conserver q'une lignes comportant toutes les infos de cette ref

https://www.cjoint.com/?0IDiMtBVIrt

explication :le logiciel de gestion extrait les refs, le libelle,les ventes puis je demande de rajouter le stock (la il me redonne le stock complet)je demande les cdes ensuite le previsionnel et apres, j' exporte sur excel avec tous ces doubles 

merci d'avance

Mike-31 · Answer

Bonjour,

Le rôle d'un forum est d'apporter une aide pour finaliser une formule, pas de la créer toute pièce pour gagner du temps et donc des royaltys sur notre dos, et lorsqu'on est dans la demande, on ne dit pas "donc j'ai besoin", nous ne somme que de simples bénévoles

Mike-31 · Answer

Re,

N'en parlons plus,

essaye de mettre surbrillance la colonne A:A en cliquant simplement sur l'en tête de la colonne A

mise en forme conditionnelle et appliquer cette règle, format choisir une couleur de remplissage exemple rouge.

toutes les valeurs rencontrées pour la deuxième fois seront en rouge, reste plus qu'a supprimer les lignes

=NB.SI(DECALER($A$1;0;0;LIGNE()-1);DECALER($A$1;LIGNE()-1;0))>0 


ou on crée une colonne exemple en R avec une formule de détection

entièrement automatique avec un code VBA mais là c'est une autre histoire si tu n'as pas de connaissance dans ce langage 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

alors en R2 colle cette formule

=SI(EQUIV(A:A;A:A;0)=LIGNE(); ""; "doublon")

ou encore cette formule si tu as des cellule vide cela évitera d'avoir l'affichage du code erreur #N/A
=SIERREUR(SI(EQUIV(A:A;A:A;0)=LIGNE(); ""; "doublon");"") 

ou cette formule pour identifier la ligne en doublon
=SI(EQUIV(A:A;A:A;0)=LIGNE();"";"doublon de la ligne "&EQUIV(A:A;A:A;0))

Mike-31 · Answer

Re,

Dans le fichier modèle que tu as mis en ligne je ne retrouve pas en ligne 10
559432 11 R 22.5.... 14 6 0 0 10 4

pour comprendre tes attentes
sap libelle vente totale stock CDE 54- CDE 55- CDE 57- PREVISIONNEL
559432 11 R 22.5.... 14 6 0 0 10 4
559432 11 R 22.5 14 6 6 0 0 0 doublon de la ligne 10
559432 11 R 22.5 14 6 0 0 0 0 doublon de la ligne 10  

remet ton fichier sur un post pour que nous parlions le même langage voir ce qui est possible de faire

Mike-31 · Answer

Re,

alors pour cela il n'y a que le VBA si tu veux te lancer

Mike-31 · Answer

Re,

Pour te montrer ce que cela donne en VBA, télécharge le fichier

j'ai copié la Feuil1 en Feuil2 et créé un bouton macro,  

clic sur le bouton et regarde le résultat, pour retester le code soit tu recopies la feuille1 en feuille 2 soit tu fermes sans enregistrer et tu reouvres le fichier
si cela te convient on en reparle 

https://www.cjoint.com/?DJcw2JjAjDt

Mike-31 · Answer

Re,

tu peux conserver le fichier modèle et copier tes données sur la feuille2 puis les exporter sur la feuille1 une fois la suppression des doublons, mais le transfert peut également être intégré au code. Le principal est que tu conserve la même structure.

pour t'expliquer le code, j'ai créé un bouton activex avec la barre contrôle et dans sa propriété placé ce code, que tu peux consulter avec un clic droit sur l'onglet Feuil2/Visualiser le code reproduit ci dessous

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
 '------------------------incremente une série en colonne R
   Dim i As Integer
    For i = 2 To Range("A65536").End(xlUp).Row
    If Range("A" & i) <> "" Then Range("R" & i) = Range("R" & i - 1) + 1
    Next
'-------------------- filtre la base en fonction des référence colonne A
    Range(Range("A65536").End(xlUp), [R2]).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
'-------------- traite les lignes en doublon
    For i = [A65000].End(xlUp).Row To 2 Step -1
    '--------------- copie les valeurs des colonnes M à Q qui ne figureraient pas sur la première ligne des doublons
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 13) > Cells(i - 1, 13) Then Cells(i - 1, 13) = Cells(i, 13)
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 14) > Cells(i - 1, 14) Then Cells(i - 1, 14) = Cells(i, 14)
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 15) > Cells(i - 1, 15) Then Cells(i - 1, 15) = Cells(i, 15)
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 16) > Cells(i - 1, 16) Then Cells(i - 1, 16) = Cells(i, 16)
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 17) > Cells(i - 1, 17) Then Cells(i - 1, 17) = Cells(i, 17)
    '---------- supprime les lignes en doublons
        If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
    Next i
'----------- rétabli l'ordre de départ de la base
    Range(Range("A65536").End(xlUp), [R2]).Sort Key1:=Range("R2"), Order1:=xlAscending, Header:=xlGuess
'---------- supprime la série incrémentée colonne R
    Columns("R:R").ClearContents
    Application.ScreenUpdating = True
End Sub

 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Formule pour mettre doublons sur une ligne

7 réponses

Discussions similaires