Saisie liste déroulanre

[GG21]

Comment lors de la saisie d’une cellule à partir d’une liste déroulante excel, vérifier que cette donnée saisie
n’est pas présente dans la colonne d’un autre onglet et si présente envoyer une msg
Un grand merci pour votre aide

[NonoDu45]

Bonjour gg21

Voici une possibilité

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim RngFind As Range
  If Target.Value = "" Then Exit Sub
  ' Si le choix se fait dans la colonne A
  ' vérifier si la cellule modifiée s'y trouve bien, sinon on sort
  If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
  ' Choix fait dans la colonne indiquée
  ' Trouver la valeur dans la colonne A de l'onglet de recherche
  Set RngFind = Sheets("OngletDeRecherche").Range("A:A").Find(What:=Target.Value, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
  If Not RngFind Is Nothing Then
    MsgBox "Attention, cette valeur existe déjà sur la ligne " & RngFind.Row
  End If
End Sub

@+