Microsoft 365 MSGBOX pour une cellule non remplie

job75 à dit:

Bonjour Didier03, sylvanu, le forum,

Voyez le fichier joint et cette macro dans ThisWorkbook :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim r As Range
With Sheets("Feuil1")
    Set r = Intersect(.Range("A2:A" & .Rows.Count), .UsedRange)
    If r Is Nothing Then Exit Sub
    For Each r In r
        If IsDate(r) Then
            If r(1, 6) = "" Or r(1, 7) = "" Then
                Cancel = True
                r(1, 7 + (r(1, 6) = "")).Select
                MsgBox "La plage " & r(1, 6).Resize(, 2).Address(0, 0) & " doit être remplie..."
                Exit For
            End If
        End If
    Next
End With
End Sub

Elle se déclenche quand on essaie d'enregistrer le fichier.

A+

Cliquez pour agrandir...

job75 à dit:

Vous parliez de colonne A maintenant c'est la colonne B :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim r As Range
With Sheets("Feuil1")
    Set r = Intersect(.Range("B3:B" & .Rows.Count), .UsedRange)
    If r Is Nothing Then Exit Sub
    For Each r In r
        If IsDate(r) Then
            If r(1, 5) = "" Or r(1, 6) = "" Then
                Cancel = True
                r(1, 6 + (r(1, 5) = "")).Select
                MsgBox "La plage " & r(1, 5).Resize(, 2).Address(0, 0) & " doit être remplie..."
                Exit For
            End If
        End If
    Next
End With
End Sub

Cliquez pour agrandir...

Usine à gaz à dit:

Usine à gaz : sors de ce corps lol

Cliquez pour agrandir...

job75 à dit:

Vous aurez remarqué que quand on change de colonne il faut modifier les positions relatives des cellules.

Bonjour Lionel

Cliquez pour agrandir...