XL 2013 Problème avec suppression de doublons

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #2

Bonjour,
En excel 2019, même probleme sur des références "extérieures" à la feuille, à décortiquer le pourquoi .
Pourriez-vous joindre le classeur "avant suppression", merci . 🤔

 

Vote positif 0 Vote négatif

D

débutantplus

XLDnaute Junior

• 7 Mars 2022

• #3

Bonjour merci pour votre aide,
Le contenu où supprimer les doublons et colorié en jaune, et dès la suppression des doublons les valeurs se faussent car la formule n'a pas suivi au niveau des dates.

 

Pièces jointes

• Classeur12 (1).xlsx

  128.8 KB · Affichages: 6

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #4

Pour avoir un résultat juste, voici ce que j'ai fait avant suppression


Pourquoi est-ce bon ? je n'ai pas de réponse précise.
Il semblerait que le processus ne "recalcule" pas les ranges avec une référence de feuille .... 🙁
On pourrait le faire par Macro si vous le désirez ...

 

Vote positif 0 Vote négatif

D

débutantplus

XLDnaute Junior

• 7 Mars 2022

• #5

Par macro se serait le top 😱
Merci pour votre aide

 

Vote positif 0 Vote négatif

D

débutantplus

XLDnaute Junior

• 7 Mars 2022

• #6

fanch55 à dit:

Pour avoir un résultat juste, voici ce que j'ai fait avant suppression
Regarde la pièce jointe 1132937

Pourquoi est-ce bon ? je n'ai pas de réponse précise.
Il semblerait que le processus ne "recalcule" pas les ranges avec une référence de feuille .... 🙁
On pourrait le faire par Macro si vous le désirez ...

Cliquez pour agrandir...

J'ai pas compris votre manipulation, rechercher les valeurs contenu dans le tableau en jaune et vous le remplacer par quelles autres valeurs
si vous avez le document avec les changements je suis preneur ce sera peut être plus facile pour comprendre
Cordialement

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #7

débutantplus à dit:

J'ai pas compris votre manipulation, rechercher les valeurs contenu dans le tableau en jaune et vous le remplacer par quelles autres valeurs
si vous avez le document avec les changements je suis preneur ce sera peut être plus facile pour comprendre
Cordialement

Cliquez pour agrandir...

en fait on ne remplace rien, on supprime la référence à la feuille active dans les formules,
en l'occurrence on remplace 'livraison (1)'! par rien en faisant "remplacer tout"

 

Vote positif 0 Vote négatif

Solution

D

débutantplus

XLDnaute Junior

• 7 Mars 2022

• #8

Merci pour l'astuce mais pas tout compris ! 😉

 

Vote positif 0 Vote négatif

D

débutantplus

XLDnaute Junior

• 7 Mars 2022

• #9

débutantplus à dit:

J'ai pas compris votre manipulation, rechercher les valeurs contenu dans le tableau en jaune et vous le remplacer par quelles autres valeurs
si vous avez le document avec les changements je suis preneur ce sera peut être plus facile pour comprendre
Cordialement

Cliquez pour agrandir...

Est il compliquer de mettre cette manipulation en macro (supprimer les doublons)?
cordialement

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #10

Macro à exécuter après s'être mis sur la feuille concernée :

VB:

Sub DelDup()
    Dim Nc() As Variant, Lr As Long, Lc As Long, Plage As Range, I As Integer
   ' On récupère la dernière ligne renseignée
    Lr = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
   ' On récupère la dernière colonne renseignée
    Lc = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column
   ' Plage de cellules concernée
    Set Plage = Range(Cells(1, 1), Cells(Lr, Lc))
   ' On supprime toute référence au nom de feuille active dans les formules
    Plage.Replace What:="'" & ActiveSheet.Name & "'!", Replacement:="", _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   ' On supprime les Doublons
    ReDim Nc(Plage.Columns.Count - 1): For I = 0 To Plage.Columns.Count - 1: Nc(I) = I + 1: Next
    Plage.RemoveDuplicates Columns:=(Nc), Header:=xlYes
End Sub

 

Dernière édition: 7 Mars 2022

Vote positif 0 Vote négatif

D

débutantplus

XLDnaute Junior

• 7 Mars 2022

• #11

Merci beaucoup pour votre aide
Bonne continuation fanch55

 

Vote positif 0 Vote négatif