calcul dans VBA

[Tmumu]

Bonjour,

Je veux placer dans la "FeuilleTCD" en k13

Z = (x-y) / 365

Où x est le maximum de la colonne F de la feuille "F. calcul"

Où y est le minimum de la colonne F de la feuille "F. calcul"

Voir fichier ci-joint.

Merci et bonne année

 

[ChTi160]

Re : calcul dans VBA

Salut Tmumu
Bonjour le Forum
voilà ce que j'ai modifié à adapter surement

x = Evaluate("=MAX('F. calcul'!f11:f" & linfin & ")")

y = Evaluate("=MIN('F. calcul'!f11:f" & linfin & ")")

' z est (x-y)/365

z = Evaluate((x - y) / 365)

Bonne Journée
Bonne fin D'Année 2007 et Bonne Année 2008

 

[Tmumu]

Re : calcul dans VBA

Un grand merci et bon réveillon.

 

[myDearFriend!]

Re : calcul dans VBA

Bonjour Tmumu, ChTi160 , le Forum,

Sauf erreur de compréhension de ma part, je verrais plutôt quelque chose comme :

[COLOR=NAVY]Sub[/COLOR] Macrotest()
[COLOR=NAVY]Dim[/COLOR] linfin [COLOR=NAVY]As Long
Dim[/COLOR] x [COLOR=NAVY]As [B]Double[/B][/COLOR], y [COLOR=NAVY]As [B]Double[/B][/COLOR], z [COLOR=NAVY]As [B]Double[/B][/COLOR]

    [COLOR=NAVY]With[/COLOR] Sheets("F. calcul")
        linfin = .Range("A65536").[COLOR=NAVY]End[/COLOR](xlUp).Row
        
        [COLOR=GREEN]'x est le maximun de la colonne F[/COLOR]
        [COLOR=GREEN]'y est le minimun de la colonne F[/COLOR]
        
        x = Application.Max(.Range("F11:F" & linfin))
        y = Application.Min(.Range("F11:F" & linfin))
            
        [COLOR=GREEN]' z est (x-y)/365[/COLOR]
        z = (x - y) / 365
    [COLOR=NAVY]End With[/COLOR]

    Worksheets("FeuilleTCD").Range("k13").[B]Value [/B]= z
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

[ChTi160]

Re : calcul dans VBA

Salut Tmumu
Bonsoir Didier

Arff tu n'as pas fait d'erreur,ai je besoin de te rassurer, c'est toute la différence entre un bidouilleur (Que je suis)et un rigoriste Lol (Que tu es )car effectivement , pourquoi utiliser(évaluer le résultat d'une formule ) alors que l'appli permet ce calcul directement, j'en prends note (Application) et je ne m'en félicite pas Lol ,mais je t'en remercie
Bonne Année et bonne fin de Journée

 

[myDearFriend!]

Re : calcul dans VBA

Bonsoir Tmumu, ChTi160, le Forum,

Salut Tmumu
Bonsoir Didier

Arff tu n'as pas fait d'erreur,ai je besoin de te rassurer, c'est toute la différence entre un bidouilleur (Que je suis)et un rigoriste Lol (Que tu es )car effectivement , pourquoi utiliser(évaluer le résultat d'une formule ) alors que l'appli permet ce calcul directement, j'en prends note (Application) et je ne m'en félicite pas Lol ,mais je t'en remercie
Bonne Année et bonne fin de Journée

Non, mon cher ami Jean-Marie, je ne pense pas que tu sois bidouilleur et moi (F)rigoriste ... Pour ma part, je note simplement que tu réponds à peine 14 minutes après que Tmumu ait posé sa question alors que moi, j'ai eu plus de 4 heures pour réfléchir !

Plaisanterie mise à part, et quitte à m'attirer les foudres de certains... c'est sans doute la rançon du succès d'XLD, mais dans la course aux réponses qu'on peut observer bien souvent aujourd'hui, je pense que certaines propositions sont parfois un peu trop précipités et manquent de recul et de réflexion pourtant nécessaires...

Cordialement,

 

[Tmumu]

Re : calcul dans VBA

Excellent ! Voilà qui va bien m'aider.

Merci et une excellente années 2008 remplie de belles lignes de codes VBA.