Discussion :

[Aylae]

Bonjour à tous,

Je souhaite faire un filtre en vba sur un fomulaire double affichage.
Pour celà j'ai le code suivant qui fonctionne parfaitement :

Code :

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

 strFilter = strFilter & "(tblTruc.Bidule = '" & S1 & "' or tblTruc.Bidule = '" & S2 & "') and tblTruc.Chouette Like 'in progress' "

Mon problème :
Mon code est en réalité très long ( de S1 à S24), il ne rentre donc pas sur une ligne pour celà j'ai fait le code suivant :

Code :

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

1
2
strFilter = strFilter & "(tblTruc.Bidule = '" & S1 & "' or tblTruc.Bidule = '" & S2 & "') _
and tblTruc.Chouette Like 'in progress' "

Mais ça ne fonctionne pas : "Erreur de comilation Attendu : Expression"

Comments peut-on faire un retour à la ligne dans ce cas ?
Ou comment remplacer tblTruc.Bidule par quelque chose (variable ou autre) de plus court ?

Merci d'avance pour vos réponses.

[zoom61]

Salut,

Normalement c'est :

Code :

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

1
2
strFilter = strFilter & "(tblTruc.Bidule = '" & S1 & "' or tblTruc.Bidule = '" & S2 & "') " _
   & "and tblTruc.Chouette Like 'in progress' "

@+.

[Invité]

Bonjour peut être comme cela:

Code :

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

1
2
strFilter = strFilter & "(tblTruc.Bidule = '" & S1 & "' or tblTruc.Bidule = '" & S2 & "') " &  _
"and tblTruc.Chouette Like 'in progress' "

Edit: Ah doublé:

[Aylae]

Merci beaucoup !