Boucle if en visual basic

lena -  
 PHIL -
Bonjour,

je souhaite faire une comparaison pour un suivie de commande avec la date d'aujourd hui et la date de livraison de mes commande. Si une livraison est aujourd hui je veux afficher une fenetre me le disant
Mon code est

Sub feuille1()

If d6 = Columns(g) Then
MsgBox " Livraison"
End If

End Sub


Merci de me donner un coup de main sur If d6 = Columns(g) Then je n'arrive pas à trouvé un syntaxe correcte pour lui demander de faire un teste sur toutes les dates de la colonne g de mon tableau excel.

Merci pour votre aide
Léna
A voir également:

4 réponses

phil
 
Bonjour léna,

a quel moment ton message doit s'afficher ??

Phil
0
lena
 
lorsque le test entre la date d'aujourd hui et la date de livraison sont les memes
0
lena > lena
 
j'ai essayé

Sub feuille1()
For i = 1 To 255
If d6 = G("i") Then
MsgBox " Livraison AFF 01 37007 00"
End If
Next

End Sub


problème erreur 13
g = ma colonne excel
i = conteur
0
phil > lena
 
et avec ca ??:

Sub feuille1()
G = Columns("G")
For i = 1 To 255
If Range("d6") = Range("G" & i & ":G" & i) Then
MsgBox " Livraison AFF 01 37007 00"
End If
Next

End Sub
0
LENA > phil
 
SUPER

ton code fonctionne correctement.
Une autre petite question:
peut on afficher le message "livraison" sur la fenetre du bureau automatiquement sans avoir à ouvrir le fichier excel pour faire tourner le programme?
Merci d'avance
Lena
0
phil > LENA
 
peut être pas impossible .... mais très complexe.

Quel événement doit faire tourner exécuter le code ?? date, heure, ouverture du PC ....???
0
LENA
 
à chaque nouvelle journée je veux executer le code
mais bon c pas grave tu ma deja bien aidé

une petite derniere
Comment je peut faire pour afficher dans une msgbox les données contenu dans une cellule

le but serai de:
lorsque mon test avec la date est vrai je veux afficher une msgbox qui me donne 'livraison" c'est ce que j'ai pour le moment mais qui m'affiche aussi le nom du fournisseur (situé dans la meme ligne que la date tester vrai avec celle d'aujourd hui)

Merci
léna
0
phil
 
et voila !!

MsgBox " Livraison AFF 01 37007 00" & " " & Range("G" & i & ":G" & i)

G étant la colonne des fournisseurs

A+ Phil
0
lena
 
merci beaucoup je suis comblé a plus léna
0
John
 
Bonjour
Je suis sur mon formulaire et jai 2 champ: un qui précise le nombre de personne (max 7) et un la catégorie (B ou C)
Jvoudrai connaitre le code sous access 2003 qui pourrai me faire ca :

entre 1 à 4 personne le champ catégorie devrai mindiquer B automatiquement dans son champ
Si plus de 4 personnes personnes C

merci de répondre assez rapidement svp.
0
PHIL
 
Bonjour,

le code :

If Nombpers < 5 then

Categorie = B

Else

Categorie = C

End if

Nombpers égal le nombre de personne

Bon courage

Phil
0