OVH Cloud OVH Cloud

Fonction Cherche dans VBA

6 réponses
Avatar
smf-nft
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

je souhaite faire une recherche d'une valeur dans un cellule mais via VBA.

Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.

je pense qu'avec =Cherche("3"; MaCellule) il me sortirait un truc mais comme
je fais des aller retour sur plusieurs fichiers je voudrais passer par VBA
pour éviter les erreurs.

Merci par avance de votre aide.

Sébastien.

6 réponses

Avatar
Michel41
Bonjour
Utiliser Find (aller dans l'aide)
ObjetPlage.find ...liste des options...
Parmi les options utiliser xlPart pour XlLookAt
@+


"smf-nft" a écrit dans le message de
news:
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

je souhaite faire une recherche d'une valeur dans un cellule mais via VBA.

Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.

je pense qu'avec =Cherche("3"; MaCellule) il me sortirait un truc mais
comme
je fais des aller retour sur plusieurs fichiers je voudrais passer par VBA
pour éviter les erreurs.

Merci par avance de votre aide.

Sébastien.



Avatar
Michel41
Bonjour
Utiliser Find (aller dans l'aide)
ObjetPlage.find ...liste des options...
Parmi les options utiliser xlPart pour XlLookAt
@+


"smf-nft" a écrit dans le message de
news:
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

je souhaite faire une recherche d'une valeur dans un cellule mais via VBA.

Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.

je pense qu'avec =Cherche("3"; MaCellule) il me sortirait un truc mais
comme
je fais des aller retour sur plusieurs fichiers je voudrais passer par VBA
pour éviter les erreurs.

Merci par avance de votre aide.

Sébastien.



Avatar
smf-nft
merci beaucoup, je vais tester ceci.

Sébastien.




Bonjour
Utiliser Find (aller dans l'aide)
ObjetPlage.find ...liste des options...
Parmi les options utiliser xlPart pour XlLookAt
@+


"smf-nft" a écrit dans le message de
news:
Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

je souhaite faire une recherche d'une valeur dans un cellule mais via VBA.

Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.

je pense qu'avec =Cherche("3"; MaCellule) il me sortirait un truc mais
comme
je fais des aller retour sur plusieurs fichiers je voudrais passer par VBA
pour éviter les erreurs.

Merci par avance de votre aide.

Sébastien.








Avatar
Gaenonius
Une fonction perso VBA (celle-ci nécessite Excel 2000 ou plus récent à cause de
Split) :

''''''''''''''''''''''''''
Sub essai()
Dim txt, delim
txt = "1-2-3-4-5-6-7-8"
delim = "-3-"
MsgBox Trouver(txt, delim)
End Sub

Function Trouver(Chaine, Quoi)
Trouver = UBound(Split(Chaine, Quoi)) > 0
End Function
''''''''''''''''''''''''''

(Utilisable également dans une feuille de calcul)

--
Gaenonius

Bonjour,

j'ai un petit souci et j'ai besoin de vos lumières.

je souhaite faire une recherche d'une valeur dans un cellule mais via VBA.

Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.

je pense qu'avec =Cherche("3"; MaCellule) il me sortirait un truc mais comme
je fais des aller retour sur plusieurs fichiers je voudrais passer par VBA
pour éviter les erreurs.

Merci par avance de votre aide.

Sébastien.



Avatar
AV
Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.


Sub cherch()
x = 3
If IsError(Application.Find(x, ActiveCell)) Then _
MsgBox x & " n'existe pas !"
End Sub

AV

Avatar
smf-nft
Merci à tous de votre aide.

Sébastien.




Par exemple j'ai une cellule dans laquelle j'ai 1-2-3-4-5-6-7-8 et je veux
savoir si dans cette cellule j'ai la valeur 3.


Sub cherch()
x = 3
If IsError(Application.Find(x, ActiveCell)) Then _
MsgBox x & " n'existe pas !"
End Sub

AV