problème de syntaxe

[mumu]

Bonjour,

Je viens de passer un long moment sur le forum sans trouver mon bonheur.....
En bref.....

Je voudrais écrire ce bout de code :

Sheets("feuil1").Select
    If Columns(11) [highlight]contient le chiffre 2 (pour le trimestre 2)

Call Sub1
Else
Call Sub2
End If[/CODE]

J'ai une feuille avec des donnés que nous rentrons au fur et à mesure des semaines qui passent.
J'ai une colonne avec l'information trimestre.
J'ai écrit une macro qui automatise un certain nombre de chose pour chaque trimestre.
Mon pb c'est que quand j'ai que 1 trimestre la macro ne va pas au bout car elle cherche les trimestres 2, 3 et 4 sans les trouver bien sur......
Donc je voudrais que si ya pas de 2 dans la colonne en question, la macro saute un bout et lance la Sub 2.....

J'espère que je suis assez claire........
D'avance merci !!!!

Mumu

 

[Raja]

Re : problème de syntaxe

Bonjour,

Essaye ce code :

Sub test()
    Sheets("feuil1").Select
    If WorksheetFunction.CountIf(Columns(11), 2) > 0 Then
        Call test1
    Else
        Call test2
    End If
End Sub

 

[mromain]

Re : problème de syntaxe

bonjour mumu, Raja,

une autre solution :

If Not Columns(11).Find(2) Is Nothing Then...

a+

 

[mumu]

Re : problème de syntaxe

Salut Raja, et mromain

Je vous remercie pour ces solutions que je viens de tester et qui marchent !!!!! C'est génial !
Que ferais-je sans ce forum.......

Merci encore et à plus !

Mumu