Dans certaines cellules d'un tableau l'utilisateur=20
inscrit une valeur du type Caract=E8reNombre (par ex. S8).=20
J'ai besoin de r=E9cup=E9rer dans une macro que la valeur=20
num=E9rique entr=E9e (8 dans l'exemple ci-dessus).=20
Comment faire ? J'ai essay=E9 Val(expression) mais =E7a me=20
renvoie 0 avec l'exemple ci-dessus.=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
D'un illustre contributeur : =STXT(A1;EQUIV(VRAI;(ESTNUM(STXT(A1;LIGNE(INDIRECT ("1:"&NBCAR(A1)));1)*1));0);99)
Camille
-----Message d'origine----- Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie .
Bonjour,
D'un illustre contributeur :
=STXT(A1;EQUIV(VRAI;(ESTNUM(STXT(A1;LIGNE(INDIRECT
("1:"&NBCAR(A1)));1)*1));0);99)
Camille
-----Message d'origine-----
Bonjour,
Dans certaines cellules d'un tableau l'utilisateur
inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur
numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me
renvoie 0 avec l'exemple ci-dessus.
D'un illustre contributeur : =STXT(A1;EQUIV(VRAI;(ESTNUM(STXT(A1;LIGNE(INDIRECT ("1:"&NBCAR(A1)));1)*1));0);99)
Camille
-----Message d'origine----- Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie .
ChrisV
Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne... (sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza()
Dim i As Integer, c As Range
For Each c In Selection
nb = ""
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then _
nb = 1 * (nb & Mid(c, i))
Next i
MsgBox nb
Next c
End Sub
ChrisV
"Sophie" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$a501280a@phx.gbl...
Bonjour,
Dans certaines cellules d'un tableau l'utilisateur
inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur
numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me
renvoie 0 avec l'exemple ci-dessus.
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne... (sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
Sophie
Re
Plutôt hermétique tout ça ...
Y'a rien de plus simple ou alors un petit mot d'explication ?
Sophie
-----Message d'origine----- Bonjour,
D'un illustre contributeur : =STXT(A1;EQUIV(VRAI;(ESTNUM(STXT(A1;LIGNE(INDIRECT ("1:"&NBCAR(A1)));1)*1));0);99)
Camille
-----Message d'origine----- Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie .
.
Re
Plutôt hermétique tout ça ...
Y'a rien de plus simple ou alors un petit mot
d'explication ?
Sophie
-----Message d'origine-----
Bonjour,
D'un illustre contributeur :
=STXT(A1;EQUIV(VRAI;(ESTNUM(STXT(A1;LIGNE(INDIRECT
("1:"&NBCAR(A1)));1)*1));0);99)
Camille
-----Message d'origine-----
Bonjour,
Dans certaines cellules d'un tableau l'utilisateur
inscrit une valeur du type CaractèreNombre (par ex.
S8).
J'ai besoin de récupérer dans une macro que la valeur
numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me
renvoie 0 avec l'exemple ci-dessus.
Y'a rien de plus simple ou alors un petit mot d'explication ?
Sophie
-----Message d'origine----- Bonjour,
D'un illustre contributeur : =STXT(A1;EQUIV(VRAI;(ESTNUM(STXT(A1;LIGNE(INDIRECT ("1:"&NBCAR(A1)));1)*1));0);99)
Camille
-----Message d'origine----- Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie .
.
Sophie
Merci pour ces infos ; en fait mon pb est beaucoup plus simple et je pense qu'avec la fonction Mid je devrais m'en sortir au bémol près que je viens d'essayer et que Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est saisie via une ComboBox ?
-----Message d'origine----- Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
.
Merci pour ces infos ; en fait mon pb est beaucoup plus
simple et je pense qu'avec la fonction Mid je devrais
m'en sortir au bémol près que je viens d'essayer et que
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est
saisie via une ComboBox ?
-----Message d'origine-----
Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple,
en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza()
Dim i As Integer, c As Range
For Each c In Selection
nb = ""
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then _
nb = 1 * (nb & Mid(c, i))
Next i
MsgBox nb
Next c
End Sub
ChrisV
"Sophie" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Dans certaines cellules d'un tableau l'utilisateur
inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur
numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me
renvoie 0 avec l'exemple ci-dessus.
Merci pour ces infos ; en fait mon pb est beaucoup plus simple et je pense qu'avec la fonction Mid je devrais m'en sortir au bémol près que je viens d'essayer et que Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est saisie via une ComboBox ?
-----Message d'origine----- Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
.
Jacky
Bonjour Sophie
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais
essaie Mid("S8",2,1) ou Right("S8", 1) ou pour une cellule Right([A1],1)
Salutations JJ
"Sophie" a écrit dans le message news: 13fb201c3f7bf$32809e50$ Merci pour ces infos ; en fait mon pb est beaucoup plus simple et je pense qu'avec la fonction Mid je devrais m'en sortir au bémol près que je viens d'essayer et que Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est saisie via une ComboBox ?
-----Message d'origine----- Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
.
Bonjour Sophie
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais
essaie
Mid("S8",2,1)
ou
Right("S8", 1)
ou pour une cellule
Right([A1],1)
Salutations
JJ
"Sophie" <anonymous@discussions.microsoft.com> a écrit dans le message news:
13fb201c3f7bf$32809e50$a501280a@phx.gbl...
Merci pour ces infos ; en fait mon pb est beaucoup plus
simple et je pense qu'avec la fonction Mid je devrais
m'en sortir au bémol près que je viens d'essayer et que
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est
saisie via une ComboBox ?
-----Message d'origine-----
Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple,
en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza()
Dim i As Integer, c As Range
For Each c In Selection
nb = ""
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then _
nb = 1 * (nb & Mid(c, i))
Next i
MsgBox nb
Next c
End Sub
ChrisV
"Sophie" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Dans certaines cellules d'un tableau l'utilisateur
inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur
numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me
renvoie 0 avec l'exemple ci-dessus.
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais
essaie Mid("S8",2,1) ou Right("S8", 1) ou pour une cellule Right([A1],1)
Salutations JJ
"Sophie" a écrit dans le message news: 13fb201c3f7bf$32809e50$ Merci pour ces infos ; en fait mon pb est beaucoup plus simple et je pense qu'avec la fonction Mid je devrais m'en sortir au bémol près que je viens d'essayer et que Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est saisie via une ComboBox ?
-----Message d'origine----- Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
.
Sophie
OK merci
-----Message d'origine----- Bonjour Sophie
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais
essaie Mid("S8",2,1) ou Right("S8", 1) ou pour une cellule Right([A1],1)
Salutations JJ
"Sophie" a écrit dans le message news:
13fb201c3f7bf$32809e50$ Merci pour ces infos ; en fait mon pb est beaucoup plus simple et je pense qu'avec la fonction Mid je devrais m'en sortir au bémol près que je viens d'essayer et que Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est saisie via une ComboBox ?
-----Message d'origine----- Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.
Merci pour votre aide - Sophie
.
.
OK merci
-----Message d'origine-----
Bonjour Sophie
Mid("S8", 2) me renvoie S8 et non 8 comme je le
pensais
essaie
Mid("S8",2,1)
ou
Right("S8", 1)
ou pour une cellule
Right([A1],1)
Salutations
JJ
"Sophie" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
13fb201c3f7bf$32809e50$a501280a@phx.gbl...
Merci pour ces infos ; en fait mon pb est beaucoup plus
simple et je pense qu'avec la fonction Mid je devrais
m'en sortir au bémol près que je viens d'essayer et que
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est
saisie via une ComboBox ?
-----Message d'origine-----
Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple,
en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza()
Dim i As Integer, c As Range
For Each c In Selection
nb = ""
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then _
nb = 1 * (nb & Mid(c, i))
Next i
MsgBox nb
Next c
End Sub
ChrisV
"Sophie" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Dans certaines cellules d'un tableau l'utilisateur
inscrit une valeur du type CaractèreNombre (par ex. S8).
J'ai besoin de récupérer dans une macro que la valeur
numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me
renvoie 0 avec l'exemple ci-dessus.
Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais
essaie Mid("S8",2,1) ou Right("S8", 1) ou pour une cellule Right([A1],1)
Salutations JJ
"Sophie" a écrit dans le message news:
13fb201c3f7bf$32809e50$ Merci pour ces infos ; en fait mon pb est beaucoup plus simple et je pense qu'avec la fonction Mid je devrais m'en sortir au bémol près que je viens d'essayer et que Mid("S8", 2) me renvoie S8 et non 8 comme je le pensais.
Est-ce que cela peut venir du fait que la valeur S8 est saisie via une ComboBox ?
-----Message d'origine----- Bonjour Sophie,
Si la valeur numérique se situe, comme sur ton exemple, en fin de chaîne...
(sur la plage sélectionnée)
Sub zaza() Dim i As Integer, c As Range For Each c In Selection nb = "" For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then _ nb = 1 * (nb & Mid(c, i)) Next i MsgBox nb Next c End Sub
ChrisV
"Sophie" a écrit dans le message de
news: 13f3401c3f7b6$9bce6850$ Bonjour,
Dans certaines cellules d'un tableau l'utilisateur inscrit une valeur du type CaractèreNombre (par ex. S8). J'ai besoin de récupérer dans une macro que la valeur numérique entrée (8 dans l'exemple ci-dessus).
Comment faire ? J'ai essayé Val(expression) mais ça me renvoie 0 avec l'exemple ci-dessus.