Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[VBA]Code afin qu'une fonction "Recherche" associe les minuscules et les majuscules

  • Initiateur de la discussion Initiateur de la discussion benbeto
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

benbeto

Guest
Bonjour,

Voila j'ai un tableau (pour classer des films) et un bouton qui fait fonction de "Recherche", seulement voila j'aimerais que lorsque l'on tape un nom de film (sachant que les noms de films sont tous en majuscule) la macro reconnaisse quand même ce que l'on tape en minuscule.

Voila l'image du tableau :


Voila le code de ma macro "Recherche" :

Sub recherche()
'
' recherche Macro
'
Message = "Entre le nom du film à chercher"
Title = "Recherche d'un film"
MyValue = InputBox(Message, Title, Default)
Range("A3").Select 'entre la première cellule de la colonne des noms
For I = 1 To 300 'max de ligne dans la colonne
If ActiveCell.Value = MyValue Then GoTo Fin
If ActiveCell.Value = "" Then GoTo Fin
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Fin:
End Sub

Merci !
 
Re : [VBA]Code afin qu'une fonction "Recherche" associe les minuscules et les majuscu

Bonjour,

Je le met

MyValue=Upper(MyValue)

juste après

MyValue = InputBox(Message, Title, Default) ?

ou alors à la ligne ?

Je viens d'essayer mais ça ne fonctionne pas.
 
Re : [VBA]Code afin qu'une fonction "Recherche" associe les minuscules et les majuscu

Ha oui c'est bien Ucase et non pas Upper !

Merci ça fonctionne parfaitement maintenant ! 🙂

Peut-on indiquer que ce sujet est résolu comme il est possible de la faire sur certains forums de certains sites ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
Réponses
11
Affichages
2 K
Melidan2006
M
M
Réponses
3
Affichages
1 K
MarcTer
M
S
Réponses
2
Affichages
737
spadou86
S
K
Réponses
5
Affichages
23 K
K
N
Réponses
2
Affichages
7 K
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…