Désactiver une zone de collage spécial
Bonjour à tous,
Lorsque j'effectue avec une macro, copier et coller spécial, la zone de collage reste sélectionnée.
Je dois chaque fois cliquer dans la zone, c'est embêtant lorsque l'on a plusieurs feuilles.
Je vous colle la macro ci-dessous.
Private Sub Cbn_Imprimer_Click()
Dim LigLv As Long, Ligne As Long
Application.ScreenUpdating = False
' 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
With Sheets(.ListItems(LigLv).Text)
If .Range("I1") <> "" Then
Ligne = .Range("I" & Rows.Count).End(xlUp).Row + 1
Else
Ligne = 1
End If
If ActiveSheet.Name = "02 Entrainements" Then
Range("Commentaires").Copy
ElseIf ActiveSheet.Name = "03 Match championat" Then
Range("Commentaires2").Copy
End If
'.Range("I" & Ligne).PasteSpecial Paste:=xlPasteValues
.Range("I" & Ligne).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Range("A1").Select
Application.CutCopyMode = False
End With
End If
Next LigLv
End With
Application.ScreenUpdating = True
End Sub
Merci de bien vouloir jeter un coup d’œil
Bonne journée
Papy Pierrot
Salut Pierrot,
Je ne sais pas s’il existe un moyen plus simple, mais à défaut d’autre réponse je t’indique ma manière de faire ; à la fin du code, je sélectionne une cellule quelconque afin de supprimer l’ancienne sélection multiple.
Il est bien entendu que si quelqu’un d’autre à une meilleure idée, je suis également preneur.
Cordialement.
Bonjour Yvoulle
C'est exactement .ce que je fais, en sélectionnant la cellule active, mais rien ne bouge.
Merci quant même de chercher à m'aider
Bonne journée,
Amicalement, Pierrot
Selon moi tu dois sélectionner une cellule active par feuille concernée, par exemple place
.Range("A1").Selectjuste après .Range("I" & Ligne).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Ton code ActiveCell.Range("A1").Select ne vaut que pour la feuille active.
Amicalement.
Cher Yvouille,
J'ai essayé, mais je reçois un Msg d'erreur tel que : "La méthode Select de la classe Range à échoué."
et la zone copiée au départ reste sélectionnée en pointillé.jusqu’à ce que je clique sur Escape.
merci de passer ton temps à vouloir m'aider, c'est vraiment très gentil.
Un grand merci et à très bientôt
Pierrot
Salut,
En ayant ton fichier à disposition, ce serait plus simple car on pourrait tester ta macro directement au lieu d'essayer de reproduire des conditions analogues dans un autre fichier. Peux-tu éventuellement nous le fournir ?
Mais je ne garantis quand même pas que je puisse t'aider.
Autrement indique ce fil comme résolu et recommence-en un autre tout neuf
Cordialement.
Bonjour, Yvouille,
Je vais clore ce sujet et utiliser une autre méthode.
Merci pour pour ce que tu as fais; Mon fichier est trop lourd
Bonne soirée
Papy Pierrot