Alimentation tableau plusieurs criteres VBA

bonjour

Voici une idée pour résoudre ton souci :

Private Sub CommandButton1_Click()
Dim reponse
    If chercher(CDate(Me.TextBox1.Value)) Then
        reponse = MsgBox("Ces données existent déja, êtes vous sûr de vouloir les écraser? Oui/Non", vbDefaultButton1, "Attention")
        If reponse <> vbOK Then Exit Sub
    End If
    MsgBox " enregistrer"
End Sub
Public Function chercher(date_à_chercher) As Boolean
Dim lig As Long, deb As Range, sel As Range
chercher = False
Set deb = Range("A1")
Do
    Set sel = Columns(1).Cells.Find(what:=date_à_chercher, After:=deb, LookIn:=xlValues, LookAt:=xlPart)
    If sel Is Nothing Then Exit Function
    If sel.Row <= deb.Row Then Exit Function
    If sel.Offset(0, 1).Value = Me.ComboBox1.Value Then
        chercher = True
        Exit Function
    End If
    Set deb = sel
Loop
End Function

La fonction recherche la date et le nom et s'ils sont trouvés affiche le message
L'appel se fait à partir d'une textbox, tu remplace par ton contrôle date.

Merci pour ton aide gbinforme.
Ton code cherche bien si ma date est déjà dans le tableau, ça me fait bien avancer pour la suite.

Mais dans mon cas, il peut y avoir plusieurs fois la même date, mais avec des noms différents.
J'aimerais chercher la ligne où il y a la date + le nom.

Je vais explorer ta piste et peut être faire une recherche de date, puis si elle est trouvée, vérifier si le nom correspondant se trouve sur la même ligne ou non.

Si elle s'y trouve je demande confirmation, sinon je copie mes valeurs.

J'ai avancé dans mes recherches et j'ai codé ça :
En gros ça cherche la date dans le tableau.
Si ça ne trouve pas ça active la fonction de copie des données.
Si ça trouve la date, ça vérifie chaque valeur jusqu'à trouver une valeur de Nom identique.
Si ça ne trouve pas, ça copie. Si ça trouve, ça me demande confirmation pour la copie.

Je sais que tout n'est pas juste, n'hesitez pas à me corriger.
Merci encore.

'Fonction Chercher'
Public Function Cherche(Date) As Boolean
Dim deb As Range
Set deb = Range("A2")
Dim reponse As Range

If Date = "" Then
MsgBox ("Erreur Date")
Else
Set reponse = Cells.Find(Date, deb, xlValues, xlPart)
If reponse Is Nothing Then
action = "ok"
Exit Function
Else
reponse_ligne = reponse.Row
If Nom.Value <> Cells(reponse_ligne, 3).Value Then
action = "ok"
Exit Function
Else

Loop

End If
End If
End If

If action Is Null Then
MsgBox ("Valeurs deja existantes, voulez vous les ecraser? Oui Non")
If resultat = "Non" Then
Exit Function
Else
action = "ok"
End If
End If

End Function

If action = "ok" Then
Incrementer(Duree).Call

'Fonction Incrementer'
Public Function Incrementer(Duree) as Boolean
Last = Range("A2").End(xlDown).Row + 1
Rows(Last).Select
Selection.Insert Shift:=xlDown
Cells(Last, 1).Value = Date.Value
Cells(Last, 2).Value = Nom.Value
Cells(Last, 3).Value = Duree.Value
End Function