Bonjour cela fonctionne à moitié ... je dois mal modifier le code à mes différents cas:
Pourriez vous m'expliquer cette ligne ci?
Merci
' ------------- s'il s'agit d'une forme automatique msoShapeType=1
If S.Type = 1 Then
' ------------- on prend le dernier caractère du nom de la forme (Cint le transforme en nombre entier)
x = CInt(Right(S.Name, 1))
' ------------- on fait correspondre x avec le n° de la ligne contenant les données
'-------------- colonne 1= etiquette Abscisse, colonne 5 = valeur du gap
'-------------- on écrit ces données dans la forme
S.TextFrame.Characters.Text = Cells(67 + x, 1) & Chr(10) & Format(Cells(67 + x, 5), "0%")