Quel est la aleur de la cellule dont tu veux extraire la donnee ?
On peut utiliser la fonction left....mid....right
tout depend de la valeur initiale... @+ Michel.
"rico34" a écrit dans le message de news:
Bonjour
J'ai un petit problème. Comment peut-on extraire une majuscule suivi d'un point dans une chaine de caractère.
Merci pour vos réflexions
Clément Marcotte
Bonjour,
Donne le nombre 0 quand il n'y a pas de correspondance. Sinon c'est la majuscule suivie d'un point. S'arrête à la première correspondance trouvée.
Cela peut être utilisé comme une fonction de feuille de calcul dans une feuille Excel, ou dans VBA, appelé avec une Sub()
Function UneMajusculeEtUnPoint(chaine As String) As Variant Dim re As Object, match As Object, matches As Object 'Déclarer une variable object re pour utiliser 'les expressions régulières Set re = CreateObject("vbscript.regexp") 'Avec global à false, on arrête avec la première 'correspondance. Avec true, on cherche toute les correspondances 'dans la cellule re.Global = False 'On cherche une majuscule et un point re.Pattern = "[A-Z]{1}x2E" Set matches = re.Execute(chaine) For Each match In matches UneMajusculeEtUnPoint = match Next End Function
"rico34" a écrit dans le message de news:
Bonjour
J'ai un petit problème. Comment peut-on extraire une majuscule suivi d'un point dans une chaine de caractère.
Merci pour vos réflexions
Bonjour,
Donne le nombre 0 quand il n'y a pas de correspondance. Sinon c'est la
majuscule suivie d'un point. S'arrête à la première correspondance trouvée.
Cela peut être utilisé comme une fonction de feuille de calcul dans une
feuille Excel, ou dans VBA, appelé avec une Sub()
Function UneMajusculeEtUnPoint(chaine As String) As Variant
Dim re As Object, match As Object, matches As Object
'Déclarer une variable object re pour utiliser
'les expressions régulières
Set re = CreateObject("vbscript.regexp")
'Avec global à false, on arrête avec la première
'correspondance. Avec true, on cherche toute les correspondances
'dans la cellule
re.Global = False
'On cherche une majuscule et un point
re.Pattern = "[A-Z]{1}x2E"
Set matches = re.Execute(chaine)
For Each match In matches
UneMajusculeEtUnPoint = match
Next
End Function
"rico34" <rico34@discussions.microsoft.com> a écrit dans le message de news:
D4987DE6-7F9C-46B6-ABDA-091182911B87@microsoft.com...
Bonjour
J'ai un petit problème. Comment peut-on extraire une majuscule suivi d'un
point dans une chaine de caractère.
Donne le nombre 0 quand il n'y a pas de correspondance. Sinon c'est la majuscule suivie d'un point. S'arrête à la première correspondance trouvée.
Cela peut être utilisé comme une fonction de feuille de calcul dans une feuille Excel, ou dans VBA, appelé avec une Sub()
Function UneMajusculeEtUnPoint(chaine As String) As Variant Dim re As Object, match As Object, matches As Object 'Déclarer une variable object re pour utiliser 'les expressions régulières Set re = CreateObject("vbscript.regexp") 'Avec global à false, on arrête avec la première 'correspondance. Avec true, on cherche toute les correspondances 'dans la cellule re.Global = False 'On cherche une majuscule et un point re.Pattern = "[A-Z]{1}x2E" Set matches = re.Execute(chaine) For Each match In matches UneMajusculeEtUnPoint = match Next End Function
"rico34" a écrit dans le message de news:
Bonjour
J'ai un petit problème. Comment peut-on extraire une majuscule suivi d'un point dans une chaine de caractère.
