Microsoft 365 Identifier doublons dans un classeur

  • Initiateur de la discussion Initiateur de la discussion krakite
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

krakite

XLDnaute Nouveau
Bonjour a tous le monde et une bonne année surtout.

Petite question : j'ai un classeur excel avec 12 feuilles de Janvier à décembre, dans ces feuilles on gère un numéro de série et un code article mais il arrive que des doublons se fasse et malheureusement nous n'arrivons pas à les identifier.

ll y a bien sûr une condition, c'est que le numéro de série est rattaché au code article, donc un numéros de série peut être le même mais pour 2 produits différents.

Comment faire quand on rentre un numéro dans une feuille, il aille fouillé les autres feuilles afin de voir si le numéro n'est pas déjà pris ?

voir les 2 feuilles de mon fichier joint avec des exemple de doublons

D'avance merci pour votre aide
 

Pièces jointes

Bonjour,
Ci-joint un classeur avec une macro mise en œuvre par une mise en forme conditionnelle sur la feuille de février .
1735830584914.png


VB:
Function IfDoublon(Produit As Range, Référence As Range) As Boolean
Dim Cel As Range
    IfDoublon = False
    If Produit.Value <> "" And Référence.Value <> "" Then
        For Each sh In Worksheets
            If sh.Name <> Produit.Parent.Name Then
                Set Cel = sh.Columns("C").Find(Référence.Value)
                If Not Cel Is Nothing Then
                    Set Cel = sh.Rows(Cel.Row).Find(Produit.Value)
                    If Not Cel Is Nothing Then
                        IfDoublon = True
                        Exit For
                    End If
                End If
            End If
        Next
    End If
End Function
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
636
Retour