format peronnalisé

[jeffe]

bonjour à tous, je cherche un format perso
j'ai des chiffres de ce style 0.0025, il faudrait que ce resultat soit multiplié par 1000000
afin dobtenir 25 ppm
j'ai trouvé un format perso mais qui divise par un million, mais pas qui multiplie
je ne voudrais pas passer par une colone suplementaire
merci

 

[Hulk]

Re : format peronnalisé

Hello,

Pas sûr d'avoir bien compris ta demande, mais si tu veux multiplier tes chiffres sans passer par une colonne supplémentaire, je te propose ce code pour un CommandButton.

Private Sub CommandButton1_Click()

    Dim x As Range

    For Each x In Range("A1:A" & Range("A65536").End(xlUp).Row)
        If x <> "" Then
            x = x * 10000
        End If
    Next x
    
End Sub

Ou, tu peux aussi le placer sur le Change de la feuille comme ça

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim x As Range

    For Each x In Range("A1:A" & Range("A65536").End(xlUp).Row)
        If x <> "" Then
            x = x * 10000
        End If
    Next x
    
End Sub

Mais attention, teste d'abord sur quelques lignes pour voir le résultat !

Bonne continuation, Hulk.

 

[jeffe]

Re : format peronnalisé

helo Hulk, ça marche pas bien j'ai un depasement de capacité
je continue à chercher