Discussion :

[Runsh63]

Bonjour,

Afin de transformer des nombres dont certains sont au format texte en chiffre, j'avais utilisé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PNLE2 As Long, k As Byte, Account As Range
        PNLE2 = .Cells(.Rows.Count, 1).End(xlUp).Row
        k = 1
 
            For Each Account In .Range("B2:B" & PNLE2)
            Account.Value = Account.Value * k
                With Account.NumberFormat = General
                End With
            Next Account

Du coup, je l'ai remplacé par celui-ci, qui a l'avantage d'être plus rapide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
        Dim PNLE2 As Long
        PNLE2 = .Cells(.Rows.Count, 2).End(xlUp).Row
 
            With .Range("K2:K" & PNLE2)
                .Formula = "=VALUE(RC[-9])"
                .Value = .Value
                .Copy .Range("B2:B" & PNLE2)
                .ClearContents
            End With

Ca marche au niveau du résultat recheché, mais lors de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Copy .Range("B2:B" & PNLE2)

La première valeur copiée commence en L3 (au lieu de B2)...

Savez-vous pourquoi et surtout pouvez-vous SVP m'aider à obtenir le résultat désiré ?

Je vous remercie énormément par avance (je suis dans le jus et ai peu de temps devant moi, toute aide sera énormément appréciée).

[Jean-Pierre49]

Bonjour,
Essais avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Copy Range("B2:B" & PNLE2)

Le point devant le range me gène un peu

tu dis

[aalex_38]

Bonjour,


En effet ceci devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With Range("E2:E" & PNLE2)
    .Copy Destination:=Range("K2:K" & PNLE2)
    .Value = .Value
End With

Mais à quoi sert le reste ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With .Range("K2:K" & PNLE2)
                .Formula = "=VALUE(RC[-9])"
                              .ClearContents
            End With

[Runsh63]

Merci à vous deux pour vos réponses, j'ai également trouvé une parade avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Copy .Range(.Cells(2, 2), .Cells(2, PNLE2))

aalex_38, le VALUE me sert à uniformiser des comptes qui sont compilés dans des formats différents en chiffre. J'ai l'impression que ça marche. Peut-être as-tu une meilleure proposition, auquel cas je suis preneur

En tout cas encore merci !