XL 2016 VBA pour sélectionner une plage de cellule à la dernière cellule vide

Anto35200 · 21 Septembre 2023

Bonjour,

Je souhaiterai à partir du fichier « Banque » qu’une macro ouvre le fichier « Extraction relevé bancaire » et sélectionne toute la plage de la colonne A à U et jusqu’à la dernière cellule vide (il se peut que ce fichier comporte plus de 10 000 lignes).

Une fois cette sélection faite, copie et colle cette plage dans le fichier « Banque » à la feuille « Relevé ».

Il y un déjà un début de macro, mais je ne sais pas comment sélectionner la plage voulue.

Anto35200 · 21 Septembre 2023

Bonjour Dranreb,

Merci beaucoup !

Dranreb · 21 Septembre 2023

Bonjour.

VB:

Sub Macro2()
   Dim WBkExt As Workbook, NomFichier As Variant
   NomFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsm")
   If VarType(NomFichier) = vbString Then
      Set WBkExt = Workbooks.Open(NomFichier)
      Feuil2.Cells.ClearContents
      WBkExt.Worksheets(1).UsedRange.Copy Destination:=Feuil2.[A1]
      'WBkExt.Close SaveChanges:=False
      End If
  End Sub

Anto35200 · 21 Septembre 2023

Bonjour Dranreb,

Merci beaucoup !

XL 2016 VBA pour sélectionner une plage de cellule à la dernière cellule vide

Anto35200

XLDnaute Occasionnel

Pièces jointes

Anto35200

Dranreb

XLDnaute Barbatruc

Anto35200

XLDnaute Occasionnel

Discussions similaires