copier une partie du commentaire

Bonjour,

S'agit-il de texte écrit dans une cellule ou dans un commentaire de
cellule?

Cas 1:texte écrit dans une cellule

Dans un module (Alt+F11 puis insertion/module)

Function NumChaine(chaine)
temp = ""
For i = 1 To Len(chaine)
c = Mid(chaine, i, 1)
If c >= "0" And c <= "9" Then temp = temp & c
Next i
NumChaine = temp
End Function

en B1: =numchaine(A1)

Cas2:commentaire de cellule

Function RecupCommentaire(c)
Application.Volatile
If c.NoteText = "" Then
RecupCommentaire = ""
Else
RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ")
End If
End Function

Een B1:=numchaine(recupcommentaire(A1))

http://cjoint.com/?bCmyLnixj0

JB

On 28 jan, 11:50, "Fredy" <laurent.fr...@wanadoo.fr> wrote:

Bonjour à tous,
Dans mes commentaires j'ai 2 lignes , 1ere= 4chiffres et dans la 2ème
=des lettres (des noms)
Ex en A1 :0082
Lechamp
Les commentaires sont dans A1:A250 et je voudrai que les chiffres se
copies dans B1 :B250
Y aurai-t-il un moyen ?
Merci à tous

S'il y a toujours 4 chiffres en début:
=GAUCHE(A1;4)

JB

On 28 jan, 11:50, "Fredy" <laurent.fr...@wanadoo.fr> wrote:

Bonjour à tous,
Dans mes commentaires j'ai 2 lignes , 1ere= 4chiffres et dans la 2ème
=des lettres (des noms)
Ex en A1 :0082
Lechamp
Les commentaires sont dans A1:A250 et je voudrai que les chiffres se
copies dans B1 :B250
Y aurai-t-il un moyen ?
Merci à tous

C'est tout bon, ça roule.
je vais economiser pas mal de temp plus besoin de retapper tout ça.

Un grand merci,

On 28 jan, 12:31, "JB" <boisgont...@hotmail.com> wrote:

S'il y a toujours 4 chiffres en début:
=GAUCHE(A1;4)

JB

On 28 jan, 11:50, "Fredy" <laurent.fr...@wanadoo.fr> wrote:

Bonjour à tous,
Dans mes commentaires j'ai 2 lignes , 1ere= 4chiffres et dans la 2è me
=des lettres (des noms)
Ex en A1 :0082
Lechamp
Les commentaires sont dans A1:A250 et je voudrai que les chiffres se
copies dans B1 :B250
Y aurai-t-il un moyen ?
Merci à tous- Masquer le texte des messages précédents -- Affiche r le texte des messages précédents -