Chiffres en texte et lettre mélangés

[Ouin-Ouin]

Bonsoir tout le forum,

J'ai une petite demande à vous tous.

J'ai une feuille de calcul qui contient environ 1500 cellules occupées par des chiffres au format chiffre des chiffres au format texte des chiffres comme séparateur de milliers avec des points d'autres avec des virgules.... enfin c'est légèrement le bronx ici.....
alors comment faire pour mettre tout ce petit monde au garde à vous?
je les veux au format chiffre (1 585,256 par exemple )
j'ai essayé de sélectionner les colonnes concernées puis cellule format.... mais rien n'y fait cela ne joue pas. Il faut savoir que ces chiffres viennent d'USF.

Merci de votre aide et bonne soirée

Ouin-Ouin

 

[Wilfried]

Salut ouin-ouin

Question :

- Comment sont inscrit tes infos depuis ton USF ( par variable ou control source)?
- Je suppose que tu veux que cela fonctionne pour ta liste déja existante?

Proposition à la volée :

sub conversion
dim m_cell as range

'en admettant que ton tableau commence en A1

range("A1").currentregion.select
for each m_cell in selection
if isnumeric(m_cell.value)=false then
m_cell.formula=cdbl(m_cell.value)
end if
next

end sub

je vais regarder de mon coté pour voir si il n'y as pas des soucis avec ce code ou autre chose de plus efficace.

A+ Wilfried ;op

 

[Ti]

plus simple, on travaille sur toute les cellules de la feuille :

Sub Nombres()
Dim Cel As Range
On Error Resume Next
For Each Cel In ActiveSheet.UsedRange
Cel = CDbl(Replace(Replace(Cel.Value, " ", ""), ".", ","))
Next Cel
End Sub