VB excel extraction de donnés
Résolu/Fermé
FGTH40
Messages postés
2
Date d'inscription
lundi 1 novembre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
-
1 nov. 2010 à 13:25
FGTH40 Messages postés 2 Date d'inscription lundi 1 novembre 2010 Statut Membre Dernière intervention 1 novembre 2010 - 1 nov. 2010 à 16:34
FGTH40 Messages postés 2 Date d'inscription lundi 1 novembre 2010 Statut Membre Dernière intervention 1 novembre 2010 - 1 nov. 2010 à 16:34
A voir également:
- VB excel extraction de donnés
- Liste déroulante excel - Guide
- Formule excel - Guide
- Vb cable - Télécharger - Audio & Musique
- Si et excel - Guide
- Aller à la ligne excel - Guide
3 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
1 nov. 2010 à 14:01
1 nov. 2010 à 14:01
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+
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+
Mike-31
Messages postés
18309
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 mars 2024
5 071
Modifié par Mike-31 le 1/11/2010 à 14:15
Modifié par Mike-31 le 1/11/2010 à 14:15
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.
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.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 1/11/2010 à 14:24
Modifié par lermite222 le 1/11/2010 à 14:24
Un exemple en VBA...?
Colle le code dans un module,
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)
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)
FGTH40
Messages postés
2
Date d'inscription
lundi 1 novembre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
1 nov. 2010 à 16:34
1 nov. 2010 à 16:34
Merçi
1 nov. 2010 à 14:06
merçi