begin process at 2012 02 16 23:01:12
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Texte

 > 

Comment extraire une chaine de caractère en repérant tout chiffre ou groupe de chiffre?


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Comment extraire une chaine de caractère en repérant tout chiffre ou groupe de chiffre?

mardi 27 septembre 2005 à 15:03:48 | Comment extraire une chaine de caractère en repérant tout chiffre ou groupe de chiffre?

pegase71

Bonjour,
J'ai vu dans le forum que l'on pouvait extraire en considérant les espaces une chaine de caractère, mais comment le faire avec un chiffre ou groupe de chiffre???
Avec Excel j'ai dans une colonne A  des cellules composées de chaine de caractères comprenant nom, prénom, adresse etc...Je cherche à travers une macro l'extraction à droite (right) de tout chiffre ou  groupe de chiffres (style code postal ##### ou numéro de téléphone  etc..) vers une colonne B.
Comment formuler pour "tout" chiffre ou groupe de chiffres (4 , 5 chiffre voir plus...qui serait définie dans la macro VBA) ??
Merci de votre aide.
mardi 27 septembre 2005 à 15:32:47 | Re : Comment extraire une chaine de caractère en repérant tout chiffre ou groupe de chiffre?

lacomm

tu peux peut-être faire un pattern:

modele = input like "*" & tontexte & "*"
pour reconnaitre = n'importequoi-ton texte- n'importe quoi
ou
modele = input like [0123456789] & [0123456789] & " " & texte
pour reconaître par exemple 02 bonjour ou 45 bonjour ou toute chaine de caractère qui contient deux chiffres en suivant et pas de lettres.
la syntaxe de LIKE est pleine de possibilités: espace, chiffre, exclusion de caractère, tout caractère etc.
mardi 27 septembre 2005 à 15:54:10 | Re : Comment extraire une chaine de caractère en repérant tout chiffre ou groupe de chiffre?

Arsena

Si j'ai bien compris ce que tu cherche essaie ceci

Sub Macro1()
'Je suppose que la cellule "A3" contien
'"Mimi DETREF rue du paradis Marseille 0405060708"
x = [A3] 'le contenu de la cellule
'Boucle pour touver les chiffres en fin de texte
For i = Len(x) To 1 Step -1
If Not IsNumeric(Mid(x, i, 1)) Then LG = i: Exit For
Next i
'y contiend les chiffres
y = Right(x, (Len(x) - LG))
End Sub



MD
mardi 27 septembre 2005 à 16:24:05 | Re : Comment extraire une chaine de caractère en repérant tout chiffre ou groupe de chiffre?

pegase71

MD...j'ai testé ta macro...mais je n'ai pas de résultat..je ne comprends pas!!!
Par contre j'ai trouvé cette macro qui fonctionne de Minick sur un autre forum :
Sub separe()
    Dim Tableau As Variant
    Dim Cpt As Integer, CptLig As Integer
    Dim Chaine As String
    Dim CPOk As Boolean
   
    For CptLig = 1 To Range("A65536").End(xlUp).Row
        Tableau = Split(Range("A" & CptLig), " ")
        Chaine = ""
        CPOk = False
        For Cpt = UBound(Tableau) To 0 Step -1
            If IsNumeric(Tableau(Cpt)) And CPOk = False Then
               Range("D" & CptLig) = Chaine
               Range("C" & CptLig) = Tableau(Cpt)
               Chaine = ""
               CPOk = True
            Else
               Chaine = Tableau(Cpt) & " " & Chaine
            End If
        Next
        Range("B" & CptLig) = Chaine
    Next
End Sub

Merci tout de même!






Cette discussion est classée dans : chiffre, caractère, chaine, extraire, groupe


Répondre à ce message

Sujets en rapport avec ce message

Chaine de caractére!! [ par blueangel ] Bonjour tout le monde,je suis nouveau en vbscript je voudrais savoir il y a t il une fonction qui permet d'extraire le premier chiffre d'une chaine en extraire d'une chaine de caractère des sous-chaine séparé par des espaces [ par abdoDevlo ] Salut les amies [^^clinoeil1]! je veux savoir comment extraire d'une chaine de caractère des sous-chaine séparé par des espaces. par exemple *la chai Extraction chiffre d'une chaine de caractère régulière [ par ptitemeuh ] Bonjour à tous, En fait, j'ai une liste telle que, par exemple: 10 - Muguet 10/05/2010 9 - Muguet 09/05/2010 8 - Muguet 08/05/2010 7 - Muguet 07/05/ Recherche programme pour renommer des fichiers avec une chaine de caractère contenue dedans [ par psicad ] Bonjour,Je précise que je suis complètement débutant et que j'ai déjà dans l'urgence à réaliser un programme très simple, Il s'agit de:Ouvrir tous les incrémenter une chaine de caractère [ par POWERSFAX ] s.v.p quelqu'un peut m'aide a faire sa: j' ai une chaine de caractère de ce type a40b40c40d30e30f30g je veut incrémenter les nombre de cette chaine chaine de caractère : récupérer le premiere mot de la chaine ! [ par issamesisa ] bonjour ! par exemple j'ai la chaine suivante "aujourd'hui il fait chaud" je veux récupéré le premier mot "aujourd'hui" dans une variable de type str récupéré une chaine de caractère situé entre 2 chaines [ par mySQL15 ] Bonjour/bonsoir hum voila enfaite je sais pas comment mi prendre pour récupéré une chaine de caractère d'une page internet. Le contexte et simple, j'a retraitement de chaine de caractère [ par amine8293 ] Bonjour à tous, Je suis assez novice en programmation VB. Ma question concerne une partie du programme d'une macro. Je dois faire un traitement d'une [Déplacé .Net --> VBA] EXTRAIRE UNE CHAINE DE CARACTAIRE DE DROITE VERS GAUCHE SUR EXCEL [ par siva12 ] COMMENT EXTRAIRE UNE CHAINE DE CARACTAIRE SUR EXCEL DE DROITE VERS GAUCHE. LA FONCTION =STXT()PERMET DE PERMET DE REALISER CETTE FONCTION DE GAUCHE VE


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,343 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales