Formule: Max(Range(Cells(a,b),cells(c,d)) en VBA 2003 Résolu/Fermé

Question

Bonjour, 
Au travail je n'ai que Excel2003; cet après midi j'ai essayé d'écrire quelques lignes de VBA pour compléter une macro où j'avais besoin d'écrire une inégalité du genre if year(max(range(cells(a1,b),cells(a2,b)))) > year(min(range(cells(a1,b),cells(a2,b)))) then ....
ça me paraissait simple, mais il me réponds que les fonctions Min  et Max sont inconnues de VBA (en version 2003)
Qui pourrait m'indiquer comment contourner l'obstacle? Avec tous mes remerciements.

  


Configuration: Windows 7 / Firefox 25.0

Gyrus · Answer

Bonsoir,

Essaie avec 
If Year(Application.Max(Range(Cells(A1, B), Cells(A2, B)))) > Year(Application.Min(Range(Cells(A1, B), Cells(A2, B)))) Then


A+

tessel75 · Answer

Je te remercie pour ta suggestion. Je vais tester, mais comme j'ai dit le blocage est sur ma machine de travail, aussi je ne pourrai te donner le résultat, positif ou négatif, que lundi soir. Merci et Bon week-end à toi.

tessel75 · Answer

Bonsoir Gyrus,
Ta suggestion marche bien. Bravo! 
Il y a encore qq difficultés mais sur d'autres lignes.
Avec mes remerciements.
Je passe la question comme résolue.

Formule: Max(Range(Cells(a,b),cells(c,d)) en VBA 2003

3 réponses

Discussions similaires