Copier données selectionnées sur autre feuille
Fermé
julien
-
11 févr. 2016 à 15:14
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 11 févr. 2016 à 16:31
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 11 févr. 2016 à 16:31
A voir également:
- Vous pouvez seulement copier des données filtrées vers la feuille active
- Il est en cours de transport vers votre site de livraison ✓ - Forum Consommation et internet
- Windows 7 vers windows 10 - Guide
- Copier video youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Copier plusieurs feuilles excel dans une seule - Guide
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
11 févr. 2016 à 16:31
11 févr. 2016 à 16:31
Bonjour,
Sub Selection_des_données()
Dim Cellules As Range
'de quel Onglet ??????
Set Cellules = Application.InputBox(prompt:=" Cliquez sur le numero des lignes à conserver ", Type:=8)
Application.ScreenUpdating = False 'figeage ecran
With Sheets(3)
PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1 'premiere cellules vide colonne A
If PCV < 2 Then PCV = 2 'si vide
Cellules.Copy .Cells(PCV, 1) 'copie de ligne(s)
End With
Application.ScreenUpdating = True
End Sub