Discussion :

[cobra38]

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

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

merci donc par avance de bien vouloir m'éclairer sur le traitement de doublon

[PPz78]

Un code comme celui-ci ne répond-il pas au besoin ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i=1 to derniere_ligne
if Cells(i,col1)=Cells(i,col2) then 
' Doublon
else
endif

PPz

[cobra38]

Merci PPz78

Non, en fait c'est ma faute () je me suis mal exprimé car
il ne s'agit pas de 2 colonnes "identiques" au sens du contenu mais
de 2 lignes considérées comme identiques lorsque j'ai dans 2 colonnes differentes ici donc les colonnes "reférence" et "numero" , ayant le meme contenu pour 2 lignes differentes

ex :

si ligne 1 => reférence01 et numero01
puis ligne xx => reférence01 et numero01

j'ai un doublon

mais lorsque j'ai

ligne 01 => refrence01 et numero02
puis ligne xx => reference01 et numero03

pas de doublon

de même si j'ai :

ligne 01 => refrence02 et numero01
puis ligne xx => reference03 et numero01

pas de doublon

voilà , j'espère avoir été plus clair

merci encore
A++

[mercatog]

Si Refrence et TextBox8 sont des textes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim t As Integer
t = Evaluate("sumproduct((A1:A100=""" & Reference & """)*(B1:B100=""" & TextBox9 & """)*1)")
If t > 1 Then MsgBox "doublons :" & t

[cobra38]

merci mercatog

J'ai testé ta proposition qui malheureusement ne semblait pas convenir
suivant les tests que j'ai pu faire
par contre je me suis inspiré de ta première proposition d'hier ( ?) basée sur la concatenation des 2 cellules de la feuille qui me semble plus proche du résultat attendu
j'ai donc modifié mon code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 Dim Reponse As Range, Critere As String
 Critere = Reference & TextBox9
 Set Reponse = B.Cells.Find(What:=Critere, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext)
 If Not Reponse Is Nothing Then
    Retour = 1
 Else
   Retour = 0
 End If

Ton avis STP car çà a l'air de fonctionner mais ce n'est peut-être pas la façon commune de faire une recherche
merci encore
A+

[mercatog]

Bonjour
Tu peux me dire le type de données dans Reference et TextBox9? (texte, numérique, date...?)
ton code permet de chercher l'existence de Critere dans la plage B
ou est le sens du doublon ici?