Extraire une chaîne de caractère contenant 8 chiffre d'une autre

Fermé
JuJu64 - 28 juil. 2015 à 16:04
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 28 juil. 2015 à 19:52
Bonjour,

Mon problème: dans une cellule il y des commentaires et à l'intérieur de ce commentaire j'aimerais récupérer un numéro de commande commençant par 7 et composé de 8 chiffres. Ce numéro est différent et placé differemment dans le commentaire à chaque fois.
J'aimerais donc extraire d'une cellule une chaine de caractère qui contient 8 chiffres et commençant par 7

Merci d'avance pour votre aide!

A voir également:

3 réponses

m@rina Messages postés 21201 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 21 décembre 2024 11 370
28 juil. 2015 à 16:17
Bonjour

Essaie ceci :
=STXT(A1;CHERCHE(7;A1);8)

supposant que le commentaire se trouve en A1.

m@rina
0
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 5 110
28 juil. 2015 à 17:54
Bonjour,

Si j'ai bien compris, la chaine de caractère à extraire est bien dans le commentaire ou dans la cellule A1 !
0
m@rina Messages postés 21201 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 21 décembre 2024 11 370
28 juil. 2015 à 19:33
Bonjour Mike,

Effectivement je n'ai pas pensé aux commentaires de la fonction Insertion Commentaires... J'ai juste pensé qu'il s'agissait de texte dans une cellule...

Pour extraire une chaîne d'un commentaire, je ne vois qu'une solution macro.
0
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 5 110
Modifié par Mike-31 le 28/07/2015 à 19:54
Re,

Effectivement je ne vois que le VBA avec ce genre de code à placer dans un bouton activex ou à adapter dans un code Sub
affiche en B2 par exemple 8 caractères à partir du 1er 7

Private Sub CommandButton1_Click()
Dim MyCom As String
MyCom = Range("A1").Comment.Text
[B2] = Left(Right(MyCom, Len(MyCom) - InStr(MyCom, "7") + 1), 8)
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0