Afficher un message box pour m'avertir

bonsoir les gars je suis un. nouveau membre parmi vous et je sollicite votre aid

sa fait 3 and que j ai pas utilisée VBA alors j ai oublié un peu le syntaxe

svp si vous pouvez me corriger ce code je le considére comme un rappel sur les Macro j ai essayé de faire appelle des fondement des Macro ( condition boucles ...)

vous trouvez le code ci dessous : ( Merci de bien corriger ce code pour m'aligner a ce que j'étais auparavant )

Private Sub Workbook_open()
Do While Range(F6).Value <> ""
For Each Range In Range("F6")
If Range(F6).Value < Date + 3 And Range(F6).Value <> "" Then
Range(F6).Interior.ColorIndex = 6
Range(F6).Font.Bold = True
MsgBox (" L'Alert Va bientot s'expirer ")
Else
If Range(F6).Value = Date Or Range(F6).Value > Date Then
Range(F6).Interior.ColorIndex = 3
Range(F6).Font.Bold = True
MsgBox ("L'Alert Est expirée")
Else
Range(F6).Interior.ColorIndex = 10
End If
End If
Next
Loop
End Sub

Bonjour Hamza et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Merci de votre participation

Sinon, voici le code (à mettre entre balise grâce au bouton [</>])

Private Sub Workbook_open()
  Dim Rng As Range
  For Each Rng In Range("F6;F10") ' Définir la plage (exemple)
    If Rng.Value = "" Then GoTo SuiteRng
    If Rng.Value < Date + 3 And Rng.Value <> "" Then
      Rng.Interior.ColorIndex = 6
      Rng.Font.Bold = True
      MsgBox (" L'Alert Va bientot s'expirer ")
    ElseIf Rng.Value = Date Or Rng.Value > Date Then
      Rng.Interior.ColorIndex = 3
      Rng.Font.Bold = True
      MsgBox ("L'Alert Est expirée")
    Else
      Rng.Interior.ColorIndex = 10
    End If
' Suite de la boucle
SuiteRng:
  Next
End Sub

@+