Discussion :

[derouteu]

Bonsoir

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

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

[Godzestla]

Bonsoir

Code :

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

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

[mercatog]

Code :

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

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"

[derouteu]

Bonsoir Godzestla, mercatog

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

Code :

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

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 :

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

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

[mercatog]

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