Autres vérification avant la validation

job75 à dit:

Bonjour chaelie2015,

A placer dans le code de la feuille "Formulaire" (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y, P As Range, ncol%, tablo, i&, t$, j%
x = [C6]: y = [C16]
If x = "" Or y = "" Or Intersect(Target, [C6,C16]) Is Nothing Then Exit Sub
Set P = Sheets("BdD").UsedRange
ncol = P.Columns.Count
tablo = P.Resize(P.Rows.Count + 1, IIf(ncol < 6, 6, ncol)) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    If tablo(i, 2) & tablo(i, 6) = x & y Then _
        MsgBox "Attention le nom que vous avez saisi et la durée sont déjà dans la BdD !", vbCritical: Exit Sub
Next
For i = 2 To UBound(tablo)
    If tablo(i, 2) = "" Then
        t = ""
        For j = 3 To ncol
            t = t & tablo(i, j)
        Next
        If t = "" Then P(i, 2) = x: P(i, 6) = y: Exit Sub
    End If
Next
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

Mon code (à ne pas modifier) s'exécute quand on valide les cellules C6 ou C16, pas besoin de bouton.

Cliquez pour agrandir...