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

Résolu/Fermé

eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 9 mai 2012 à 08:58
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 9 mai 2012 à 17:20

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

A voir également:

Sélectionner la plage de cellule collée : VBA
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Si plage de cellule contient texte alors ✓ - Forum Excel
Si la cellule contient le mot alors ✓ - Forum Excel

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 mai 2012 à 10:41

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

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

merci bcp

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

VBA Selection jusqu'a derniere cellule pleine

Excel si cellule contient texte alors...

Sur la plage...

Dechiffrer une image caché

Discussions similaires

Newsletters