Ignorer la casse (majuscule/minuscule)

[boubou54]

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

 

[kjin]

Re : Ignorer la casse (majuscule/minuscule)

Bonjour,
En attendant une explication un peu plus claire...

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

 

[boubou54]

Re : Ignorer la casse (majuscule/minuscule)

Merci pour votre réponse mais où se trouve le code qui permet de remplacer la chaine de caractère par une autre?

 

[kjin]

Re : Ignorer la casse (majuscule/minuscule)

Re,

En attendant une explication un peu plus claire...

Où est l'explication ?
A+
kjin

 

[boubou54]

Re : Ignorer la casse (majuscule/minuscule)

Désolé mais je ne comprends pas très bien votre demande. Quelle explication souhaitez-vous ?

 

[croco40]

Re : Ignorer la casse (majuscule/minuscule)

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

Bonjour, tu mets toutes tes conditions en majuscules par exemple :
If Ucase(valeur1) = Ucase(valeur2) Then
traitement perso
end if
Suerte
croco

 

[kjin]

Re : Ignorer la casse (majuscule/minuscule)

Re,

valeur = Application.WorksheetFunction.Find("Ma chaine de caractere 1", cellule, 1)

Cette ligne est sensée faire quoi ?
Tu cherches quoi et où ?
A+
kjin

 

[boubou54]

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

 

[Guiv]

Re : Ignorer la casse (majuscule/minuscule)

Bonjour à tous,
Peut-être quelque chose dans ce genre:

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

 

[boubou54]

Re : Ignorer la casse (majuscule/minuscule)

Super ça fonctionne avec cette macro !!!!
Elle est bien plus rapide et plus efficace.

Merci encore pour votre aide à tous !
Bonne soirée

 

[croco40]

Re : Ignorer la casse (majuscule/minuscule)

Salut Guiv,
Je ne connaissais pas l'operateur Like, mais c'est tout simplement genial
Suerte
Croco

 

[Cousinhub]

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

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