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

Ignorer la casse (majuscule/minuscule)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion boubou54
  • 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 !

S'inscrire
B

boubou54

XLDnaute Nouveau
Bonjour,

J'ai une macro qui me permet de rechercher une chaine de caractère et de la remplacer par une autre.

Malheureusement je n'arrive pas dans ma recherche à ignorer la casse (minuscule et majuscule) de ma chaine.

Je sais qu'avec "option compare text" on peut obtenir ce résultat mais étant novice en VBA je ne sais pas comment l'intégrer dans mon code ci dessous.

Merci d'avance pour votre aide !

--------------------------

Sub Trouver()

Dim cellule As Range, valeur As String
On Error Resume Next
For Each cellule In Range("a1", Range("a800").End(xlUp))
cellule.Offset(0, 4) = ""

valeur = "": valeur = Application.WorksheetFunction.Find("Ma chaine de caractere 1", cellule, 1)
If valeur <> "" Then cellule.Offset(0, 3) = "Mon Texte 1"

valeur = "": valeur = Application.WorksheetFunction.Find("Ma chaine de caractere 2", cellule, 1)
If valeur <> "" Then cellule.Offset(0, 3) = "Mon Texte 2"

Next cellule
End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : Ignorer la casse (majuscule/minuscule)

Bonjour,
En attendant une explication un peu plus claire...
Code: 
Sub Trouver()
Set plge = Range("a1", Range("a800").End(xlUp))
Set c = plge.Find("Ma chaine de caractere")
If Not c Is Nothing Then MsgBox c.Address
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Ignorer la casse (majuscule/minuscule)

Bonjour, tu mets toutes tes conditions en majuscules par exemple :
If Ucase(valeur1) = Ucase(valeur2) Then
traitement perso
end if
Suerte
croco
 
Vote positif 0 Vote négatif
Re : Ignorer la casse (majuscule/minuscule)

cette ligne de code permet de rechercher la chaine de caractère en question.
En gros je voudrais sur ma colonne A remplacer des chaines de caractères et les mettre en colonne B

Pomme rouge > pomme
POMME Rouge > pomme
pomme VERTE > pomme
Poire jaune > poire
POIRE verte > poire
 
Vote positif 0 Vote négatif
Re : Ignorer la casse (majuscule/minuscule)

Bonjour à tous,
Peut-être quelque chose dans ce genre:
Code: 
Sub test()
Dim cel As Range
For Each cel In Range("A1", Range("A800").End(xlUp))
If UCase(cel.Value) Like "*POMME*" Then cel.Offset(0, 3) = "pomme"
If UCase(cel.Value) Like "*POIRE*" Then cel.Offset(0, 3) = "poire"
Next cel
End Sub
Cordialement,
Guiv
 
Vote positif 0 Vote négatif
Re : Ignorer la casse (majuscule/minuscule)

Bonjour,

comme tu le disais dans ton premier post, l'option compare text permet de s'affranchir des minuscules/majuscules

pour l'utiliser, tu le mets en haut du module

Code: 
Option Explicit
Option Compare Text

maintenant, de là à dire qu'un balayage de toutes les cellules est plus rapide qu'une recherche par Find, j'émets des doutes....

bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
123
treza88
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
Réponses
14
Affichages
310
juju91
J
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
467
lynyrd
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
397
Lau01150
L
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
518
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
558
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
628
un internaute
U
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
404
anthoYS
POWERQUERY :: Remplacements multiples dans plusieurs colonnes avec traitements de nettoyage et de conversion de casse
Réponses
0
Affichages
179
oguruma
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
378
patricktoulon
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
354
KTM
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
284
job75
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
645
kiki29
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
715
Lu76Fer
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
339
candido57
C
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
305
candido57
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…