VB excel extraction de donnés

Résolu
FGTH40 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
FGTH40 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'arrive a extraire les lignes d'un fichier texte du type

NumeroCablage=100
frequence_reseau=0
Mode_Sync_Horaire=4

mais je ne souhaiterai que les caractères aprés la virgules comment je peut faire.

Merçi


A voir également:

3 réponses

Réponse 1 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Comment sont EXACTEMENT libellées les données que tu extrais ?
Dans ton exemple.. où est la virgule ? j'ai bien une idée mais je veux pas recommencer l'exposer 36 fois.
A+
0
FGTH40
 
Désolé je me suis trompé ce sont les donnés aprés le signe =

merçi
0
Réponse 2 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

Plusieurs possibilités, cette formule qui peut servir pour extraire du texte comme des valeurs numériques

Pour extraire du texte ou valeur format texte contenu en A2, cette formule extraiera 10 caractères à partir du deuxième caractère situé après la virgule

=STXT(A2;TROUVE(",";A2;1)+2;10)

Pour extraire des valeurs numériques, il faut simplement rajouter *1 en fin de formule

=STXT(A2;TROUVE(",";A2;1)+2;10)*1

pour récupérer à partir de la première valeur après la virgule remplacer +2 par +1, et pour limiter le nombre de caractères à extraire adapter ;10 par 5 par exemple pour extraire que cinq caractères

Je viens de voir ta réponse à Lermite que je salut, pour l'adapter remplace la vigule "," par "="


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Réponse 3 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Un exemple en VBA...?
Colle le code dans un module, 
Function Separe(T As Range) 
Dim TB 
    Application.Volatile 
    TB = Split(T, "=") 
    If UBound(TB) > 0 Then Separe = TB(1) 
End Function

Exemple d'application,
Dans A2.. NumeroCablage=100
Dans B2... =Separe(A2)
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0
FGTH40 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merçi
0