Syntaxe msgrinputbox

Bonjour à tous.

Dans le fichier ci joint je voudrais une alerte si s11 s12 et les suivantes n ont pas le numéro de la semaine et l année. La macro est faite mais je n arrive pas a la finaliser.

Merci pour l aide

Bonsoir Moreno076, le forum,

A tester:

Private Sub Workbook_Open()
  Dim Rng1 As Range, rng2 As Range, ws As Worksheet
  Application.AskToUpdateLinks = True

1
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "Matrice" Then
    Set Rng1 = ws.[AA3]
    Set rng2 = ws.[AD1]

    If IsEmpty(Rng1.Value) Then
    On Error Resume Next
      Rng1.Value = InputBox("Veuillez rentrer le numéro de la semaine", "Ouverture " & ws.Name, ww)
     If Rng1.Value = "" Then MsgBox "Numéro semaine absente en " & ws.Name, vbCritical: GoTo 1
    End If

    If IsEmpty(rng2.Value) Then
    On Error Resume Next
      rng2.Value = InputBox("Veuillez rentrer l'année", "Ouverture " & ws.Name, année)
     If rng2.Value = "" Then MsgBox "Année absente en " & ws.Name, vbCritical: GoTo 1
    End If
   End If
  Next ws
End Sub

Cordialement,