Vérifier qu'une chaine existe dans un plage

[Troudz]

Bonjour les forumeurs,

J'ai une question un peu bête mais pour laquelle je n'arrive pas à trouver de solution.

J'utilise une boucle pour vérifier que la valeur saisie par un utilisateur existe bien dans la 1ère colonne une colonne de mon tableau. Ce tableau s'enrichi de jour en jour et la boucle est donc de plus en plus longue à s'exécuter. Surtout si la valeur saisie est à la fin de la colonne.

N'y aurait il pas une "formule magique" en vba pour dire "telle valeur existe dans la colonne" ?

Je vous remercie de votre aide.

Bon week end à tous

 

[Guest]

Re : Vérifier qu'une chaine existe dans un plage

Bonjour,

=Equiv("*TexteRecherché*", A:A,0)
En VBA:

Res=Application.Match("*" & TexteCherché & "*", Range("A:A"),0)

ou

Dim c As Range
Set c = Range("B:B").Find(What:="TexteCherché", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)

A+

 

[Compte Supprimé 979]

Re : Vérifier qu'une chaine existe dans un plage

Bonjour Troudz,

Avec

Range(A:A").Find ...

Utilise l'aide VBA pour savoir comment l'utiliser

A+

 

[Staple1600]

Re : Vérifier qu'une chaine existe dans un plage

Bonjour Hasco 😉


Le Monsieur avait demandé "formule magique" en VBA 😉


EDITION: Bonsoir BrunoM5 AKA The Engine

 

[Troudz]

Re : Vérifier qu'une chaine existe dans un plage

Merci pour ta réponse Hasco mais c'est en vba que je dois faire ça.

Edit : Bonjour Stapple1600 et merci.
Effectivement j'aurai pas du parler de formule magique, ça prête à confusion

 

[Staple1600]

Re : Vérifier qu'une chaine existe dans un plage

Re

Merci pour ta réponse Hasco mais c'est en vba que je dois faire ça.

C'est ce que je lui ais dit pas plus tard que tout de suite.


PS: tu peux tout seul transformer une formule en VBA (avec l'enregistreur)
Tu l'ignorais ?

 

[Troudz]

Re : Vérifier qu'une chaine existe dans un plage

Ben euh grâce à l'enregistreur je constate que l'équivalent en vba est match mais comment faire pour l'utiliser proprement dans du code

 

[Guest]

Re : Vérifier qu'une chaine existe dans un plage

Bonjour tous,

Ce que je trouve "magique "dans ce fil, c'est que je n'avais pas encore cliquer sur le bouton "Envoyer la réponse", que vous répondiez-déjà au post que je n'avais pas fini d'écrire!!!!!!😕😕😕😕😕

Y'en a qui on ressorti leur boule de cristal😉

A+++

 

[Staple1600]

Re : Vérifier qu'une chaine existe dans un plage

Re

mais comment faire pour l'utiliser proprement dans du code

En se lavant les mains aux préalable 😉 tout en appuyant avec ton nez sur la touche F1

Sans oublier de redescendre le fil (Merci Hasco)
https://www.excel-downloads.com/threads/verifier-quune-chaine-existe-dans-un-plage.167281/

 

[Troudz]

Re : Vérifier qu'une chaine existe dans un plage

que vous répondiez-déjà au post que je n'avais pas fini

Tellement rapide que j'en ai raté la réponse de BrunoM45.
9a marche très bien avec la fonction .Find.
Merci à vous trois.

Si ça peut servir à qqun, voici le code :

If Not Sheets("Voiture").Range("Voiture").Columns(1).Find("Renault") Is Nothing Then
    MsgBox "Existe"
Else
    MsgBox "N'existe pas"
End If

 

[Staple1600]

Re : Vérifier qu'une chaine existe dans un plage

Re


Pour remercier The Engine AKA BrunoM45 (et pour le fun) et sans oublier Hasco

Sub a()
MsgBox "Existe" & (IIf(Sheets("Voiture").Range("Voiture").Columns(1).Find("Renault") <> "", vbNullString, " pas"))
End Sub