Detection dernière cellule remplit.

[shmider]

Bonjour, 😱

En fait je coince sur la macro ci dessous:

Sub import()

Sheets(1).Select
    Columns("a:a").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Int_LigRecheFrn = ActiveCell.Row
    
    Range("a9:a" & Int_LigRecheFrn - 1).Select
    Selection.Copy Destination:= _
    Sheets("importation").Range("A9")
    
End Sub

En gros j'essai de copier les données de la table en fichier joint en fonction de la dernière cellule remplit (Cf. fichier joint pour plus de détail sur la problèmatique).

Merci à vous @+

 

[ghu]

Re : Detection dernière cellule remplit.

Salut,

Peut-être utiliser un truc genre :

derniere = Range("A1").End(xlDown).Row
Range("A1:A" & derniere).Select

Le seule truc c'est qu'il ne faut qu'il y ait d'espace dans ta colonne.

A+

 

[Raja]

Re : Detection dernière cellule remplit.

Bonjour,

Essaye ce code suivant, à adapter par rapport à la plage à copier :

Sub import()
  DerLig = Sheets("données").Range("A65536").End(xlUp).Row
  Range(Cells(7, 1), Cells(DerLig, 1)).Copy Destination:=Sheets("importation").Range("A9")
End Sub

édit : salut ghu

 

[shmider]

Re : Detection dernière cellule remplit.

Hello raja,

Merci pour ta reponse rapide et claire.

En fait j'évite le 65K ligne !! cependant je vais testé la promière proposition.
@+

 

[shmider]

Re : Detection dernière cellule remplit.

Re à vous,

En fait tous les codes peuvent etre adoptés je suis bien daccord. sauf que dans mon cas et vu que j'ai des cellules vides excel ne me copie pas toutes les lignes il s arrete à la première vide!!

Du coup, je cherche à lui dire:
copie de A7 à la dernière à droite: Selection.End(xlToRight).Column
==> là ok la selection est faite
copie de la première ligne à la première vide -1: Selection.End(xlDown).Row
==> là ça va pas, car il s'arrete à la première cellule vide

donc, vu que je suis sûr d'avoir toujours les cellules de la première colonne remplit, j'aimerai me basé sur ces cellules pour faire la copie de la table !!

Comment traduire ceci?

@+

 

[Pierrot93]

Re : Detection dernière cellule remplit.

Bonjour à tous

peut être comme ceci :

Dim DerLig As Integer, DerCol As Byte
DerLig = Sheets("données").Range("A65536").End(xlUp).Row
DerCol = Sheets("données").Range("IV7").End(xlToLeft).Column
Range(Cells(7, 1), Cells(DerLig, DerCol)).Copy Destination:=Sheets("importation").Range("A9")

bon après midi
@+

 

[matt916]

Re : Detection dernière cellule remplit.

Bonjour au forum,

Et pourquoi ne pas utiliser tout simplement un boucle sur la colonne A. La seule condition à respecter est qu'il n'y ai pas plus de deux cellules vides les unes en dessous des autres. Si c'est le cas, il sera nécessaire d'améliorer la boucle suivante :

Sub test()
Dim LgnDebut As Long
LgnDebut = 1

Do
LgnDebut = LgnDebut + 1
If Cells(LgnDebut, 1).Offset(1, 0).Value <> "" Then
LgnDebut = LgnDebut + 1
Else
LgnDebut = LgnDebut
End If
Loop Until Cells(LgnDebut, 1).Value = ""
LgnFin = LgnDebut - 1

MsgBox LgnFin

End Sub

Puis une sélection
range(cells(2,y),cells(LgnFin,y)).paste...

A+
Matt

 

[shmider]

Re : Detection dernière cellule remplit.

Hello tout le monde 😉

Super Jean-Marcel, je vais adopté ton code à mon fichier.

Encore un grand merci à vous les XlDiens ;-)