Déclarer une variable sans tenir compte de la casse

Bonjour,

Via le code ci-dessous, je supprime "TOTO" s'il est trouvé dans la cellule.
Mais je souhaitrais que ce soit valable pour "Toto" ou "toto" également.
Pourriez-vous me dire quel petit ajustement je peux faire, pour que ma variable "Chercher" ne prenne pas en compte uniquement ce que j'indique en majuscule ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Libelle = ActiveCell.Offset(0, 2).Value chercher = "TOTO"   Resultat = InStr(1, Libelle, chercher) If Resultat <> 0 Then   Libelle_new = Replace(Libelle, "TOTO", "")   ActiveCell.Offset(0, 3).Value = Libelle_new

---

Merci à tous pour votre aide,

hello,
tu peux utiliser la fonction UCase pour mettre en majuscule la chaîne à comparer comme ceci :

Code:

---

1 2	Libelle = UCase(ActiveCell.Offset(0, 2).Value)

---

Ami calmant, J.P

Bonjour,

Si tu n'as pas d'autres comparaisons à faire dans ce module, tu peux ajouter Option Compare Text dans l'entête dudit Module.

Exemple :

Code:

---

1 2 3 4 5 6 7

Option Explicit   Option Compare Text   Sub essai() MsgBox Replace("Toto aime TOTO, mais aussi toto", "TOTO", "") End Sub

---

Salut.

InStr et d'autres fonctions traitant les chaines de caractères ont un argument (souvent le dernier) qui permet de préciser la sensibilité à la casse:

Code:

---

Resultat = InStr(1, Libelle, chercher, vbTextCompare)

---

Autre solution encore plus simple (sans variable intermédiaire).

Code:

---

1 2	ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 2).Value ActiveCell.Offset(0, 3).Replace "toto", ""

---

Cette solution sera particulièrement intéressante si tu as plusieurs cellules à traiter (pas besoin de boucle).