Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1140 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  probleme de boucle avec une date résolu

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

probleme de boucle avec une date résolu

n°1362422
GillooZ
un reportage de filip loulou
Posté le 09-05-2006 à 14:48:04  profilanswer
 

voila ma un bout de ma fonction :  
 
cptt = 3
cpt = 3
tmp = 0
 
With Worksheets("enr_incidents" )
    DateLue = DateValue(.Range("A" & cpt))
    If IsDate(DateLue) Then
        MsgBox "ca mache"
    Else
        MsgBox "ca marche pas"
        Exit Sub
    End If
End With
 
 
With Worksheets("enr_incidents" )
    Do
        DateLue = DateValue(.Range("A" & cpt))     <---
        If (.Range("B" & cpt).Value = ListCli.Value) And (DateLue < DateFin) Then
            test = test + 1
            tmp = .Range("T" & cpt).Value * 1000000 / Deno
            .Range("Y" & cptt).Value = tmp
            cptt = cptt + 1
        End If
        cpt = cpt + 1
    Loop Until IsEmpty(.Range("T" & cpt))
End With
End Sub
 
qd je test simplement la date, ca marche bien grace au test avec le MsgBox, mais dans la boucle ca me fait une erreure "incompatibilité de type" sur la ligne avec une fleche  
 
je comprends pas pk ca marche sur le test et pas dans la boucle :////////
 
help plz


Message édité par GillooZ le 10-05-2006 à 09:09:10
mood
Publicité
Posté le 09-05-2006 à 14:48:04  profilanswer
 

n°1362465
watashi
La démotivation : JAMAIS !
Posté le 09-05-2006 à 15:19:56  profilanswer
 

Salut Gilloz,
 
Petite question comment as tu déclaré ta variable DateLue ? Est-ce lors de premier passage que ça bug ou sur une valeur précise ?
Essayes de vérifier ce que te prends excel comme valeur pour ton .range("A"&cpt) sans le datevalue. Regardes éventuellement la fonction cdate qui permet de convertir en date.
@+

n°1362473
GillooZ
un reportage de filip loulou
Posté le 09-05-2006 à 15:31:09  profilanswer
 

j'ai déclaré ma variable dans le debut de la fonction comme ceci :
Dim DateLue As Date et c'est bien lors du premier passage que cela ne marche pas
et dans mon premier passage avec le test avec la fonction IsDate, ca me confirme que ce le premier DateValue marche vu ke le programme me retourne "ca marche", c'est pour ca que je comprends pas pk la premiere affectation marche et ca me dit bien ke c'est une date et dans la deuxieme qui est identique il me fait  ce message d'erreur
 

n°1362570
watashi
La démotivation : JAMAIS !
Posté le 09-05-2006 à 16:37:53  profilanswer
 

Re,
Essayes avec DateLue=Cdate(.range("A"&cpt))
@+

n°1362970
GillooZ
un reportage de filip loulou
Posté le 10-05-2006 à 09:05:25  profilanswer
 

c'est bon ca marche :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  probleme de boucle avec une date résolu

 

Sujets relatifs
Probleme syntaxe thread librairie pthreadProblème pour créer ma page web
utilisation champ listbox avec multiselected résolu[Js]Problème d'externalisation d'évènement onclick
recupérer la date d'hier[JS] probleme pr instancier une objet
probleme : Select d'une requette MYSQLIE 7 et FF problèmes de position: absolute [RESOLU]
[Résolu]Comment changer un nom de variable[Résolu] Erreur w3c que je ne comprends pas
Plus de sujets relatifs à : probleme de boucle avec une date résolu


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR