selectionner lignes choisies

[jean michel]

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]

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

 

[Hervé]

bonsoir

En pièce jointe une proposition

Salut
Hervé

 

[Hervé]

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!]

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)
&nbsp; &nbsp; &nbsp; If TabTemp(L, 1) <> "X" Then .Rows(9 + L).Hidden = True
&nbsp; &nbsp; Next L
&nbsp; &nbsp; 'Masque la colonne 13
&nbsp; &nbsp; .Columns(13).Hidden = True
&nbsp; &nbsp; 'Aperçu avant impression
&nbsp; &nbsp; ActiveWindow.SelectedSheets.PrintPreview
&nbsp; &nbsp; 'si on souhaite imprimer directement la feuille, on peut remplacer cette ligne par :
&nbsp; &nbsp; 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

&nbsp; &nbsp; 'Réaffichage des lignes et colonnes non imprimées
&nbsp; &nbsp; For L = 1 To UBound(TabTemp, 1)
&nbsp; &nbsp; &nbsp; .Rows(9 + L).Hidden = False
&nbsp; &nbsp; Next L
&nbsp; &nbsp; .Columns(13).Hidden = False
&nbsp; End With
&nbsp; 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
&nbsp; 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!]

Oups,

Désolé Hervé !

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


Didier_mDF

 

[jean michel]

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

BONNE SOIREE