Problème de test logique

Résolu
Bonjour,

J'ai créé une petite macro avec un test logique ( qui n'a pas l'air de l'être enfaite !)

Le test ne fonctionne pas puisque même quand ma case est vide donc que ma case est = à " " la MsgBox s'affiche...!

Quelqu'un peut - il m'aider ?

mon code :
Sub Alerte()

Dim A As Integer

For A = 2 To 20

If Worksheets("Commandes").Range("F" & A) <> " " And Worksheets("Commandes").Range("F" & A) < Worksheets("Préventif").Range("B1") Then
MsgBox Worksheets("Commandes").Range("A" & A) & "à passer ", vbInformation
Else
' ici dessous tu mettras la commande VBA d'envoie de mail
' puis tu fais un test
End If
Next A


Merci d'avance,
DGVDR

End Sub

2 réponses

  1. Bonjour,

    Worksheets("Commandes").Range("F" & A) <> " "

    doubles cotes accolees pour test vide

    Worksheets("Commandes").Range("F" & A) <> ""

    ou

    If Not IsEmpty(Worksheets("Commandes").Range("F" & a)) .....