selectionner lignes choisies

jean michel · 2 Novembre 2004

BONSOIR A TOUS

Dans cet exemple joint
avec une macro evenmentielle j'effectue un choix en cochant les lignes d'une base de donnees jusque la pas de probleme,mais je souhaiterais copier les lignes choisie sur une autre feuille pour faire l'impression de mon choix

merci a tous et bonne soiree

jean michel

CHti160 · 2 Novembre 2004

Salut "jean michel"
une solution à améliorer et adapter
A+++
Jean Marie

Hervé · 2 Novembre 2004

bonsoir

En pièce jointe une proposition

Salut
Hervé

Hervé · 2 Novembre 2004

re

Désolé chti160 j'avais pas rafraichi

Jean-michel prend la solution de chti, elle est moins tordue que la mienne.

salut
Hervé

myDearFriend! · 2 Novembre 2004

Bonsoir Jean-Michel, Jean-Marie, le Forum.

Ci-joint une autre façon d'aborder le problème.

Sub ImprimeX()
Dim TabTemp As Variant
Dim L As Long
  Application.ScreenUpdating = False
  With Sheets("intervention sur")
    L = .UsedRange.Rows.Count
    'Charge les données dans un tableau variant temporaire
    TabTemp = .Range(.Cells(10, 13), .Cells(L, 13)).Value
    'Masque les lignes inutiles
    For L = 1 To UBound(TabTemp, 1)
      If TabTemp(L, 1) <> "X" Then .Rows(9 + L).Hidden = True
    Next L
    'Masque la colonne 13
    .Columns(13).Hidden = True
    'Aperçu avant impression
    ActiveWindow.SelectedSheets.PrintPreview
    'si on souhaite imprimer directement la feuille, on peut remplacer cette ligne par :
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    'Réaffichage des lignes et colonnes non imprimées
    For L = 1 To UBound(TabTemp, 1)
      .Rows(9 + L).Hidden = False
    Next L
    .Columns(13).Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub

Par ailleurs, je me suis permis d'ajouter la ligne suivante au début de ta procédure Worksheet_SelectionChange
  If Target.Count > 1 Then Exit Sub
Cela évite une action inattendue du code (et non souhaitée) si la sélection est une plage...

Cordialement,
Didier_mDF

myDearFriend! · 2 Novembre 2004

Oups,

Désolé Hervé !

Décidément, c'est carrément l'embouteillage là... Arf

Didier_mDF

jean michel · 2 Novembre 2004

un GRAND merci a tous ,je vais adapter vos solutions a mon application
ce forum est vraiment SUPER

BONNE SOIREE

selectionner lignes choisies

jean michel

Guest

Pièces jointes

CHti160

Guest

Pièces jointes

Hervé

Guest

Pièces jointes

Hervé

Guest

myDearFriend!

Guest

Pièces jointes

myDearFriend!

Guest

jean michel

Guest

Discussions similaires