Detection dernière cellule remplit.

G

ghu

Guest

• 27 Août 2009

• #2

Re : Detection dernière cellule remplit.

Salut,

Peut-être utiliser un truc genre :

Code:

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+

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 27 Août 2009

• #3

Re : Detection dernière cellule remplit.

Bonjour,

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

Code:

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

 

Dernière édition: 27 Août 2009

Vote positif 0 Vote négatif

shmider

XLDnaute Occasionnel

• 27 Août 2009

• #4

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.
@+

 

Vote positif 0 Vote négatif

shmider

XLDnaute Occasionnel

• 27 Août 2009

• #5

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?

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Août 2009

• #6

Re : Detection dernière cellule remplit.

Bonjour à tous

peut être comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

M

matt916

Guest

• 27 Août 2009

• #7

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

 

Vote positif 0 Vote négatif

shmider

XLDnaute Occasionnel

• 27 Août 2009

• #8

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 ;-)

 

Vote positif 0 Vote négatif