MACRO insertion triangle de revision

bonjour!

je cherche a faire une macro qui me permet de creer un triangle de revision (pour ceux qui connaissent pas, c'est un triangle avec un # dedans qui indique le # de changement sur un fichier)

bon alors la comme jsuis rendu

y me place un triangle dans la cellule pre-selectionner (et de la taille minimale que je dois avoir pour que le chiffre sois afficheable)

Seulement, j'aimerais qu'excel utilise une formule du genre ( =max($O$2:$O$6) apparament c'est pas valable (j'ai aussi aissayer en donnant a cette formule un nom et en lui fesans faire la formule =nom) tout ce que j'arrive a faire c'est (=cellule (dans laquelle il y a la formule ( =max($O$2:$O$6) )) seulement voila, je ne peux pas mettre cette formule directement sur le fichier (dans une cellule par example) car je n'ai pas acces pour changer notre template (jai ajouter cette macrodirectement sur une icone dans mes barres d'outils

jai donc aissayer d'ajouter a ma macro l'actionde mettre la formule dans une cellule et de mettre dans le triangle une reference a cette cellule...le probleme c'est que je me retrouve soit avec mon curseur dans cette cellule a la fin (ce qui n'est pas pratique) sois avec mon triangle dans cette cellule ce qui n'est pas le but

je ne sais pas si je suis clair

P.S. je suis VRAIMENT debutant avec le VBA (j'ai commencer a travailler la dessus a il y a 2 jours au travail (temps plein) petite amelioration pendant que nous n'avons pas de projets en cours) alors je vous demanderais soit des explication clair soit des parites de code a inserer

voici le mieux que j'ai pu faire pour l'instant:

Sub Rev_triangleTEST()
'
' Rev_triangleTEST Macro
' Macro recorded 6/16/2009 by Maxime
'

 'get dimensions of  range selection
    With Selection
        l = .Left
        t = .Top
        w = .Width
        h = .Height

    End With

    ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, l, t, 18#, _
        30#).Select
    ExecuteExcel4Macro "FORMULA(""=R2C1"")"
    With Selection.Characters(Start:=1, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

 End Sub

Bonjour,

Un énoncé bien clair, aéré, avec des paragraphes, etnonpastoutcollécommececi, est beaucoup plus compréhensible....

d'après ce que j'ai compris

Tu fais Insertion/Nom/Définir

tu nommes par exemple "lemax"

et en bas, la formule : (ici pour les cellules B1 à B4)

=MAX(Feuil1!$B$1:$B$4)

ensuite, ton code :

Sub Rev_triangleTEST()
'
' Rev_triangleTEST Macro
' Macro recorded 6/16/2009 by Maxime
'

 'get dimensions of  range selection
    With Selection
        l = .Left
        t = .Top
        w = .Width
        h = .Height

    End With

    ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, l, t, 18#, _
        30#).Select
    With Selection
        .Characters.Text = [lemax]
        With .Characters(1, Len(.Characters.Text)).Font
            .Size = 6
        End With
    End With

   [A1].Select
 End Sub

Ceci, si j'ai bien compris, bien sûr....

merci! il ne me manquais que les [ ]

jte demande pardon pour la mise en page ^^