Modifier une macro

Bonjour à tous,

Je cherche à modifier une macro liste feuilles prévue pour imprimer une feuille parmi celles du classeur.

Mon souhait est de remplacer l'impression par un copier coller.Voir le fichier ci-joint.

Merci de m'aider encore une fois.

Bonne journée à tous,

Papy Pierrot

Bonjour

Une solution, je ne sais pas si c'est la meilleure

A tester

Bonjour Banzai,

Je suis heureux d'avoir de tes nouvelles,

je n'arrive pas à copier mes commentaires et les coller dans une autre feuille.

la listeBox ne fonctionne pas

Merci d'avoir essayé de m'aider.

Bonne journée.

Amicalement

Pierrot

Bonjour

Je viens de tester encore et pas de soucis

Euh il n'y a pas de ListBox (tu n'as pas le bon fichier)

Tu as tester le fichier que j'ai posté ?

Message d'erreur ?

Et oui, Banzai,

j'ai le bon fichier,C'est d'une ListView dont il s'agit. En cliquant et sélectionnant une feuille, je reçois un aperçu avant impression

mais ce n'est pas ce que je souhaite, ce que je veux, c'est copier les commentaires d'une feuille et les coller dans une autre feuille à choisir dans la ListView.

Désolé, merci de m'aider.

A bientôt

Pierrot

Bonjour

Tu ne veux pas du tout imprimer ?

Modifies ta macro

Private Sub Cbn_Imprimer_Click()
  Dim LigLv As Long
  ' Avec l'objet conteneur ListView1
  With Me.ListView1
    ' Pour chaque ligne
    For LigLv = 1 To .ListItems.Count
      ' Si la ligne est cochée
      If .ListItems(LigLv).Checked = True Then
        ' On recopie dans la feuille correspondante
        Range("Commentaires").Copy Sheets(.ListItems(LigLv).Text).Range("J2")
      End If
    Next LigLv
  End With
End Sub

Banzai,

Ca ne marche pas,

J'insère un commentaire dans une feuille "Championnat" et je veux le copier dans la feuille du joueur concerné, choisi dans la ListView.

je vais t'envoyer par mail le dossier complet, si tu veux bien.ou préfères-tu avec Skype.

Amicalement

Pierrot