Bonjour à toutes et tous,
Absent du forum depuis un moment, je reviens vers vous pour un problème que je n'arrive pas à solutionner malgré mes nombreuses recherches. De plus, je suis loin d'être un expert en VBA.
Je vous expose ma demande, j'ai une feuille "Feuil1" sur laquelle se trouve des listes déroulantes en cascade, des affichages automatisés et des zones de saisie. Je voudrai sélectionner des cellules non contigües telle que G8, C14, J14, E16 etc. et les copier dans une feuille "Feuil2" sur les colonnes A à A+n (nombre de cellules non contigües de la feuille "Feuil1" en ligne 2 et répéter l'opération autant de fois que nécessaire. Je vous mets ci-dessous une ébauche de code pour mieux comprendre.
D'avance merci pour vos réponses.
Absent du forum depuis un moment, je reviens vers vous pour un problème que je n'arrive pas à solutionner malgré mes nombreuses recherches. De plus, je suis loin d'être un expert en VBA.
Je vous expose ma demande, j'ai une feuille "Feuil1" sur laquelle se trouve des listes déroulantes en cascade, des affichages automatisés et des zones de saisie. Je voudrai sélectionner des cellules non contigües telle que G8, C14, J14, E16 etc. et les copier dans une feuille "Feuil2" sur les colonnes A à A+n (nombre de cellules non contigües de la feuille "Feuil1" en ligne 2 et répéter l'opération autant de fois que nécessaire. Je vous mets ci-dessous une ébauche de code pour mieux comprendre.
Code:
Sub Macro1()
Sheets("Accueil").Select
Range("G8").Copy
Sheets("Feuil6").Select
Range("A65000").End(xlUp).Offset(1).Select
ActiveSheet.Paste
Sheets("Accueil").Select
Range("C14").Copy
Sheets("Feuil6").Select
Range("B65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub