Discussion :

[meggyboy]

Bonjour

je souhaiterai faire une recherche dans une chaine de caractère à partir d'une macro VBA

Voici donc, les lignes que je mets :

Code :

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

1
2
 recupla = Mid(recup, 17, Search(" x ", recup) - 17)
 recuplo = Mid(recup, Search(" x ", recup) + 3, Search(" pts", recup) - Search(" x ", recup) - 3)

Et un message m'indique :

Erreur de compilation
Sub ou fonction non définie

En me surlignant la fonction "Search"

[Pierre Fauconnier]

Salut.

Search n'existe pas en VBA. Tu dois utiliser InStr qui renvoie la position du début de chaine ou 0 si la chaine n'a pas été trouvée. Attention que InStr est (in)sensible à la casse en fonction des options de module ou de son dernier paramètre qui est prioritaire sur les options de module.

Options de module:

• Option Compare Text (pas de différenciation de casse);
• Option Compare Binary (Différenciation de la casse);
• Option Compare Database (Access seulement, en fonction de la DB).

Tu retrouves les deux premières options en dernier paramètre de InStr.

[meggyboy]

Merci beaucoup

[riaolle]

Bonjour,
Qu'est-ce que la méthode Search? Je ne la connais pas et surtout, je ne trouve pas sa description dans l'aide msdn. Je pense que cette méthode n'existe pas et c'est pour cela que VBA te dit "Sub ou fonction non définie".
Est-ce que tu veux utiliser la fonction SEARCH (CHERCHE en anglais) d'Excel? A ce moment-là, il faut écrire:

Code :

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

1
2
3
WorksheetFunction.Search(...)
  'ou
Application.Search(...)

Que veux-tu faire exactement?

[Pierre Fauconnier]

Tu peux donner un exemple de ce que tu souhaites réaliser (avec quelques chaines d'exemple). Il serait peut-être plus simple de travailler avec des expressions rationnelles.