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
-
eglantine217
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
16039
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 janvier 2020
2 853
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 81948 internautes nous ont dit merci ce mois-ci

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

merci bcp