OVH Cloud OVH Cloud

Correspondance entre une fonction et code VBA

3 réponses
Avatar
Olivier
Bonjour tout le monde,

J'aimerai conna=EEtre la fonction VB qui correspond =E0 la=20
fonction Cherche
(Textecherch=E9,CelluleSource,Caract=E8reDeD=E9part)

Ex: =3DCherche("\";A1;5)

1000 mercis pour votre aide

Olivier

3 réponses

Avatar
Corona
Bonjour Olivier,
InStr([start, ]string1, string2[, compare])
ou
InstrRev(string1, string2[, start[, compare]])
start Facultatif. Expression numérique qui définit la position de
départ de chaque recherche. Si cet argument est omis, la recherche commence
au premier caractère. Si l'argument start contient une valeur de type Null,
une erreur se produit. L'argument start est obligatoire si l'argument
compare est indiqué.
string1 Expression de chaîne dans laquelle la recherche est effectuée.
string2 Expression de chaîne recherchée.
compare Facultatif. Indique le type de comparaison de chaînes. Si
l'argument compare est de type Null, une erreur se produit. Si l'argument
compare est omis, la valeur de l'instruction Option Compare détermine le
type de comparaison. Indiquez un LCID (LocaleID) correct pour respecter les
règles locales spécifiques à la comparaison.




Philippe


"Olivier" a écrit dans le message de news:
111401c51a51$1fd31ed0$
Bonjour tout le monde,

J'aimerai connaître la fonction VB qui correspond à la
fonction Cherche
(Textecherché,CelluleSource,CaractèreDeDépart)

Ex: =Cherche("";A1;5)

1000 mercis pour votre aide

Olivier
Avatar
Olivier
1000 mercis Philippe pour ta rapidité de ta réponse et de
la claire explication.

A la revoyure sur la toile et te souhaite une agréable
continuation.

Best Regards
Olivier
Avatar
Daniel.M
Bonjour Olivier,

Dim resultat As Variant
resultat = Application.Search("", Range("A1"), 5)

If IsError(resultat) Then
MsgBox "Pas trouvé"
Else
MsgBox "Trouvé à la position " & resultat & " du mot."
End If


Salutations,

Daniel M.


"Olivier" wrote in message
news:111401c51a51$1fd31ed0$
Bonjour tout le monde,

J'aimerai connaître la fonction VB qui correspond à la
fonction Cherche
(Textecherché,CelluleSource,CaractèreDeDépart)

Ex: =Cherche("";A1;5)

1000 mercis pour votre aide

Olivier