Bonsoir,

j'ai fait le tour des sujets déjà traités mais je n'ai pas trouvé de réponses à mon problème.

Je dois convertir ma cellule pourcentage en numero tout en gardant la valeur, c'est a dire en pourcentage : 20% et au final j'aimerai avoir dans ma cellule 20 mais en format numéro.

Voici la macro une partis de la macro que j'ai faite concernant ce passage :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Traitement()
 
Dim td As Worksheet
Dim taille As Range
 
 
'création de la feuille'
Worksheets("PO - PB").Copy After:=Worksheets("Feuil2")
ActiveSheet.Name = "traitement date" 'nom de la feuille'
 
   Set td = Worksheets("traitement date")
    With td
        Set taille = .Range("A2:CN4")
 
        For Each cell In taille
         vcl = cell.Value
 
            If InStr(1, cell.Text, "%") > 0 Then
            cell.EntireColumn.Select
            Selection.Rows("2:761").Select
            Selection.NumberFormat = "@"
            End If
 
        Next
            End With
 
End Sub
le résultat que j'obtient est pas exemple : 20% -> 0.2 il me suffit juste de multiplier par 100 le résultat mais je trouve pas comment faire...

Je vous remercie

Julien