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

4 réponses

  1. phil
     
    Bonjour léna,

    a quel moment ton message doit s'afficher ??

    Phil
    0
    1. lena
       
      lorsque le test entre la date d'aujourd hui et la date de livraison sont les memes
      0
      1. 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
      2. 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
      3. 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
      4. 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
  2. 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
  3. phil
     
    et voila !!

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

    G étant la colonne des fournisseurs

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

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses