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
Ne pouvait être qu'un nombre pas une chaîne.afficher plus grande valeur
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.En PJ un essai. La structure doit être toujours la même. Je n'analyse que les 4 chiffres à droite.