Si contenu cellule est nombre transformer contenu en texte sous VBA

[bvb09]

Bonjour,

Je souhaiterais avoir une macro qui me permette de transformer les ref. de machines qui sont parfois des nombres, en texte. J´ai écrit ce code en vba... Mais cela ne fonctionne pas. Quelqu´un aurait-il une idée?

Sub ZahlInText()

Dim mycell As Range

For Each mycell In Range("maschinen")

If mycell.Value <> 0 And Application.WorksheetFunction.IsNumber(mycell.Value) then
mycell = Str(mycell.Value)
Else: End If

Next mycell

End Sub

 

[tototiti2008]

Re : Si contenu cellule est nombre transformer contenu en texte sous VBA

Bonjour bvb09,

Peut-être faut-il mettre le format texte à la colonne avant de lancer la macro
Format de nombre - Texte

 

[bvb09]

Re : Si contenu cellule est nombre transformer contenu en texte sous VBA

Cela fonctionne effectivement.
Je n´y avais pas pensé.
Merci