La valeur de la cellule est une phrase, cette phrase contient un mot en particul

Résolu
cs_pitive Messages postés 2 Date d'inscription mardi 4 novembre 2008 Statut Membre Dernière intervention 4 novembre 2008 - 4 nov. 2008 à 11:56
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 4 nov. 2008 à 15:17
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

NHenry Messages postés 15114 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 4 mai 2024 159
4 nov. 2008 à 12:12
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
3
NHenry Messages postés 15114 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 4 mai 2024 159
4 nov. 2008 à 15:15
Bonjour,

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

petite différence

http://nhen0039.chez-alice.fr/index.php
3
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
4 nov. 2008 à 15:17
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
3
cs_pitive Messages postés 2 Date d'inscription mardi 4 novembre 2008 Statut Membre Dernière intervention 4 novembre 2008
4 nov. 2008 à 15:10
merci, en effet ça fonctionne mieux comme ça... Quelle est la différence entre UCase et LCase ??
0
Rejoignez-nous