Discussion :

[byloute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[jurassic pork]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ami calmant, J.P

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).