sélectionner la plage de cellule collée : VBA Résolu

Question

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

michel_m · Answer

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

Sélectionner la plage de cellule collée : VBA

1 réponse

Discussions similaires

Newsletters