Copier données selectionnées sur autre feuille
julien
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aurais besoin d'aide pour adapter mon code a ce que je veux faire ..
Je voudrais poser la question à l'utilisateur " Cliquez sur le numéro de ligne à sélectionner" , que la macro s'exécute en copiant surla feuille 3 ( Déjà réalisé dans le code ci-contre) mais je voudrais également qu'une fois la ligne sélectionner un message apparaisse pour demander si l'utilisateur veut sélectionner une autre ligne ( Si oui refaire la même chose , si non arrêter la macro et se rendre sur la feuille 3 )
Sachant que si plusieurs lignes sont conservées il faut les copier les unes à la suites des autres et non pas les une sur les autres ..
Voici le code :
Sub Selection_des_données()
Dim Cellules As Range
Set Cellules = Application.InputBox(prompt:=" Cliquez sur le numero des lignes à conserver ", Type:=8)
Cellules.Select
Selection.Copy
Sheets(3).Select
Cells(2, 1).Select
ActiveSheet.Paste
End Sub
J'espère être claire , merci beaucoup
J'aurais besoin d'aide pour adapter mon code a ce que je veux faire ..
Je voudrais poser la question à l'utilisateur " Cliquez sur le numéro de ligne à sélectionner" , que la macro s'exécute en copiant surla feuille 3 ( Déjà réalisé dans le code ci-contre) mais je voudrais également qu'une fois la ligne sélectionner un message apparaisse pour demander si l'utilisateur veut sélectionner une autre ligne ( Si oui refaire la même chose , si non arrêter la macro et se rendre sur la feuille 3 )
Sachant que si plusieurs lignes sont conservées il faut les copier les unes à la suites des autres et non pas les une sur les autres ..
Voici le code :
Sub Selection_des_données()
Dim Cellules As Range
Set Cellules = Application.InputBox(prompt:=" Cliquez sur le numero des lignes à conserver ", Type:=8)
Cellules.Select
Selection.Copy
Sheets(3).Select
Cells(2, 1).Select
ActiveSheet.Paste
End Sub
J'espère être claire , merci beaucoup
A voir également:
- Vous pouvez seulement copier des données filtrées vers la feuille active
- Fuite données maif - Guide
- Trier des données excel - Guide
- Comment copier une vidéo youtube - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Super copier - Télécharger - Gestion de fichiers
1 réponse
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
