Problème de test logique

Résolu
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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)) .....
1
DGVDR Messages postés 158 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour f894009,

Ca marche !

Merci !

DGVDR
0