bonjour,
je voudrai savoir comment éditer dans un shape ou une msgbox des nombres qui sont parfois sous forme de pourcentage parfois sous forme entière ou décimale. Les nombres à éditer sont dans departementInfo1, departementInfo2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 With Me.Select_Departement
    departementNom = .Value
    'Récupère le code et les infos du departement
    departementNum = Application.Index(oSheet.Range("A2", [A65635].End(xlUp)), .ListIndex + 1, 1)
    departementInfo1 = Application.Index(oSheet.Range("C2", [A65635].End(xlUp)), .ListIndex + 1, 1)
    departementInfo2 = Application.Index(oSheet.Range("D2", [A65635].End(xlUp)), .ListIndex + 1, 1)
    iRang = .ListIndex
End With
'Affiche les nom , code et info du departement
strInfo = " Vous avez cliqué sur le département : " & departementNom & vbNewLine & " Info1 :    " & departementInfo1 & "      Info2 :    " & departementInfo2
shpInfo.DrawingObject.Text = strInfo
Range("C1").Select
Merci pour votre réponse