Microsoft 365 Changer format cellule_VBA

fanfan38

XLDnaute Barbatruc

• 29 Juin 2024

• #2

Bonjour
Essaie de remplacer la virgule par un point
A+ François

 

Vote positif 0 Vote négatif

wDog66

XLDnaute Occasionnel

• 29 Juin 2024

• #3

Bonjour hbb

Si les nombres ne dépassent pas 999€ sinon il faut supprimer l'espace des milliers

Il "suffit" de mettre la valeur 1 dans une cellule, de la copier
De sélectionner toutes les cellules souhaitées et de faire un
Collage spécial -> Valeurs par mutiplication

A+

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 29 Juin 2024

• #4

Bonjour,

hbb à dit:

Quelqu'un aurait une idée ?

Cliquez pour agrandir...

As-tu essayé un truc genre

VB:

with range("a1:d10")
   .value=--.value
End with

[edit] Je crois me rappeler que ".value=--.value" ne marche pas... [/edit]

 

Dernière édition: 29 Juin 2024

Vote positif 0 Vote négatif

P

Phébus

XLDnaute Nouveau

• 29 Juin 2024

• #5

Bonjour hbb

voici un code à essayer :

Sub Test()
For i = 1 To 10
Range("F" & i) = CDbl(Range("F" & i))
Next i
End Sub

à adapter tes colonnes et tes lignes.

Sinon tu ajoutes directement la fonction CDbl() lors de l'importation de données. Tu régleras le problème à la source.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 30 Juin 2024

• #6

Bonjour,
Par quel biais importes-tu tes données?

 

Vote positif 0 Vote négatif

H

hbb

XLDnaute Occasionnel

• 30 Juin 2024

• #7

Bonsoir,
merci beaucoup à tous pour vos conseils.
J'avoue ne pas avoir réussi en suivant ces méthodes...
Avec 300 lignes et 50 colonnes, j'ai essayé de faire tourner une boucle i pour les lignes (suivant proposition de Phébus)
Par contre, pour enchainer d'une colonne à la suivante, je suis bloqué (la variante j = 1 to 50 ne fonctionne pas pour des colonnes A-B-C etc....

Au cas où... merci
Bonne soirée

 

Vote positif 0 Vote négatif

P

Phébus

XLDnaute Nouveau

• 30 Juin 2024

• #8

hbb à dit:

Bonsoir,
merci beaucoup à tous pour vos conseils.
J'avoue ne pas avoir réussi en suivant ces méthodes...
Avec 300 lignes et 50 colonnes, j'ai essayé de faire tourner une boucle i pour les lignes (suivant proposition de Phébus)
Par contre, pour enchainer d'une colonne à la suivante, je suis bloqué (la variante j = 1 to 50 ne fonctionne pas pour des colonnes A-B-C etc....

Au cas où... merci
Bonne soirée

Cliquez pour agrandir...

Re

Voici le code à adapter à tes colonnes et à tes lignes :

Sub Test()
For i = 1 To 500
For j = 1 To 50
Cells(i, j) = CDbl(Cells(i, j))
Next j
Next i
End Sub

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Juillet 2024

• #9

Puisque ".Value=--.Value" ne fonctionne pas, voici une autre proposition :

VB:

Sub test()
    For Each Cellule In Range("A1:D10")     ' Mettre l'adresse de la plage désirée
        If Cellule.Value <> "" Then Cellule.Value = --Cellule.Value
    Next
End Sub

 

Vote positif 0 Vote négatif