Bonsoir, et merci de me lire et merci aussi votre aide,
Je vous joint une partie d’un code que j’utilise pour la vérification de la présence des doublons sur la plage ref_paiment, le problème c’est que le fichier ou je travail contient presque 1300 linges et j’utilise les filtres, et avec ce code, la vérification des doublons n’est plus efficace si des éléments ne sont plus visible en application du filtre.
Merci
Je vous joint une partie d’un code que j’utilise pour la vérification de la présence des doublons sur la plage ref_paiment, le problème c’est que le fichier ou je travail contient presque 1300 linges et j’utilise les filtres, et avec ce code, la vérification des doublons n’est plus efficace si des éléments ne sont plus visible en application du filtre.
Merci
Code:
Set c = Range("Réf_Paiement").Find(Numero.Value, , , xlWhole)
If Not c Is Nothing Then
c.Select
With Selection.Interior
MsgBox "Ce numero de cheque est deja saisie"
End With
Else
Range("A3").Offset.End(xlDown).Offset(1, 0).Select 'Sélection de la cellule en dessous du dernier enregistrement de la colonne A
'Coller valeur
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A3").CurrentRegion.Select 'Sélection de la zone en cours
Range("A3").Select 'Sélection de la cellule A1
End If