Détecter la fin du tableau (copier coller)

Re : Détecter la fin du tableau (copier coller)

Bonjour Blitz, tout le monde,

Au lieu de:
.Sheets("Récapitulatif").Range("A2:O30").Copy

Mettre:
dim DerLign as integer
DerLign = Range("F65536").End(xlUp).row
.Sheets("Récapitulatif").Range("A2" , "O" & DerLign).Copy

A+

Re : Détecter la fin du tableau (copier coller)

Merci encore !
j'espère un jour pouvoir réaliser ce genre de chose, tu m'ôte une grosse épine du pied en tout cas.

Merci !

Re : Détecter la fin du tableau (copier coller)

bonjour

j'ai besoin de ton aide stp.
j'ai un problème de detection de la derniere cellule vide d'une colonne j'ai vu que ta traiter un probleme pareil, j'ai utiliser le code que ta recommander mais sa marche pas pour moi ca donne pas le resultat volu.

merci

Re : Détecter la fin du tableau (copier coller)

Je ne comprend pas trop pourquoi, mais je ne récupère que la première ligne, comment y remédier ?
Je ne voie pas pourquoi d'ailleurs


Private Sub bring()

Application.ScreenUpdating = False
Rep = "X:\AJ\Dossier de suivi\"
FichS = ActiveWorkbook.Name
FichD = "Visio+.xls"
Workbooks.Open Rep & FichD

With Workbooks(FichS)
Fichier = .Sheets("Récapitulatif").Cells(1, 1).Value
If Dir(Rep & Fichier & ".xls") <> "" Then 'vérifie si la sauvegarde n'a pas déjà été effectuée
MsgBox "La sauvegarde a déjà été effectuée"
Exit Sub
End If
Dim DerLign As Integer
DerLign = Range("F65536").End(xlUp).Row
.Sheets("Récapitulatif").Range("A2", "O" & DerLign).Copy
Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
Workbooks(FichD).Save
Workbooks(FichD).Close
MsgBox "Base de données alimenté"
.Close

End With
Application.ScreenUpdating = True

End Sub

Re : Détecter la fin du tableau (copier coller)

Bonsoir à tous

Perso pour trouver la derniere ligne occupée dans une feuille, j'utilise:

num = Cells.Find("*", , , , , xlPrevious).Row


A+