Code For next

Bonsoir tt le monde

svp je suis un débutant en VBA

j'ai un tableau qui contient le nom & la date

j'ai prépare un userform qui insér des nouveaux donne a ce tableau ça marche bien

MAIS je veux ajouter un argument avant l'ajoute des données vérifier SI il n'existe pas deja !

Dim sh As Worksheet
Dim iligne As Integer

Set sh = ThisWorkbook.ActiveSheet

        For iligne = 3 To sh.Range("j" & Application.Rows.Count).End(xlUp).Row

                If Cells(iligne, "J") = cmbemployer.Value And Cells(iligne, "K") = ComboBox2.Value Then
                MsgBox "ATTENTION Ce jour est déja pointé ", vbCritical, "ALERT"

                End If

        Next iligne
             

merci d'avance pour votre AIDE.

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

bonjour MR gmb

merci infiniment