Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel identifier mot dans chaine de charactère

identifier mot dans chaine de charactère

7 réponses
Avatar
Vovo
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le mot "important" faire
l'action A.
Mon problème est que la cellule contient des caractères avant le mot
"important"
Merci
Vovo
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Vincent.
Salut Vovo
Alors, on peut faire comme ça (c'est un exemple...) :

If ActiveCell.Value Like "*important*" Then
etc.

Je ne sais pas si c'est sensible à la casse mais si il
faut, tu peux au lieur de activecell.value, mettre
LCase(ActiveCell.Value)
ce qui a pour avantage de tout mettre en minuscule !!!

Bon courage

-----Message d'origine-----
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le
mot "important" faire

l'action A.
Mon problème est que la cellule contient des caractères
avant le mot

"important"
Merci
Vovo


.



Avatar
AV
Autre insensible aux différentes version d'XL et à la casse :

x = UCase(ActiveCell)
If Len(Application.Substitute(x, "IMPORTANT", "")) < Len(x) Then MsgBox "trouvé"

AV

"Vovo" a écrit dans le message news:
#F05K#
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le mot "important" faire
l'action A.
Mon problème est que la cellule contient des caractères avant le mot
"important"
Merci
Vovo




Avatar
Vincent.
A noter aussi que tu peux le faire directement par
formule :
=TROUVE("important";MINUSCULE(A1))

(si ta cellule est A1, évidemment)

-----Message d'origine-----
Salut Vovo
Alors, on peut faire comme ça (c'est un exemple...) :

If ActiveCell.Value Like "*important*" Then
etc.

Je ne sais pas si c'est sensible à la casse mais si il
faut, tu peux au lieur de activecell.value, mettre
LCase(ActiveCell.Value)
ce qui a pour avantage de tout mettre en minuscule !!!

Bon courage

-----Message d'origine-----
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le
mot "important" faire

l'action A.
Mon problème est que la cellule contient des caractères
avant le mot

"important"
Merci
Vovo


.

.





Avatar
Vovo
If ActiveCell.Value Like "*important*" Then
...Ca marche impeccable. Merci!
Vovo


"Vincent." escreveu na mensagem
news:0b2701c35db7$74d23f40$
A noter aussi que tu peux le faire directement par
formule :
=TROUVE("important";MINUSCULE(A1))

(si ta cellule est A1, évidemment)

-----Message d'origine-----
Salut Vovo
Alors, on peut faire comme ça (c'est un exemple...) :

If ActiveCell.Value Like "*important*" Then
etc.

Je ne sais pas si c'est sensible à la casse mais si il
faut, tu peux au lieur de activecell.value, mettre
LCase(ActiveCell.Value)
ce qui a pour avantage de tout mettre en minuscule !!!

Bon courage

-----Message d'origine-----
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le
mot "important" faire

l'action A.
Mon problème est que la cellule contient des caractères
avant le mot

"important"
Merci
Vovo


.

.





Avatar
Vincent.
Mais de rien...

-----Message d'origine-----
If ActiveCell.Value Like "*important*" Then
....Ca marche impeccable. Merci!
Vovo


"Vincent." escreveu na
mensagem

news:0b2701c35db7$74d23f40$
A noter aussi que tu peux le faire directement par
formule :
=TROUVE("important";MINUSCULE(A1))

(si ta cellule est A1, évidemment)

-----Message d'origine-----
Salut Vovo
Alors, on peut faire comme ça (c'est un exemple...) :

If ActiveCell.Value Like "*important*" Then
etc.

Je ne sais pas si c'est sensible à la casse mais si il
faut, tu peux au lieur de activecell.value, mettre
LCase(ActiveCell.Value)
ce qui a pour avantage de tout mettre en minuscule !!!

Bon courage

-----Message d'origine-----
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le
mot "important" faire

l'action A.
Mon problème est que la cellule contient des caractères
avant le mot

"important"
Merci
Vovo


.

.





.





Avatar
michdenis
Bonjour Vovo,

Il y a aussi ceci : Insensible à la casse

'----------------------------------
Sub PresenceDuMot()

Dim Mot As String, Rg As Range
Mot = "Important"
Set Rg = Worksheets("Feuil1").Range("C1")

Select Case InStr(1, Rg, Mot, vbTextCompare)
Case 0
MsgBox "Rien trouvé"
Case Is > 0
MsgBox "Trouvé"
End Select

Set Rg = Nothing
End Sub
'----------------------------------


Salutations!


"Vovo" a écrit dans le message de news:%23F05K%
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le mot "important" faire
l'action A.
Mon problème est que la cellule contient des caractères avant le mot
"important"
Merci
Vovo
Avatar
Liana
Hello,

On peut compléter l'idée de Vincent en permettant d'insérer le mot Important
n'importe où dans une cellule :

=STXT(A1;TROUVE("important";A1);9)

Syntaxe de STXT :
=STXT(réf. cellule ; n° du caractère à partir duquel extraire des données ;
nombre de caractères à extraire)

J'ai simplement ajouté la fonction TROUVE en tant que 2e argument de la
fonction STXT pour qu'Excel détecte automatiquement où se trouve le mot
Important.

Merci de ta question :-)

Liana


"Vincent." a écrit dans le message news:
0b2701c35db7$74d23f40$
A noter aussi que tu peux le faire directement par
formule :
=TROUVE("important";MINUSCULE(A1))

(si ta cellule est A1, évidemment)

-----Message d'origine-----
Salut Vovo
Alors, on peut faire comme ça (c'est un exemple...) :

If ActiveCell.Value Like "*important*" Then
etc.

Je ne sais pas si c'est sensible à la casse mais si il
faut, tu peux au lieur de activecell.value, mettre
LCase(ActiveCell.Value)
ce qui a pour avantage de tout mettre en minuscule !!!

Bon courage

-----Message d'origine-----
Bonjour

Comment écrire en VBA :
Si la valeur de la celllule active contient le
mot "important" faire

l'action A.
Mon problème est que la cellule contient des caractères
avant le mot

"important"
Merci
Vovo


.

.