Microsoft 365 Identifier doublons dans un classeur

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

  • Mise en stock.xlsx
    70 KB · Affichages: 5

fanch55

XLDnaute Barbatruc
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

  • Mise en stock.xlsm
    76.8 KB · Affichages: 3

Discussions similaires

Réponses
7
Affichages
597
Réponses
8
Affichages
885

Statistiques des forums

Discussions
315 236
Messages
2 117 640
Membres
113 215
dernier inscrit
guillet