Problème Like avec Range

Version imprimable

Bonjour a tous,

Voici mon code et mon problème se situe sur le IF. Je veux comparer la chaine de caractere à l'intérieur de ma cellule avec la chaine de caractère entré via l'InputBox. Sauf que d'apres mon espion ma fonction renvoie toujours faux. Pouvez-vous m'éclairer ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton3_Click()
Dim comp As String, mois As Integer, i As Integer, valeur As Date, popo As String
 
 
i = 2
comp = InputBox("Veuillez préciser la compagnie recherchée", "Données sur l'entreprise")
mois = InputBox("Veuillez définir le mois voulu")
 
    Do While Range("C" & i) <> ""
    If Range("I" & i) Like "*comp*" Then
    Sheets("Commandes par entreprise").Range("A" & i) = Range("A" & i)
    Sheets("Commandes par entreprise").Range("B" & i) = Range("B" & i)
    Sheets("Commandes par entreprise").Range("C" & i) = Range("I" & i)
    Sheets("Commandes par entreprise").Range("D" & i) = Range("D" & i)
    Sheets("Commandes par entreprise").Range("E" & i) = Range("E" & i)
    Sheets("Commandes par entreprise").Range("F" & i) = Range("G" & i)
    Sheets("Commandes par entreprise").Range("G" & i) = Range("H" & i)
 
 
       End If
    i = i + 1
    Loop
End Sub

Merci d'avance,

Bien cordialement,

Nass

23/07/2013, 10h49
Philippe Tulliez

Bonjour,
La syntaxe est correcte mais es-tu certain de tester la cellule de la bonne feuille ?
Fait un Debug.print Range("I" & i) juste avant le test pour vérifier sa valeur.
Je viens de relire ton code
If Range("I" & i) Like "*comp*" Then tu recherches une constante et pas le résultat de ton Input.
Sans avoir testé la bonne syntaxe devrait être

Code:

If Range("I" & i) Like "*" & comp & "*" Then
23/07/2013, 10h52
Invité

Je crois plutôt que pour ce qu'il cherche à faire il faut remplacer:

Code:

If Range("I" & i) Like "*comp*" Then

Par:

Code:

If Range("I" & i).Value Like "*" & comp & "*" Then
23/07/2013, 11h06
NassMcN

Vos deux réponses fonctionnent... j'ai toujours pas compris la différence entre Range et Range.value si vous pouviez m'éclairer :D Merciii vous êtes au top sur ce forum je viens de le découvrir et je ne vous remercierais jamais assez
23/07/2013, 11h10
Invité

Range("I" & i) donne la même chose que Range("I" & i).Value.
Cependant la deuxième écriture est plus rigoureuse.
23/07/2013, 11h11
Daniel.C
Bonjour,

Dans la plupart des cas, "Value" est considéré comme la propriété par défaut de l'objet "Range". Mais pas toujours. Par exemple :
Code:

1 2 Range("A1") = "Feuil1" Sheets(Range("A1")).Select
provoque une erreur sur la seconde ligne.
23/07/2013, 11h11
EngueEngue
Range c'est un range, range.value c'est la valeur de ce range.
par défaut sans propriété c'est la value qui est demandée.. donc range = range.value...

Mais range.value c'est plus propre te diront les experts

Tu m'apprends quelque chose l'ami!
Citation:
Envoyé par Daniel.C

Bonjour,

Code:

1 2 Range("A1") = "Feuil1" Sheets(Range("A1")).Select

provoque une erreur sur la seconde ligne.
23/07/2013, 11h15
NassMcN

C'est très clair ! je vous remercie tous :)