Discussion :

[Tchapeto]

Bonjour a tous,

J'ai dans une colonne ecrit par exemple

TOT 2000

TOT 2001

TOT 2002

...

J'aimerai faire une boucle si en verifiant que le mot TOT est bien dans la cellule.

"Si "TOT" est bien dans la cellule faire :"

Merci d'avance

[Theze]

Bonjour,

Une piste à adapter avec InStr :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
 
    Set Plage = Range("A1:A10")
 
    For Each Cel In Plage
 
        If InStr(Cel.Value, "TOT") <> 0 Then
 
            'ici ton code si la condition est vrai...
            MsgBox "La cellule '" & Cel.Address(0, 0) & "' contient TOT !"
 
        End If
 
    Next Cel
 
End Sub

Hervé.

[Tchapeto]

Merci beaucoup pour ton aide !