VBE - Variable dans une autre

Fermé

MissExcel - 21 juil. 2009 à 14:07
MissExcel - 23 juil. 2009 à 10:29

Bonjour,
j'aurai besoin de votre aide.
J'ai besoin d'appliquer une variable dans une autre mais je ne sais pas comment faire. mon code :
Ce que je veux c'est que si la date de livraison(colonne A) - la date du jour dépasse 36h, on met 'en retard' dans la colonne O. et ca valable dans toutes les cellules.

Private Sub TEST()

DateJour as date
Datelivraison  as date
DateSur36 as date

DateJour = now
DateSur36=36
datelivraison = Cells(Lig, 1).Value  ? 'ca ne peut pas marcher Lig n'est pas encore déclaré

Dim Lig As Long
     For Lig = 1 To [A65536].End(xlUp).Row
        If Datelivraison - DateJour> DateSur36     'Colonne A
            Cells(Lig, 15).Value = "en retard"         'Colonne O
        Else
        Cells(Lig, 15).Value = ""
        End If
    Next Lig

End Sub

Merci de m'aider !

A voir également:

14 réponses

Réponse 1 / 14

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 juil. 2009 à 12:34

donc

cette macro marque" retard" si tu marque 24/7/9 dans la colonne A (on est le 22/7 aujourdhui)

