Alerte un doublon

Ilino à dit:

Re bonsoir JBARBE
merci pour la réponse rapide,
Si tu permets je souhaiterai faire cette tache par un code VBA lors de la saisi il m’informe que le N° de la facture existe et sa position dans la colonne;
a+

Cliquez pour agrandir...

job75 à dit:

Bonsoir Ilino, salut JBARBE,

Je dis ça pour que vous réfléchissiez un peu avant de demander des codes à droite et à gauche.

A+

Cliquez pour agrandir...

JBARBE à dit:

OUI je sais, j'ai évoqué les problémes ( ici une petite modif)

Code:

Sub doublons()
Dim n As Integer
 Sheets("FSE").Select
Range("C3:C65536").Select
    Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
For n = Range("C65536").End(xlUp).Row To 2 Step -1
  On Error Resume Next
  If Range("C" & n) = Range("C" & n - 1) Then
  Range("C" & n).Select
   vReponse = MsgBox("Voulez-vous supprimer le doublon", vbYesNo, "INFORMATION")
   If vReponse = vbYes Then
   Rows(n).Delete
   Else
  Exit Sub
  End If
  End If
Next n
End Sub

Cliquez pour agrandir...

job75 à dit:

Bonsoir Ilino, salut JBARBE,

A force de triturer votre fichier dans tous les sens, il va devenir une usine à gaz.

A+

Cliquez pour agrandir...