VB excel extraction de donnés

Résolu
FGTH40 Messages postés 2 Statut Membre -  
FGTH40 Messages postés 2 Statut Membre -
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

lermite222 Messages postés 9042 Statut Contributeur 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
Mike-31 Messages postés 19571 Statut Contributeur 5 136
 
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
lermite222 Messages postés 9042 Statut Contributeur 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 Statut Membre
 
Merçi
0