Refuser l'ajout de doublons

[Juju]

Bonjour à tous,

Dans une feuille Compétences j'ai une liste de personne avec les produits qu'elles connaissent :
ColA ColB
toto Math
titi Francais
toto Français
toto Sport
tutu Math

Dans un Userform je sélectionne une personne et une compétence (chacun dans une liste déroulante). Je souhaite ajoutter la personne et la compétence indiquée dans le seule cas ou ce n'est pas un doublon (couple nom + compétence).

Merci d'avance pour votre aide et bonne journée

Julien

 

[GIB]

bonsoir,


sans réflechir, je te propose une recherche par balayage de la feuille excel

' Max = nombre de ligne du tableau

existe = False
For l = 1 To Max
If Cells(l, 1).Value & Cells(l, 2).Value = Personne & Compétence Then
existe = True
Exit For
End If
Next
if existe then ===> 'erreur'


mais c'est tellement simple que je n'ai pas du comprendre la demande

GIBI

 

[juju]

Hello,

Merci beaucoup pour ta réponse. Je n'ai pas réussi à appliquer le code exactement comme indiqué mais en modifiant çà marche.

Dim P
Dim C
P = Range('B4').Value
C = Range('D4').Value
Existe = False
For l = 2 To 2000
If Sheets('COMPETENCES').Cells(l, 2).Value & Sheets('COMPETENCES').Cells(l, 3).Value = P & C Then Existe = True
If Existe = True Then MsgBox ('Le produit ' & C & ' est déjà renseigné pour ' & P)
If Existe = True Then Exit Sub
Next

Encore merci.

Julien