Saisie obligatoire avec boucle

[ERICNEMO]

Bonjour,

Je veux intégrer un contrôle de saisie obligatoire sur une cellule avant de sauvegarder une feuille et bloquer l'exécution de ma macro tant que cette cellule n'est pas remplie.
je sèche complètement la dessus. Y aurait il une bonne âme pour venir à mon secours ?

Cellule M3 à contrôler

Sub validation()
'
' validation Macro
'

'
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Dir$("c:\cde nemo", vbDirectory) = vbNullString Then 'ne pas oublier le vbDirectory !!!
'le répertoire n'existe pas, on le crée
MkDir "c:\cde nemo"
Else
'le répertoire existe
End If
ActiveSheet.Range("$A$11:$E$1000").AutoFilter Field:=3
Sheets("F01").Visible = True
ActiveSheet.Range("$A$11:$G$572").AutoFilter Field:=3, Criteria1:=">0", _
Operator:=xlAnd
Columns("A:Q").Select
Range("A8").Activate
Selection.EntireColumn.Hidden = False
Rows("15:593").Select
Selection.Copy
Sheets("F01").Select
Range("A13").Select
ActiveSheet.Paste
Sheets("F01").Copy
ActiveWorkbook.SaveAs "c:\CDE nemo\CDE " & Range("M3") & " " & Range("E1") & " " & Range("I10") & " .xls"
Columns("D😀").Select
Selection.EntireColumn.Hidden = True
Workbooks(1).Activate
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Merci de votre aide

 

[BERRACHED said]

Re : Saisie obligatoire avec boucle

Salut,Erinemo

a tester :

If ActiveSheet.Range("$M$3") = "" then
Exit Sub
End If

Cordialement