[XL-2003] Fonction InStr

Fonction InStr - VBA

Bonsoir

Je cherche à écrire un script avec InStr; voici ce que j'ai:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub couleur() Dim i As Integer Dim k As String Dim j As Integer Worksheets(1).Activate Application.Goto Worksheets(1).Range("B1") For N = 1 To 100 If InStr(1, k, msc) Then Cells(k, 1).Interior.ColorIndex = 3 Next End Sub
Le code n'a pas l'air de s'ex~cuter pourtant je n'ai pas de message d'erreur.
Si je ne m'abuse, "If InStr(1, k, msc)" signifie "si une cellule qui est une variable string contient la mention "msc", alors colorie cette cellule en rouge.

Pourquoi ça ne marche pas?
Merci pour votre aide

derout

Citation:
Envoyé par derouteu
Bonsoir
Code:

1 2 3 4 5 6 Sub couleur() If InStr(1, k, msc) Then Cells(k, 1).Interior.ColorIndex = 3 End Sub
Bonsoir,
je ne vois nulle part une initialisation correcte de k ni msc dailleurs.

Cela devrait expliquer ton problème de couleur, non ?

G@dz

Code:

1
2
3
4
5
6
7
8
Sub couleur()
Dim k As Integer
With Worksheets(1)
    For k = 1 To 100
        If InStr(.Cells(k, 1), "msc") > 0 Then .Cells(k, 1).Interior.ColorIndex = 3
    Next
End With
End Sub

colorie en rouge les cellules de A1 à A100 contenant le mot "msc"

Bonsoir Godzestla, mercatog

Merci mercatog, ça marche comme je veux.
Pourquoi le "> 0" lors de

Code:

If InStr(.Cells(k, 1), "msc") > 0

?

Je l'ai supprimé et ça marche aussi.
Grace à ton aide je peux adapter mon script vers cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub long_one() Dim k As Integer With Worksheets(2) For k = 1 To 100 If InStr(.Cells(k, 2), "msc") + InStr(.Cells(k, 2), "gh") And .Cells(k, 3) > 3 Then .Cells(k, 3).Interior.ColorIndex = 10 If InStr(.Cells(k, 2), "msc") + InStr(.Cells(k, 2), "gh") And .Cells(k, 3) > 1 And .Cells(k, 3) <= 3 Then .Cells(k, 3).Interior.ColorIndex = 43 Next End With End Sub
Merci pour votre aide

Citation:

InStr, fonction
Renvoie une valeur de type Variant (Long) indiquant la position de la première occurrence d'une chaîne à l'intérieur d'une autre chaîne.

fais un F1 sur Instr et lis tout