Discussion :

[Sibuxian]

Bonjour,

Je vous expose mon nouveau problème. Le processus de base est un copier/coller d'un écran d'un autre logiciel sur une feuille Excel.
Les différentes lignes se placent chacune dans des cellules. (énoncé + données)

Mon problème est d'arriver a récuprer les données et non les énoncés pour les placer dans une autre feuille afin de mettre en place une mise en forme avec ces données.
Les énoncés seront toujours les mêmes et les données seront toujours du même type dans la cellule correspondante.
Ma question est, existe-t-il une sorte de fonction recherche qui permet de chercher dans une cellule et de récupérer une partie des infos de la cellule en question.


Exemple : Contenu de la cellule = "Prix XXX Rendt YYY"
et je voudrais récupérer les XXX et YYY

Si quelqu'un a une idée, je suis preneur.

Merci

[Tempas]

Je ne sais pas trop mais ceci peut t'aider non ?
http://silkyroad.developpez.com/VBA/...nesCaracteres/

[Sibuxian]

je ne connaissais pas, je vais regarder cela de plus près. Ces fonctions ont l'air prometteuses.

merci

[Tempas]

Je ne sais pas si ca existe en VBA mais en java on coupe les chaines en fonction d'un caractère ("espace" par exemple) et ca nous sort un tableau de "n" valeurs n représentant le nombre de mots

Par exemple

Je suis Tempas

avec ce dont je te parle on se retrouve avec un tableau (je ne sais plus si ca commence à 1 ou 0 mais peu importe c'est l'idée qui compte)

tableau[1] = je
tableau[2] = suis
tableau[3] = Tempas

[mercatog]

en vba:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tablo=split(X, " ")

te donne un tableau des occurrences séparées par " " (espace)

[Sibuxian]

J'ai utiliser le procédé de Tempas, donc j'ai réussi à extraire les chaines de caractères, mais je ne sais pas comment supprimer les espaces entre chaque caractères apres les avoir récupérer. Voir même si cela est possible sous VBA.

Enfaite, j'ai trouvé, Fonction substitute. bien pratique !

[sabzzz]

bonjour Sibuxian, à tous,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim tb, prix As Double, rendt As Double
tb = Split(Range("A1"), " ")
prix = CDbl(tb(1))
rendt = CDbl(tb(3))