Bonsoir Ovni bordelais,
En PJ un exemple.
J'ai mis le code attaché à un shape. Cela laisse plus de latitude en design.
VB:
Sub Clic()
Calculate
Maxi = Application.Max(Range("A:A"))
Sheets("Feuil1").Shapes("Bouton").TextFrame.Characters.Text = "La valeur maxi de Col A est " & Maxi
End Sub
me "parle" suffisamment et donne à penser que l'on a là affaire à des articles genre "nomenclature" composés de "préfixes" et de 4 chiffres.
La conception est alors peut-être à revoir au bénéfice d'une colonne destinée aux seuls préfixes et d'une colonne destinée aux seuls "suffixes" (les 4 chiffres). Une telle modélisation des données ne peut qu'ajouter de l'agilité à leur traitement.