Superbe Vba de recherche doublons

[Arcangeli]

Bonjour le forum,
J'ai trouvé ici même une superbe Vba pour rechercher les doublons dans un classeur entier qui fonctionne très bien.
Maintenant, j'aimerais limiter la plage de recherche à une seule colonne(toujours la même) dans toutes les feuilles du classeur.
Plus d'explications en pièce jointe.
Déjà merci pour votre aide

 

[phlaurent55]

Re : Superbe Vba de recherche doublons

Bonjour arcangeli

avec ceci:
j'ai ajouté la 2ème et avant dernière ligne

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Select Case Target.Value
Case ""
Case Else
For i = 1 To ThisWorkbook.Sheets.Count
Select Case Application.WorksheetFunction.CountIf(Sheets(i).[C:C], Target)
Case 0
Case 1
If Sheets(i).Name <> ActiveSheet.Name Then
GoTo a_modifier
End If
Case Else
GoTo a_modifier
End Select
Next
End Select
Exit Sub
a_modifier:
      
       
myPrompt = " !!! Cette donnée existe déjà dans la feuille " & Sheets(i).Name & " Ligne " & Sheets(i).Cells.Find(What:=Target.Value, After:=Sheets(i).Cells(1, 1), LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Row & " colonne " & Sheets(i).Cells.Find(What:=Target.Value, After:=Sheets(i).Cells(1, 1), LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Column
       
myDefault = Target
myInput = InputBox(Prompt:=myPrompt, Default:=myDefault, Title:="Attention")
Target = myInput
End If
End Sub

à+
Philippe

 

[Arcangeli]

Re : Superbe Vba de recherche doublons

Merci phlaurent 55
Ca fontionne au poil et du premier coup
Encore Meeeeeerci