Liste de choix et copie si valeur non presente

bonjour,

voila je recherche a choisir dans une liste en E3, si la valeur n'est pas présente demander s'il faut rajouter dans BDD ,SI NON retour au debut et effacer

Bonjour cisco38

VBA Project protégé

désolé j'ai prit un classeur avec mdp

le voici sans

Voila j'ai trouvé pour ceux qui cela intéresse

Sub Test()
Application.ScreenUpdating = False
Dim Nom As String, i As Long, j As Long
Dim derniereLigne As Integer

If Application.CountIf(Sheets("BDD").Columns("A"), Range("E3")) = 0 Then 'On compareque sur la ligne de la colonne A la valeur est differente de E3
derniereLigne = Sheets("BDD").Cells(65536, 1).End(xlUp).Row 'On va aller trouver la dernière ligne de la colonne A

Sheets("BDD").Cells(derniereLigne + 1, 1).Value = Range("E3") 'On copie a la derniere ligne +1 la valeur de E3 de la colonne A

MsgBox "NOUVEAU ENREGISTREMENT " 'petit message pour dire que l'on a enregistrer une nouvelle valeur dan sla BDD
End If
Application.ScreenUpdating = True
End Sub