test sur quantième

PascalXLD

XLDnaute Barbatruc

• 28 Août 2008

• #2

Re : test sur quantième

Bonjour

excuses moi mais je n'ai pas compris ce que tu cherchais à calculer

Pourrais-tu préciser STP ?

 

Vote positif 0 Vote négatif

B

bibou1212

XLDnaute Occasionnel

• 28 Août 2008

• #3

Re : test sur quantième

ok je vais essayer d'être plus clair

le but est de comparer un quantième(date converti allant de 001 à 366) et une date.

Le test est accepté si le quantième est inférieur ou égale à la date (pas supérieur) et si le quantième est inférieur au maximum de 2 mois (61 jours) à la date. si ce n'est pas le cas il renvoie un message d'erreur.

C'est plus clair ou pas ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 28 Août 2008

• #4

Re : test sur quantième

Re

Euh non 😱

Comment veux tu comparer un quantième (si je comprends bien qui est le jour de l'année) avec une date ? Tu peux comparer 2 dates mais peut-être je suis complètement à coté de la plaque c'est très possible

 

Vote positif 0 Vote négatif

B

bibou1212

XLDnaute Occasionnel

• 28 Août 2008

• #5

Re : test sur quantième

A oui tu as raison j'ai oublier de préciser que dans la case G14 la date est déjà transformé en quantième par la formule "=G7+1 - DATE(ANNEE(G7);1;1)".

Et vu que dans un quantième et n'y a pas de notion de l'année je ne peut pas faire de test si le quantième et la date ne sont pas sur une même année.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Août 2008

• #6

Re : test sur quantième

Bonjour à tous,

d'où l'intérêt de faire tes comparaisons non pas en quantièmes mais en dates. C'est pas la date qu'il faut convertir en quantième, c'est le quantième qu'il faut convertir en date....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Août 2008

• #7

Re : test sur quantième

Bonjour Bibou, ascal, Tototiti

pas sur d'avoir tout compris, mais regarde la macro ci-dessous, ton qantième en cellule A1, la date à comparer en cellule B1, peut être que.....

Code:

Sub test()
If Range("A1").Value <= DatePart("y", Range("B1").Value, 2, 2) And _
    Range("A1").Value >= DatePart("y", Range("B1").Value, 2, 2) - 61 Then
    MsgBox "test ok"
Else
    MsgBox "test non ok"
End If
End Sub

bon après midi
@+

 

Dernière édition: 28 Août 2008

Vote positif 0 Vote négatif

B

bibou1212

XLDnaute Occasionnel

• 28 Août 2008

• #8

Re : test sur quantième

Bonjour Pierrot, Re pour les autres

Ton code ne marche pas, il me met que mon test est ok et de suite après il me met qu'il ne l'est pas.

Mais merci pour ta réponse

Pour te répondre à toi tototiti je pourrait très bien convertir mon quantième en date mais je ne connaît pas le code en VBA pour le faire, tu n'en aurais pas un petit.

En tout cas merci à tous pour vos réponses

David

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Août 2008

• #9

Re : test sur quantième

Re,

comprends pas trop, chez moi ce code fonctionne, surtout les 2 messages ok et non ok ne s'affichent pas lors de l'exécution de la même macro. As tu bien copié collé le code en l'état ???

@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Août 2008

• #10

Re : test sur quantième

Bonjour à tous,

si tu as su faire une formule pour transformer une date en quantième :
=G7+1 - DATE(ANNEE(G7);1;1)

tu devrais pouvoir faire l'inverse, je pense.
admettons que l'année de tes quantièmes se trouve en A1 et ton quantième en A2

=DATE(A1;1;1)+A2-1

 

Vote positif 0 Vote négatif

B

bibou1212

XLDnaute Occasionnel

• 28 Août 2008

• #11

Re : test sur quantième

Pierrot,

Voilà les transformations que j'ai fait au code pour l'adapter. Sachant que quant2 est une variable integer qui représente le quantième.

If quant2 <= DatePart("y", Feuil3.Range("G7").Value, 2, 2) And _
quant2 >= DatePart("y", Feuil3.Range("G7").Value, 2, 2) - 61 Then
MsgBox "Test ok"
Else
MsgBox "Erreur quantième étui 1"
End If

Cliquez pour agrandir...

Ton code marche un peu si on reste sur un classeur mais je pense que le problème viens du fait que j'ai une variable.Mais je comprend pas trop.

J'ai dis "marche un peu" parce que si tu met, par exemple, en quantième 350 et en date 05/01/2008 normalement ça devrais passer alors que ça marque "non ok".

 

Vote positif 0 Vote négatif

B

bibou1212

XLDnaute Occasionnel

• 28 Août 2008

• #12

Re : test sur quantième

Tototiti,

Ta formule marche bien je vais voir si je vais pouvoir l'exploiter, au pire tu n'aurais pas la même en VBA.

Sinon la formule du quantième je l'ai trouvé sur le forum je maitrise pas cette fonction

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Août 2008

• #13

Re : test sur quantième

pourquoi faire en VBA ce qu'on peut faire plus facilement en formule ?

Code:

Function CalculDate(Quant as long, annee as long) as date
Calculdate = dateserial(annee,1,1) + quant -1
end Function

 

Vote positif 0 Vote négatif

B

bibou1212

XLDnaute Occasionnel

• 28 Août 2008

• #14

Re : test sur quantième

pourquoi faire en VBA ce qu'on peut faire plus facilement en formule ?

Cliquez pour agrandir...

Sinon je suis obliger de faire sortir la valeur de ma variable VBA vers le tableur pour la transformé puis la rappeler dans VBA pour effectuer un test. C'est plus simple mais ça fait des ligne en plus et je serai le seul à comprendre ce que j'ai fait. Or c'est une application pour quelqu'un d'autre.

En tout cas merci beaucoup

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Août 2008

• #15

Re : test sur quantième

Re

peut être comme ci dessous alors, ton quantième dans la variable q :

Code:

Option Explicit
Sub test()
Dim q As Integer, x As Integer, y As Integer
x = DatePart("y", Range("B1").Value, 2, 2)
y = DatePart("y", DateSerial(Year(Range("B1").Value), 1, 0), 2, 2)
If (q <= x And q >= x - 61) Or (y - q + Abs(x)) <= 61 Then
    MsgBox "test ok"
Else
    MsgBox "test non ok"
End If
End Sub

A tester...

bonne soirée
@+

 

Vote positif 0 Vote négatif