Atteindre la derniere ligne d'1 tableau

[mout94]

Bonjour,

Je souhaite faire une macro me permettant d'atteindre automatiquement la première ligne vide d'un tableau.

Ce tableau est dans une feuille "Recap" et et de taille variable.

Merci

 

[2passage]

Re : Atteindre la derniere ligne d'1 tableau

Bonjour,

En gros, il va s'agir de "Sheets("Recap").Range('A65536').End(xlUp).Row" mais je suis étonné de ne pas voir déjà des réponses à base de "recherche" et "discussions similaires"...
Bon courage

 

[Robert]

Re : Atteindre la derniere ligne d'1 tableau

Bonjour Mout, 2passage bonjour le forum,

Une autre proposition, si ton tableau ne commence ni en colonne A ni en ligne 1 et si les colonnes n'ont pas toutes le même nombre de lignes éditées :

Sub Macro1()
Dim ld As Integer, lf As Integer 'déclare les variables ld (Ligne de Début) et lf (Ligne de Fin)
Dim cd As Byte, cf As Byte 'déclare les variables cd (Colonne de Début) et Cf (Colonne de Fin)
Dim c As Byte 'déclare la variable c (Colonne)
Dim cel As Range 'déclare la variable cel (CELlule)
 
Sheets("Recap").Activate 'active l'onglet "Recap"
Sheets("Recap").UsedRange.Select 'sélectionne la plage utilisée dans cet onglet
ld = ActiveCell.Row 'définit la variable ld
lf = ld + ActiveSheet.UsedRange.Rows.Count - 1 'définit la variable lf
cd = ActiveCell.Column 'définit la variable cd
cf = cd + ActiveSheet.UsedRange.Columns.Count - 1 'définit la variable cf
For c = cd To cf 'boucle sur les colonnes de la plage utilisée
    'condition : si la dernière cellule de la colonne n'est pas vide
    If Cells(lf, c).Value <> "" Then
        Set cel = Cells(lf, c).Offset(1, 0) 'définit la variable cel (la cellule en dessous)
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next c 'prochaine colonne de la boucle
cel.Select 'sélectionne la cellule cel
End Sub

p.s. bonjour Gaz de Fance...

Édition :

Merci Risleure je corrige mon erreur...

 

[Risleure]

Lb ou Ld that's the question !!!

Bonjour

ATTENTION Robert confusion lb ld !!!

Dim ld As Integer
....
lb = ActiveCell.Row 'définit la variable ld

Mais je garde au chaud !!!

A+