Bonjour, Pour la cellule C19 =CNUM(GAUCHE(C19;5)) Cordialement Poc
"Bernard SALIEN" a écrit dans le message de news: 4756a4a7$0$25936$
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
Pas trop bizarre comme question?
Merci de vos conseils s'ils existent!
BS
zOrg2net
Bonjour Bernard, Il faudrait nous en dire plus. Comme: est-ce que les chiffres commencent toujours tes valeurs? Y-a-t-il toujours un espace après les chiffres? Quel est en fait le format de tes données?
zOrg2net 7OuNet Le dicton du jour: La Droite cherche un nouvel élan... Oui, ils ont trouvé la femelle mais il leur manque le mâle...
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
Pas trop bizarre comme question?
Merci de vos conseils s'ils existent!
BS
Bonjour Bernard,
Il faudrait nous en dire plus. Comme: est-ce que les chiffres commencent
toujours tes valeurs? Y-a-t-il toujours un espace après les chiffres? Quel
est en fait le format de tes données?
zOrg2net
7OuNet
Le dicton du jour: La Droite cherche un nouvel élan... Oui, ils ont trouvé
la femelle mais il leur manque le mâle...
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres
question:
peut on facilement récupérer les chiffres et les mettre seuls dans une autre
cellule.
Bonjour Bernard, Il faudrait nous en dire plus. Comme: est-ce que les chiffres commencent toujours tes valeurs? Y-a-t-il toujours un espace après les chiffres? Quel est en fait le format de tes données?
zOrg2net 7OuNet Le dicton du jour: La Droite cherche un nouvel élan... Oui, ils ont trouvé la femelle mais il leur manque le mâle...
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
Pas trop bizarre comme question?
Merci de vos conseils s'ils existent!
BS
FFO
Salut à toi Soit la cellule active à traiter quelque soit le nombre et la position des chiffres Dans la cellule adjacente l'ensemble des chiffres trouvés avec ce code :
For i = 1 To Len(ActiveCell) car = Mid(ActiveCell, i, 1) If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6 Or car = 7 Or car = 8 Or car = 9 Then chainenum = chainenum & car End If Next ActiveCell.Offset(0, 1) = chainenum
Celà devrait faire
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
Pas trop bizarre comme question?
Merci de vos conseils s'ils existent!
BS
Salut à toi
Soit la cellule active à traiter quelque soit le nombre et la position des
chiffres
Dans la cellule adjacente l'ensemble des chiffres trouvés avec ce code :
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6
Or car = 7 Or car = 8 Or car = 9 Then
chainenum = chainenum & car
End If
Next
ActiveCell.Offset(0, 1) = chainenum
Celà devrait faire
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres
question:
peut on facilement récupérer les chiffres et les mettre seuls dans une autre
cellule.
Salut à toi Soit la cellule active à traiter quelque soit le nombre et la position des chiffres Dans la cellule adjacente l'ensemble des chiffres trouvés avec ce code :
For i = 1 To Len(ActiveCell) car = Mid(ActiveCell, i, 1) If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6 Or car = 7 Or car = 8 Or car = 9 Then chainenum = chainenum & car End If Next ActiveCell.Offset(0, 1) = chainenum
Celà devrait faire
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
Pas trop bizarre comme question?
Merci de vos conseils s'ils existent!
BS
Bernard SALIEN
Merci messieurs, impeccable "FFO" a écrit dans le message de news:
Salut à toi Soit la cellule active à traiter quelque soit le nombre et la position des chiffres Dans la cellule adjacente l'ensemble des chiffres trouvés avec ce code :
For i = 1 To Len(ActiveCell) car = Mid(ActiveCell, i, 1) If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6 Or car = 7 Or car = 8 Or car = 9 Then chainenum = chainenum & car End If Next ActiveCell.Offset(0, 1) = chainenum
Celà devrait faire
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
Pas trop bizarre comme question?
Merci de vos conseils s'ils existent!
BS
Merci messieurs, impeccable
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
751B6E8A-7A5D-41F9-92DC-FFD543B3A19D@microsoft.com...
Salut à toi
Soit la cellule active à traiter quelque soit le nombre et la position des
chiffres
Dans la cellule adjacente l'ensemble des chiffres trouvés avec ce code :
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car =
6
Or car = 7 Or car = 8 Or car = 9 Then
chainenum = chainenum & car
End If
Next
ActiveCell.Offset(0, 1) = chainenum
Celà devrait faire
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres
question:
peut on facilement récupérer les chiffres et les mettre seuls dans une
autre
cellule.
Merci messieurs, impeccable "FFO" a écrit dans le message de news:
Salut à toi Soit la cellule active à traiter quelque soit le nombre et la position des chiffres Dans la cellule adjacente l'ensemble des chiffres trouvés avec ce code :
For i = 1 To Len(ActiveCell) car = Mid(ActiveCell, i, 1) If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6 Or car = 7 Or car = 8 Or car = 9 Then chainenum = chainenum & car End If Next ActiveCell.Offset(0, 1) = chainenum
Celà devrait faire
Bonjour,
Dans une cellule 5 chiffres , un espace, des lettres question: peut on facilement récupérer les chiffres et les mettre seuls dans une autre cellule.
