La valeur de la cellule est une phrase, cette phrase contient un mot en particul [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 4 novembre 2008
Statut
Membre
Dernière intervention
4 novembre 2008
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour,

Valeur de la cellule K2 : xxxxoutilxx
Valeur de la cellule K3 : xxxxxxxx 
Valeur de la cellule K4 : Outillagesxxxxx
Valeur de la cellule K5 : xxxxxxxxxx

Je voudrais que si la valeur de la cellule K contient "outil", la valeur de la cellule Q de la même ligne soit : Outillages.

Voici ma macro, elle ne fonctionne pas !!!!

Sub test()


For n = 1 To ActiveSheet.Range("K2:K5").Cells.Count
    ActiveSheet.Range("K2:K5").Cells(n).Select
    If UCase(ActiveSheet.Range("K2:K5").Cells(n).Value) Like "*outil*" Then
        ActiveSheet.Range("K2:K5").Cells(n, 7).Value = "Outillages"
    Else
        ActiveSheet.Range("K2:K5").Cells(n, 7).Value = "Pièces"
    End If
Next n


End Sub

Help me please !!!

4 réponses

Messages postés
14675
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 juillet 2020
143
Bonjour,

UCase(ActiveSheet.Range("K2:K5").Cells(n).Value) Like "*outil*"
c'est pas plutot :
LCase(ActiveSheet.Range("K2:K5").Cells(n).Value) Like "*outil*"
?

http://nhen0039.chez-alice.fr/index.php
Messages postés
14675
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 juillet 2020
143
Bonjour,

lCase,tout en minuscule (Lower Case)
UCase, tout en majuscule (Upper Case)

petite différence

http://nhen0039.chez-alice.fr/index.php
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
47
Salut,
Merci de regarder MSDN pour des questions comme "Quelle est la différence entre UCase et LCase" C'est en plus un bon réflexe à prendre
<title>LCase, fonction</title><style><![CDATA[import url(msdn_ie4.css);]]></style><link disabled="" href="msdn_ie3.css" rel="stylesheet" />[javascript:alink_4.Click() String] convertie en minuscules.

<title>UCase, fonction</title><style><![CDATA[import url(msdn_ie4.css);]]></style><link disabled="" href="msdn_ie3.css" rel="stylesheet" />Ju£i€n</italique>
Pensez: Réponse acceptée
Messages postés
2
Date d'inscription
mardi 4 novembre 2008
Statut
Membre
Dernière intervention
4 novembre 2008

merci, en effet ça fonctionne mieux comme ça... Quelle est la différence entre UCase et LCase ??