XL 2016 copier jusque la dernière cellule remplie

[MASSJIPE]

Bonjour le forum
Après plusieurs recherche je recherche un code VBA pour copier de la cellule A2 à F13 mais F13 est variable en nombre de cellule, mais seulement les ligne sont incomplète sauf la colonne F
Merci

 

[Efgé]

Bonjour MASSjIPE
une proposition:

Sub Derniere_ligne()
Dim LstRw As Long, LstCol As Long, LstCel As String
With Sheets("Feuil1")
     LstRw = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 1, 2, 0).Row
     LstCol = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column
     LstCel = .Cells(LstRw, LstCol).Address
End With
MsgBox "Ligne: " & LstRw & vbLf & _
         "Colonne: " & LstCol & vbLf & _
         "Addresse: " & LstCel
End Sub

Si les cellules sont remplies avec des formules, il faut changer xlValues par xlFormulas
Cordialement

 

[youky(BJ)]

Bonjour,
si les données s'arrêtent à F
ActiveSheet.UsedRange.select
ou bien si plus de données
range("A2:F" & [A:F].Find("*",,,,1,2).Row).select
Bruno

 

[MASSJIPE]

Bonjour le forum
Après plusieurs recherche je recherche un code VBA pour copier de la cellule A2 à F13 mais F13 est variable en nombre de cellule, mais seulement les ligne sont incomplète sauf la colonne F
Merci

Regarde la pièce jointe 1023701

 

[MASSJIPE]

Bonjour
Merci
c'est bien la plage de A2 à F de la dernière cellule mais pas une seule cellule

 

[Efgé]

Re
Bonjour youky(BJ)

c'est bien la plage de A2 à F de la dernière cellule mais pas une seule cellule

Quand on connais la première cellule, et qu'on trouve la dernière, il est simple d'avoir une plage entière...

Sub Selection_Plage()
Dim LstRw As Long, LstCol As Long, LstCel As String
With Sheets("Feuil1")
     LstRw = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 1, 2, 0).Row
     LstCol = .Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column
     LstCel = .Cells(LstRw, LstCol).Address
    .Range("$A$2:" & LstCel).Select
End With
End Sub

Cordialement