Microsoft 365 Rendre obligatoire des cellules

job75 à dit:

Bonjour oceanepla,

Dans l'attente de votre fichier explicatif.

A+

Cliquez pour agrandir...

job75 à dit:

VB:

Sub Valider()
If Application.CountA(Sheets("Saisie").[C4,C6,C8,C10,C14]) < 5 Then MsgBox "Les cellules C4, C6, C8, C10, C14 doivent être remplies...": Exit Sub
'suite du code
End Sub

Cliquez pour agrandir...

job75 à dit:

VB:

Sub Valider()
If Application.CountA(Sheets("Saisie").[C4,C6,C8,C10,C14]) < 5 Then MsgBox "Les cellules C4, C6, C8, C10, C14 doivent être remplies...": Exit Sub
'suite du code
End Sub

Cliquez pour agrandir...