mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 9 déc. 2006 à 20:10
Re,
Tu rencontres des difficultés, d'accord, mais ça ne nous dis pas si tu as une erreur qui se produit (au quel cas, il nous faut savoir sur quelle ligne et le nom de cette erreur)
Si pas d'erreur, qu'est ce qui va pas ?
En attendant, je t'ai corrigé 2 ou 3 choses dans ton code :
Rows("4:316").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:= 4, Criteria1:=(cboListe.Text)
'** ET
ALORS ! .Text .Text .Text (penses-y)
Selection.AutoFilter Field:=5, Criteria1:=(cboListe2.Text),
Operator:=xlOr, _
Criteria2:=(cboListe3.Text)
Range("A4").Select
'ActiveWindow.SmallScroll Down:=-57
' inutile... c'est tes coups de roulette qui
s'enregistre
UserForm1.Hide
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter
'ActiveWindow.SmallScroll Down:=-15
UserForm1.Show
cboListe = (" ") '?????????????
cboListe2 = (" ") ' c'est soit cboListe2.Text =
vbNullString
cboListe3 = (" ") ' ou
soit cboListe2.Clear (pour TOUT vider)
cboListe4 = (" ") ' mais aucun interêt d'avoir un espace
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 9 déc. 2006 à 20:13
Ah et j'oubliais, tu as mis en fin : Application.ScreenUpdating = True
je suppose donc qu'il est à False un peu avant.
Pour cette procédure, ne l'utilise pas, si le rafraichissement ne se fait pas, ton PrintPreview et ton PrintOut se fera alors sur la situation précédant cette procédure (et donc avec les données non filtrées)
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--