Discussion :

[lulu_MAHC]

Bonjour a tous

j'ai un excel qui contient dans ses cellules des lignes importees d'un fichier InfoPath, mais ce n'est pas tres important, mon probleme etant le suivant:

Je souhaite supprimer tout ce qui se trouve a droite et a gauche de la donnee que je vais garder au final

Je m'explique. Si j'ai <my:Project_Number>650062</my:Project_Number> dans ma cellule A1

Comment faire pour tout supprimer a partir des >< pour ne garder que 650062 ?
Je souhaite vraiment utiliser les >< comme point de depart car ca me permettrais alors de realiser l'operation sur toutes mes cellules.

Je precice que je souhaite realizer une macro qui recherche au prealable la cellule contenant telle ou telle contenu, la transfere dans une autre cellule puis effectue le traitement en supprimant le contenu inutle. Je repete ensuite cette suite d'operation pour toutes les cellules interessantes

D'avance merci

Lucas

[antonysansh]

Bonjour lulu_MAHC,

Une piste à explorer :

Code :

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

1
2
3
4
5
6
7
8
9
Function Extract(ByVal s As String) As String
    Dim t$(), s1$
        t = Split(s, "</"):   s1 = t(0)
        t = Split(s1, ">"):   Extract = t(1)
End Function
 
Sub test()
    MsgBox Extract("<my:Project_Number>650062</my:Project_Number>")
End Sub

[lulu_MAHC]

Je vous remercie.

J'ai un peu adapte votre proposition a mon probleme et je pense que ca va marcher ...
J'obtient donc le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function Extract(ByVal s As String) As String
    Dim t$(), s1$
        t = Split(s, "</"):   s1 = t(0)
        t = Split(s1, ">"):   Extract = t(1)
End Function
 
Sub test()
 
    Cells.Find(What:=":project_number", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Select
    ActiveCell.Copy
    ActiveCell.Offset(3, 11).Range("A1").Select
    ActiveCell.PasteSpecial
 
    Extract ("Active.Cell")
 
End Sub

En decomposant tout avec le F8 ( oui je suis un grand debutant ahah) tout fonctionne bien mais a la derniere ligne de la function ca plante et j'obtient ce message d'erreur:


J'ai cherche et c'est un problem de dimesions apparement ... mais je ne comprend pas ce que ca veut dire

[lulu_MAHC]

J'ai rebidouiller dessus hier toute l'aprem et après plusieurs essaye dans un sens et plusieurs dans l'autre je m apercois qu'en fait ce serait plutot un probleme de declaration de variable... comme si la fonction extract ne pouvait fontionner qu'avec du texte et pas avec le contenu de ma cellule et meme en mettant :

Code :

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

1
2
 
Extract ("ActiveCell.Value")

Si vous avez un conseil ...

[antonysansh]

Bonjour lulu_MAHC,

Non ce n'est pas un problème de variable. Extract est une fonction qui a pour résultat une chaine de caractères. il faut donc faire quelque chose de ce résultat car Extract ("ActiveCell.Value") n'a pas vraiment de sens (de plus la tu traite Exctract avec la chaine "ActiveCell.Value")

Msgbox Extract(ActiveCell.Value) serait déjà plus correct.



Je ne sais pas ce que tu veux faire exactement, tu cherches une cellule sui contient :project_number, ok. Mais que veux tu en faire ? un remplacement dans la même cellule ou dans une autre ?


Voila un exemple pour faire un remplacement dans la même cellule de la première valeur trouvé après la cellule active :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim rg As Range
        Set rg = Cells.Find(What:=":project_number", LookAt:=xlPart)
        rg = Extract(rg)
fin:
    Set rg = Nothing
End Sub

La fonction Extract n'a pas changé.

[lulu_MAHC]

Bonjour Antony,

Oui c'est exactement ce que je voulais faire merci beaucoup. En fait mon but c'est de chercher les donnes qui m'interessent en passant par le find et par le contenu des balises . Chaque donne peut etre retrouvee grace a ca ; dans notre cas c'etait en fait le :project_number qui permettait de localiser la bonne cellule. Mon but final est d'en fait trouver la cellule interessante, de supprime le contenue inutile (tout ce qu'il y a de part et d'autre des /< > ) et d ensuite envoyer la donnee vers l'adresse de la table correspondante dans une Base de donnee Access ( qui a deja ete creee)

Je poursuis donc mon aventure et te remercie bcp , je pense que j'ai pas finis de galerer mais c'est en forgeant qu'on devient forgeron

Bonne journee a toi