Sub a()
Sheets("enregistrement").Range("AY8,L4,AB4,H6,I9,V6,AA9:AA10,O14:P17,AI14:AJ25,C27,N31").ClearContents
End Sub
'vider la page d'enregistrement
Sheets("enregistrement").Select
Range("AY8 , L4, AB4 , H6 , I9 , V6 , AA9:AA10, O14: P17 , AI14: AJ25 , C27 , N31 ").Select ""
Selection.ClearContents
Range("A1").Select
'vider la page d'enregistrement
Sheets("enregistrement").Range("AY8,L4,AB4,H6,I9,V6,AA9:AA10,O14:P17,AI14:AJ25,C27,N31").ClearContents
Sub verif()
'Déclarations des variables
Dim lig As Long, manquant As String
With Sheets("enregistrement")
manquant = ""
'à partir de la ligne 6 jusqu'à la ligne 13
For lig = 6 To 13
'Si dans la colonne B, les cellules sont égales à zéro
If .Cells(lig, "BE").Value = 0 Then
'alors répertorier l'adresse de ces cellules dans la variable manquant
manquant = manquant & ", " & .Cells(lig, "BD").Address(0, 0)
End If
Next
End With
'Afficher un message indiquant la valeur de manquant
MsgBox "Merci de saisir les informations suivantes : " & manquant & Chr(13) & Chr(13) & "Ce résultat d'analyse ne peut pas être enregistré."
End Sub
Sub Verif_II()
With Sheets("enregistrement")
If Application.CountIf(.Range("BE6:BE13"), 0) > 0 Then
MsgBox "Merci de saisir toutes les informations dans les cellules: " _
& Chr(13) & vbTab & "BD6 à BD13" & Chr(13) & Chr(13) & _
"Ce résultat d'analyse ne peut pas être enregistré.", vbCritical, "Erreur"
End If
End With
End Sub