Macro excel Extraire prix dans texte

Morbonnat, le jeudi 22 mai 2008 à 10:09:54

Bonjour,

Je voudrai faire une macro excel qui me permette d'extraire un prix dans un phrase pour pourvoir ensuite le comparer a la valeur d'une autre cellule.

- Est-il possible d'extraire selement les caractères numériques d'une chaine de caratère grace a VBA? (si oui, quels sont les commandes)
- Sinon, j'avais pensé chercher dans le texte le signe "€" et prendre les 3 caractères de gauche mais j'arrive pas a le programmer.

Probleme supplémetaire, il n'y a pas une cellule a verifier par ligne mais 2!

La macro doit chercher avoir un résonnement du genre:

- Chercher prix dans B, si il n'y a pas de prix, chercher dans C
- Comparer la valeur trouvée à celle de la cellule Z
- SI valeur trouvée = Z passer a la ligne suivante SINON me prevenir (genre mettre "Pareil" dans la colone D)(A terme je voudrais qu'elle puisse remplacer le prix tout seule mais c'est une autre histroire!!!)
- Faire pareil pour la ligne suivante

Merci Enormement a tout ce qui m'aideront, vous sauvez mon poste!

Configuration: Windows XP
Firefox 2.0.0.14

Répondre à Morbonnat Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Ivan-hoe, le jeudi 22 mai 2008 à 11:48:44

Salut Morbonnat,
dans le cas où tes prix n'ont pas de décimale, voici une fonction qui extrait les chiffres de ta phrase.
c'est vraiment de la bidouille, mais ça semble marcher.
Une fois collée dans un module, tu peux l'utiliser dans Excel avec = Extraitnum(A1)
C'est déjà un début...

Function ExtraitNum(Plage As Range)
Dim Contenu As String, i As Integer, j As Integer, Car As String, Test

Contenu = Plage.Value
j = 1

For i = 1 To Len(Contenu)
Car = Mid(Contenu, j, 1)
On Error GoTo REMPLACE
Test = CInt(Car): GoTo SUITE
REMPLACE: Contenu = Replace(Contenu, Car, ""): j = j - 1: Resume Next
SUITE: j = j + 1
Next i
ExtraitNum = CInt(Contenu)
End Function

A suivre...

Répondre à Ivan-hoe

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Morbonnat, le jeudi 22 mai 2008 à 19:16:10

Merci Ivan-hoe

Malheuresemetn je ne comprend pas ou intégre cette fonctiom :s

Sous VBA, rien ne ce passem même si je mais es tag "sub" & "end Sud" avant et apres...

Répondre à Morbonnat

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Ivan-hoe, le vendredi 23 mai 2008 à 08:30:43

Salut,
Tout d'abord, cette fonction doit être stockée dans un module.
Ensuite, plusieurs possibilité :
1- tu peux simplement t'inspirer des instructions de cette fonction pour récrire un code plus complet qui fasse ce que tu veux ;
2- tu peux utiliser cette fonction telle quelle dans une procédure VBA.
Par exemple, ta phrase est en A1 et tu as une variable Prix, tu peux écrire :

Prix = ExtraitNum(Range("A1"))

A noter que tu peux ausi modifier comme suit :

Function ExtraitNum(Phrase As String)

Dans ce cas, si ta phrase est contenue dans la variable Phrase, tu peux écrire :

Prix = ExtraitNum(Phrase)

3- tu peux utiliser cette fonction dans Excel (tu la retrouves dans les fonctions personnalisées).
Si ta phrase est en A1, tu peux écrire en B1 = ExtraitNum(A1)
J'ai l'impression qu'une fois que le prix est extrait de ta phrase, tout le reste pourrait se faire avec des formules Excel.

Si ce n'est toujours pas clair, n'hésite pas à re-solliciter.
A suivre...

Répondre à Ivan-hoe

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Morbonnat, le dimanche 25 mai 2008 à 13:03:24

Salut Ivan-hoe

Merci pour ta formule, elle marche nikel !! :D

Par contre je vais devoir passer access pour faire la suite. Je me suis rendu compte que ce sera plus facile avec une base de donnée qu'avec excel.

Je vais donc utiliser ta formule pour extraire le prix et envoyé tout sa dans une table, ensuite avec plusieurs requête sa marche nikel

Merci pour ton aide!!!

Répondre à Morbonnat

Posez votre question Répondre

Macro Excel : Convertion des dates en texte (Résolu)Bonjour à tout le monde, Je voudrais convertir une colonne où il y a des dates (jj/mm/aaaa) en format texte dans une macro Excel. Quand je le fais directement sous Excel, il n'y a aucun problème, mais quand je veux la faire exécuter dans une... www.commentcamarche.net/forum/affich-2408261-macro-excel-convertion-des-dates-en-texte

Macro Excel recherche multiple (Résolu)Bonjour, J'aimerais écrire une macro excel qui me permettrait de vérifier si le contenu de ma cellule appartient à une liste de valeur prédéfinie ou est présente dans une plage d'autres cellules précise. Et si oui de faire telle ou telle... www.commentcamarche.net/forum/affich-3623448-macro-excel-recherche-multiple

Macro excel envoi email avec piéce jointe (Résolu)Bonjour , je suis nouveau stagiaire . Ma question est comment faire pour creer une macro excel qui permet d'envoyer automatiquement un mail (via outlook) avec classeur excel joint. La macro doit ouvrir la feuille excel à mettre à jour (adr de la... www.commentcamarche.net/forum/affich-2253001-macro-excel-envoi-email-avec-piece-jointe

Probleme boucle for macro excel (Résolu)bonjour à tous j'ai un souci pour une macro excel je dois faire une tache répétitive: recopier et coller 12 fois le contenu d'un tableau croisé dynamique sur chaque fois une feuille de calcul différentes j ai donc pensé à une boucle for mais... www.commentcamarche.net/forum/affich-3432897-probleme-boucle-for-macro-excel

[VBA] Ouvrir un PDF depuis une macro Excel. (Résolu)Bonjour. Je reçois quotidiennement un nombre important de fichiers en format Word et PDF que je dois imprimer dans un ordre précis. Cet ordre est contenu dans un fichier Excel. J'ai réussi, à partir d'une boucle dans une macro Excel à... www.commentcamarche.net/forum/affich-2793717-vba-ouvrir-un-pdf-depuis-une-macro-excel

Enregistrement macro Excel (Résolu)Bonjour à tous, J'ai enregistré une macro Excel qui regroupe 4 colonnes. Lorsque je ferme ce groupement la macro n'enregistre rien. Comment faire pour coder la fermeture du groupe de colonne ? Merci d'avance Catherine www.commentcamarche.net/forum/affich-8071329-enregistrement-macro-excel

Télécharger PSPadPSPad est un excellent éditeur de texte. Il est utile pour travailler sur du simple texte, mais aussi sur du HTML, CSS, Javascript, php ou autres langages de programmation (C++, Java, Python...). Les fonctionnalités sont impressionnantes: ... www.commentcamarche.net/telecharger/telecharger-133-pspad

Toutes les réponses pour « Macro excel Extraire prix dans texte »