probleme avec ifRésolu

Question

configuration office 2003 et xp pro
bonjour
nouveau souci: 
voici ma routine:
If  UserForm3.CheckBox1.Value And UserForm3.CheckBox2.Value Then _
       With appword.Selection.Find
        .Text = "Department1"
        .Replacement.Text = "Sales + Project Management"
        .ClearFormatting
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With

et la une fenetre s affiche me disant End if without bloc If 
je suppose que cela vient du And !
quelqu un a t il une idee?
merci
tom

cs_Exploreur · Accepted Answer

Re,

Essaye comme cela :

If CheckBox1 And CheckBox2 Then
       With appword.Selection.Find
        .Text = "Department1"
        .Replacement.Text = "Sales + Project Management"
        .ClearFormatting
        .Forward = True
        .Execute Replace:=wdReplaceAll
        End With
End If

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Tu as oublier le End If à la fin...

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Tu as tout simplement oublié le End qui doit terminer If... Then....
et enlève le _ d'où il est....

tomy7 · Answer

non le probleme ne vient pas du end if puisqu il croit apparemment qu il y en a un!
le _  me permet d aller a la ligne et ne gene pas mon code .
donc mom probleme n est pas la
dsl
mais merci pour la demarche

tomy7 · Answer

c est ok! bien jouer exploreur!merci bcp

cs_Exploreur · Answer

Note : C'est ce que disait Jmfmarques.....

A+
Exploreur

 Linux a un noyau, Windows un pépin

tomy7 · Answer

j avais pas compris jmfmarques...dsl


merci a tous les deux

Probleme avec if

7 réponses

Votre réponse