Bonjour à toutes et tous
mon problème du jour se trouve dans la recherche de doublon sur 2 colonnes différentes .
Pour être plus précis, je souhaiterai identifier la presence d'un doublon lorsque la colonne "reférence" et la colonne "numero" sont identiques
pour une même ligne
j'ai bien essayé via le code suivant mais cela ne fonctionne pas
explications :
à partir d'un USF , je teste la présence d'un doublon ( sub ) en identifiant
d'abord la "référence" puis ensuite le "numéro" ( textbox9 ) par le terme range "réponse"
mais ceci ne marche pas car il va chercher dans la feuille les éléments l'un après l'autre et non pas ensemble
l'idée serait de faire par exemple What:= reference+textbox9 mais je ne sais pas si c'est la pratique courante lorsque l'on désire chercher deux éléments distincts
merci donc par avance de bien vouloir m'éclairer sur le traitement de doublon
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Sub Doublon() Dim Reponse As Range Set Reponse = B.Cells.Find(What:=Reference, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext) If Not Reponse Is Nothing Then Set Reponse = B.Cells.Find(What:=TextBox9, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext) If Not Reponse Is Nothing Then Retour = 1 End If Else Retour = 0 End If End Sub
![]()
Partager