transformer du txt en numérique suite

Bonjour,

Merci à Philippe.R pour ta réponse mais je souhaite règler le problème par macro.

J'ai trouvé ce code chez http://dj.joss.free.fr/cell2.htm

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("A1:A10"))
If Plage Is Nothing Then Exit Sub
For Each cellule In Plage
If cellule.Value = 1 Then
cellule.NumberFormat = "General"" er"""
Else: cellule.NumberFormat = "General"" ème"""
End If
Next
end sub

Je voudrais l'utiliser dans un module mais je ne sais pas inscrire (ByVal Target As Range) dans le
module.

Qqu'un peut-il m'aider ?
Merci
cordialement
andré

Bonjour,
Comme ceci peut être :

Sub textenum()
'MPFE le 27/02/2005
For Each cellule In Selection
If cellule <> "" Then cellule.Value = cellule.Value + 0
If cellule.Value = 1 Then
cellule.NumberFormat = "General"" er"""
Else
cellule.NumberFormat = "General"" ème"""
End If
Next
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"A QUEMENER" <rozavel@cario.fr> a écrit dans le message de news:
cvs748$h7$1@apollon.grec.isp.9tel.net...

Bonjour,

Merci à Philippe.R pour ta réponse mais je souhaite règler le problème
par macro.

J'ai trouvé ce code chez http://dj.joss.free.fr/cell2.htm

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("A1:A10"))
If Plage Is Nothing Then Exit Sub
For Each cellule In Plage
If cellule.Value = 1 Then
cellule.NumberFormat = "General"" er"""
Else: cellule.NumberFormat = "General"" ème"""
End If
Next
end sub

Je voudrais l'utiliser dans un module mais je ne sais pas inscrire (ByVal
Target As Range) dans le module.

Qqu'un peut-il m'aider ?
Merci
cordialement
andré

Et tu penses quoi de ma remarque ?
(si c'est pas trop te déranger)

Bonsour® AV ;o)))

Et tu penses quoi de ma remarque ?
(si c'est pas trop te déranger)

le môsieur André souhaite règler le problème par macro.

Sub textenum()
'MPFE le 27/02/2005
' ------ Rauphil et AV ;o)))
For Each cellule In Selection
Cellule.NumberFormat > "[=1]""1er"";[>1]#""ème"";[Red]General;[Cyan]@"
Next
End Sub

;o)))
@+

le môsieur André souhaite règler le problème par macro.