Copier dans une colonne si elle est vide

  • Initiateur de la discussion Initiateur de la discussion Agty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Agty

Guest
Bonjour à tou(te)s,

Je voudrais copier dans une colonne d'une feuille Excel (seulement si elle est vide) une série de données issue d'une autre colonne. Les deux colonnes appartiennent à des fichiers différents. Quelqu'un(e) peut-il(elle) m'aider à corriger la fin du code ci-après ou m'écrire un code plus simple?
Merci

Workbooks.Open Filename:="L:\...\VBA-Formation\apprentis2.xls"
Worksheets("Feuil1").Activate
Range("A1").Select
If ActiveCell.Value <> "" Then
ActiveCell.Offset(0, 1).Select
End If
Workbooks.Open Filename:="L:\Bases\Feri\france.xls"
Worksheets("climat").Activate
Range("A1:Z1").Select
For Each Cell In Selection
If Cell.Value <> "" Then
ActiveCell.Select
Selection.Offset(1000, 0).Select 'se déplace 1000 lignes en dessous à partir de cellule active
Selection.End(3).Select 'remonte à la dernière cellule renseignée
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(1, Selection.Column)).Select
Selection.Copy _
Workbooks("apprentis2.xls").Worksheets("Feuil1").Range(Cells(ActiveCell.Row, ActiveCell.Column))

End If
Next
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
583
Retour