Boucle if en visual basic

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
Configuration: Windows XP
Internet Explorer 7.0

4 réponses

  1. Bonjour léna,

    a quel moment ton message doit s'afficher ??

    Phil
    0
    1. lorsque le test entre la date d'aujourd hui et la date de livraison sont les memes
      0
    2. @lenaj'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
    3. @lenaet 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
    4. @philSUPER

      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
    5. @LENApeut être pas impossible .... mais très complexe.

      Quel événement doit faire tourner exécuter le code ?? date, heure, ouverture du PC ....???
      0
  2. à 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
    1. et voila !!

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

      G étant la colonne des fournisseurs

      A+ Phil
      0
      1. merci beaucoup je suis comblé a plus léna
        0
    2. 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
      1. Bonjour,

        le code :

        If Nombpers < 5 then

        Categorie = B

        Else

        Categorie = C

        End if

        Nombpers égal le nombre de personne

        Bon courage

        Phil
        0