Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

extaire un N° de Bon d'un texte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dindin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

dindin

XLDnaute Occasionnel
Bonjour le forum ;
Je cherche un code en vba qui pourra eventuellement m'aider à extaire un N° de Bon dans un texte qui pourra depasser les 255 caractères.
ex : en F8 j'ai ce texte :
ffffffffffffffffffffffffffffffffffffffffffffddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt Bon N° : 2322ttttttttttttttttttttttttttaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaattttttttttttttttttpppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp

je voulais extraire en L8 ce fameux Bon N°
En L8 : 2322.
Pour le moment j'utilise cette formule :
=SI(NB.SI(F8;"*Bon N°*")=1;STXT(F8;TROUVE("Bon N°";F8;1)+7;4);"")
mais cette formule elle bloque de temps en temps je sais pas pourquoi
Merci à vous
 
Trier par date Trier par votes
Re : extaire un N° de Bon d'un texte

Bonjour Dindin,

Tous mes voeux pour cette nouvelle année 2013 ....

Une solution possible parmis tant d'autre :

Code: 
Option Explicit

Sub trouve()

 Dim NumBon As String

  NumBon = Mid(Range("A1"), InStr(1, Range("A1"), "Bon N") + 9, 4)

End Sub
 
Vote positif 0 Vote négatif
Re : extaire un N° de Bon d'un texte

Bonsoir à tous,

Une fonction VBA à placer dans un module standard :

Code: 
Function BON(t As String) As Variant
Dim p As Integer
t = Application.Trim(LCase(Replace(t, ":", ""))) 'SUPPRESPACE
p = InStr(t, "bon n°")
If p = 0 Then BON = "": Exit Function
BON = Val(Mid(t, p + 7))
End Function
et à utiliser dans la feuille de calcul par =BON(A1)

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Résolu(e)
Microsoft 365 Aide formule de comptage de texte dans lignes d'un tableau
Réponses
2
Affichages
427
richard31
R
B
  • Question Question
XL 2016 Extraire un nombre d'une chaine de caractère
2
Réponses
18
Affichages
734
Eric 45
E
M
  • Question Question
XL 2019 Recherche d'un mot dans une chaîne de caractère depuis une plage de références puis si présent renvoyer la référence
Réponses
7
Affichages
820
MilieBZH
M
T
  • Question Question
XL 2016 Transfert de données d'un tableau à un autre
2
Réponses
16
Affichages
2 K
merinos-BernardEtang
A
  • Question Question
XL 2016 To do list
Réponses
1
Affichages
842
chris
V
  • Résolu(e)
XL 2021 Complétion d'un tableau automatisée
Réponses
9
Affichages
1 K
VincentH.DR
V
A
  • Question Question
Autres RECUPERER une suite de Caractères à partir d'un Caractère spécifique du texte
Réponses
8
Affichages
695
AL 22
A
  • Résolu(e)
XL 2010 Renvoyer le N° de ligne d'une partie numérique identique à un code
2 3
Réponses
34
Affichages
3 K
Dranreb
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
912
oguruma
P
  • Question Question
Microsoft 365 [résolu] insertion conditionnelle texte + de 255 caractères
Réponses
4
Affichages
2 K
Orson83
L
  • Question Question
XL 2019 Macro : Placement d'un texte dans un tableau : VBA impératif
Réponses
11
Affichages
1 K
limagerit
L
T
  • Question Question
XL 2019 Boucle VBA ou extraction si la ligne contient.
Réponses
3
Affichages
1 K
therese067117
T
H
  • Question Question
XL 2016 Paramètre de calcul à inclure dans une fonction avec INDEX EQUIV
Réponses
4
Affichages
2 K
Habs57
H
  • Question Question
Microsoft 365 Tableau suivi de billeterie d'un CSE
2
Réponses
16
Affichages
5 K
LAETI-TOINOU
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
S
  • Question Question
Autres Code vba incrémentation N°
Réponses
0
Affichages
1 K
samia89
S
J
  • Question Question
Autres Créer une référence automatiquement avec une suite de nombre
Réponses
3
Affichages
697
jom007
J
M
  • Question Question
XL 2013 Transformer le format Texte en Date suite à un transfert automatique via VBA
Réponses
3
Affichages
1 K
MgLina
M
  • Résolu(e)
Autres Compter le nombre d'occurrence d'un élément
Réponses
7
Affichages
1 K
job75
N
  • Question Question
Microsoft 365 Traitement de formule différent d'un poste à un autre
Réponses
1
Affichages
668
nitro97130
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…