vba excel verifier une chaine de caractere dans une colonne

Version imprimable

Bonjour,

J'ai un fichier excel avec des valeurs dans la colonne A.
C'est valeurs sont des types de contrats: eau,assainissement ou autres.
Actuellement je vérifie la case A18 mais j'aimerais le faire pour toute la colonne A.
Pourriez vous m'aider s'il vous plaît...merci! et bonne journée

petit exemple de la colonne A:

contrat

a1 eau
a2 assainissement
a3 autres
a4 assainissement
....
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub chaine_caract7() Dim Cible As String Dim i As Integer Cible = "eau,assainissement,autres" If InStr(Cible, Range("A18")) = 0 Then MsgBox "Non" Else MsgBox "Oui" End If End Sub

22/09/2010, 10h58
Psychopathe

Une simple boucle ça marche pas (avec For ou While)? Sinon c'est bizarre ton utilisation de Instr...
22/09/2010, 11h20
Marc31

je sais pas en fait.
Et mon utilisation est en quelque sorte un entrainement pour m'améliorer sur vba excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub chaine_caract7()
 
    Dim Cible As String
    Dim i As Integer
 
    Cible = "eau,assainissement,autres"
 
    For i=1 to 10
        If InStr(1,Cible, Range("A" & i)) = 0 Then
 
            MsgBox "Non pour " & Range("A" & i)
        Else
            MsgBox "Oui pour " & Range("A" & i)
        End If
    Next
 
End Sub

22/09/2010, 13h35
Marc31

merci c'est ça que je voulais faire!