Bonjour,Bonjour oceanepla,
Dans l'attente de votre fichier explicatif.
A+
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
Super merci beaucoup, cela fonctionneVB: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
C'est parfait, ca marcheVB: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