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

Résolu
tessel75 -  
 tessel75 -
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.

3 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    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+
    0
  2. tessel75
     
    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.
    0
  3. tessel75
     
    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.
    0