Discussion :

[NassMcN]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NassMcN]

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

[Invité]

Range("I" & i) donne la même chose que Range("I" & i).Value.
Cependant la deuxième écriture est plus rigoureuse.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

provoque une erreur sur la seconde ligne.

[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!

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

provoque une erreur sur la seconde ligne.

[NassMcN]

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