Sélectionner la plage de cellule collée : VBA [Résolu/Fermé]

Signaler
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013
-
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013
-
Bonjour,

je dispose d'une macro pour un copier coller, mais lorsque je clique sur le bouton ma plage de cellule n'est pas sélectionnée, j'aurai aimé que lorsque le coller se fasse l'ensemble des valeurs collées soient "sélectionné". Est-ce qu'avant le end sub je peux rajouter selection.copy ?

Const nomFO = "Feuil1" ' nom de la feuille Origine
Const nomFD = "Feuil2" ' nom de la feuille Destination
Const CellD = "A5" ' cellule Destination

Sub copier()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Sheets(nomFO).Range("A67:E" & lifin).Copy Sheets(nomFD).Range(CellD)
End Sub

1 réponse

Messages postés
16303
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
20 novembre 2020
3 073
Bonjour

à essayer
Const nomFO = "Feuil1" ' nom de la feuille Origine
Const nomFD = "Feuil2" ' nom de la feuille Destination
Const CellD = "A5" ' cellule Destination

Sub copier()
Dim lifin As Long
lifin = Sheets(nomFO).Range("A" & Rows.Count).End(xlUp).Row
With Sheets(nomFD)
     Sheets(nomFO).Range("A67:E" & lifin).Copy .Range(CellD)
     lifin = .Range("A" & Rows.Count).End(xlUp).Row
      .Activate
     .Range(CellD & ":A" & lifin).Select
 End With
End Sub


nota: suivant l'utilisatiion, il serait peut-^tre prudent de nettoyer la zone A5:Ax de la feuille 2 avant de copier
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013

merci bcp