si tu marques 24/07/2009 02:00:00 col A le basculement se fera à 14heures cet aprèm ( il est env. 12:30 h chez moi quand j'écris ce post

Sub TEST1()
Dim lig As Long
Dim datesur36 As Single
datesur36 = 36
For lig = 1 To [A65536].End(xlUp).Row
        If Cells(lig, 1) - Now > datesur36 / 24 Then 'Colonne A
            Cells(lig, 15).Value = "en retard"         'Colonne O
        End If
    Next lig
End Sub

Sub test2()
test = Cells(1, 1) - Now
MsgBox test

en espèrant que...
End Sub

Cordialement, Michel

Réponse 2 / 14

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
21 juil. 2009 à 15:24

bonjour,
Est-ce nécessaire de passer par une macro ? Une simple formule suffit :
=SI(((A1-AUJOURDHUI())*24)<=36;"en retard";"ok")
cdt

Réponse 3 / 14

MissExcel
21 juil. 2009 à 15:35

Le problème c'est que j'ai atteint le maximum de mise en forme conditionnelle, donc je dois faire une macro !

Réponse 4 / 14

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
21 juil. 2009 à 16:43

là j'ai pas tout compris :s
tu parles de format ("mise en forme conditionnelle") mais dans ta demande précédente il est question de la valeur (="en retard") d'une cellule....peux-tu préciser stp ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 14

MissExcel
22 juil. 2009 à 09:28

Formule ou mise en forme conditionnelle je pensais que c'était la meme chose ?

dans tous les cas, jai une colonne A dans laquelle il y a des dates(date livraison), une variable temps (& time, ou datejour = now), un objet (datesur36=36) et une colonne L qui présente le résultat.

Exemple , j'entre une date dans A35, si ma date est supèrieur à 36h, "en retard" est inscrit dans la colonne L35 sinon "ok".
J'avais donc penser à faire le code ci-dessous mais le problème c que jai besoin que ma macro soit appliqué sur tte la colonne A et L, donc dans datelivraison = Cells(Lig, 1).Value (valeur de toutes les cellules de la 1ere colonne, soit A). mais lig n'est décléré qu'après !

Simplement : Si date de livraison - date du jour > 36h alors valeur de la cellule de la colonne L= "en retard" sinon "ok".
J'ai déjà 3 mises en forme conditionnelle, je ne peux pas en faire plus.
Merci !

Réponse 6 / 14

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 juil. 2009 à 10:18

bonjour

For Lig = 1 To [A65536].End(xlUp).Row
        If Cells(Lig, 1)- DateJour> DateSur36     'Colonne A
            Cells(Lig, 15).Value = "en retard"         'Colonne O
        end if
    Next Lig

pour la date du jour emploie plutôt date que now (tu n'as pas besoin de l'heure ?)
pourquoi voulais tu marquer "" si la condition n'est pas remplie? tu as automatiquement une cellule vide

mais c'est vrai qu'une formule en colonne O ferait tout aussi bien l'affaire

Réponse 7 / 14

MissExcel
22 juil. 2009 à 10:42

merci pour le code michel_m !

Private Sub TEST1()
Dim datejour As Date
Dim datesure36 As Date

datesur36 = 36
datejour = Now

For Lig = 1 To [A65536].End(xlUp).Row
        If Cells(Lig, 1) - datejour > datesur36 Then   'Colonne A
            Cells(Lig, 15).Value = "en retard"         'Colonne O
        End If
    Next Lig
End Sub

par contre j'ai un message d'erreur : incompatibilité de type.
Je ne vois pas d'ou ca peut venir ?

Réponse 8 / 14

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 juil. 2009 à 10:52

si tu me disais sur quelle ligne ca plante ?

Réponse 9 / 14

MissExcel
22 juil. 2009 à 11:00

bonne idée en effet !
Ca plante sur

If Cells(Lig, 1) - datejour > datesur36 Then

Réponse 10 / 14

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 juil. 2009 à 12:02

edit: excuse moi, j'avais mal lu c'est 36h et non 36 jours!
je reprend mon doliprane...

Réponse 11 / 14

MissExcel
22 juil. 2009 à 13:17

Il me renvoi une valeur ! -123,5517, ca vien d'ou? lorsque j'entre la date 22/07/2009 00:00 dans la colonne A.
Un autre doliprane michel_m ?
Le code est bien plus simple lorsqu'on applique une macro du type à une seule cellule !
merci d'avance

Réponse 12 / 14

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 juil. 2009 à 13:20

ton moment date est inférieur à au moment-date donné par now tu as donc un négatif

Réponse 13 / 14

MissExcel
22 juil. 2009 à 13:57

Super ! merci michel_m ca fonctionne !
Par contre je ne comprends pas quelque chose, si je met : 25/07/2009 ca fonctionne, il m'inscrit : "en retard"
Mais si je met un moment date infèrieure, il ne m'inscrit rien.
Ma macro a besoin d'un fonctionnement avant/après, la colonne A doit pouvoir accueillir des dates antèrieures.
une petite modification ? merci

Réponse 14 / 14

MissExcel
23 juil. 2009 à 10:29

J'ai toujours un incompatibilité de type ! j'ai essayé de faire "now - cells" au lieu de "cells - now" mais toujours une erreur ! merci de m'aider !

Sub TEST1()
Dim lig As Long
Dim datesur36 As Single
datesur36 = 36
For lig = 1 To [A65536].End(xlUp).Row
        If Now - Cells(lig, 1)  > datesur36 / 24 Then 'Colonne A
            Cells(lig, 15).Value = "en retard"         'Colonne O
        End If
    Next lig
End Sub

Sub test2()
test =  Now - Cells(1, 1)
MsgBox test

End Sub

Discussions similaires

VBA Excel : sélection d'une plage variable

Bonjour tout le monde,

Je dois sélectionner une plage de cellules en fonction d'une variable i, qui représente le numéro de la ligne voulue. Suite à des recherches sur ccm.net et d'autres forums, j'ai trouvé le code suivant :

Dim MaPlage As Range MaPlage = Range("A" & i & ":L" & i)

Je suis sur Excel 2003 et qqc cloche : VBA me renvoie "erreur d'éxecution 91 : variable objet ou variable de bloc With non définie". Vraiment, je ne comprends pas. Quelqu'un a une idée ?

Merci d'avance,
Pyanitsa.

Configuration: Windows XP / Firefox 3.6.3

vérifiez la variable d'environnement TEMP

Bonjour,
J'ai aussi le problème de ce message à chaque fois que je veux ouvrir Word 2007 version "Office Famille et Etudiant 2007 "
Utilisation de Windows XP SP2 , avec les mises à jour régulières ...

Lorsque je clique sur un fichier .doc pour l'ouvrir :
1- la fenêtre jaune de Office Word 2007 s'ouvre, puis une fenêtre m'annonce : "impossible de créer le fichier de travail . Vérifiez la variable d'environnement TEMP " je clique sur OK
2- Le cadre de Word s'installe à l'écran puis, de nouveau, la même fenêtre , avec le même message concernant le dossier TEMP .
De nouveau je clique sur OK et à ce moment là mon fichier demandé est affiché !
3- P...

VBA : Range avec références variables..

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine

réservations

Bonjour,
Je cherche à pouvoir mettre en ligne un petit tableau simple de réservation pour un festival de théâtre (14 spectacles) de sorte que chaque utilisateur qui vient sur la page puisse :
1) donner son nom
2) Donner son mail
3) Remplir un simple tableau ayant une ligne par spectacle proposé, en mettant le nombre de places qu'il réserve (tableau rempli de zéro par défaut) (et qu'il ait le montant de ce que ça va lui coûter (nombre de places multiplié par le prix de la place)
4) Que j'ai un tableau récapitulatif qui soit rempli au fur et à mesure et que je pourrai sortir et imprimer le jour du festival (nom et mail des personnes, nombre de places réservé...

Programme python

Bonjour, Je dois faire ce programme en math pour lundi mais je galère quelqu'un peut m'aider ? Merci beaucoup