Sélection de contenu impossible
Bonjour à toutes et à tous,
J'ai récemment créé une macro qui si on le résume effectue les opérations suivantes:
1. Ajouter dans le fichier A le nombre de lignes affichées (via un filtre) dans le fichier B. (le filtre se fait manuellement avant de lancer la macro)
2. Sélectionner les données filtrées dans le fichier B.
3. Les coller dans le fichier A, là où les lignes ont été ajoutées.
Les étapes 1 et 3 fonctionne parfaitement. Mon problème se situe avec l'étape 2, seules les deux premières cellules de la première ligne sont automatiquement copié au lieu de l'ensemble des lignes et colonnes non vides.
Voilà ladite macro utilisée
Sub Reco_factures()
'
'
For i = 1 To Range("AB1")
ActiveCell(2).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).EntireRow
ActiveCell(2).EntireRow.Clear
'
Next i
Windows("FichierB.xlsx").Activate
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("FichierA.xlsx").Activate
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
End Sub
Je pense que le problème se situe dans la partie bleue ci-dessus, mais impossible de le résoudre.
Pouvez-vous m'aider s'il vous plaît ?
Merci d'avance et bonne journée.
Guillaume
Bonjour,
La méthode n'est déjà guère bonne ! Et la réalisation bien pire ! Que le code ne fasse pas ce que tu souhaites, est la seule chose logique, puisque tu n'y a pas écrit les opérations souhaitées ! Je n'oserais jamais lancer un tel code de crainte des effets pervers qu'il peut engendrer !
Si tu déposes tes fichiers, on pourra réécrire quelque chose de fonctionnel...
Cordialement.