Discussion :

[kptn_kvrn]

Malgré une lecture attentive des tutoriaux... je n'arrive pas à trouver l'adresse de la dernière cellule en utilisant
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
car ça me renvoit tjs comme adresse la dernière cellule qui a été écrite puis effacée.
Apparement ça ne fait pas la mise à jour malgré le usedrange,

Merci

[doringen]

J´ai eu le même problème (la cellule est vide en contenu, mais "contient" toujours un format.
Ma solution est "force brute": une boucle sur la colonne qui teste le paramêtre IsEmpty pour chaue cellule (si tu ne connais pas la dernière colonne du tableau, tu peux insérer cette boule dans une autre qui balaye les colonnes de A à ...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For z = 1 To 1000
        If IsEmpty(Range("a" & z)) = False Then
            compteur = z
        End If
Next z

en fin de boucle, z est ton indice de dernière ligne
inconvénient: cela marche chez moi parce que toutes les cellules de mon tableau sont de toutes facons remplies (par défaut, un "0" ou un "~"), mais si la dernière cellule de ton tableau est vide...

[Invité]

Bonjour

Si tu veux la derniére cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
wks.UsedRange.Rows.Count

avec wks ta feuille

Starec

[AlainTech]

ça me renvoit tjs comme adresse la dernière cellule qui a été écrite puis effacée.

Sauver le fichier avant de chercher la dernière cellule...

[kptn_kvrn]

Non désolé mais ça ne marche pas même en sauvant le fichier d'abord...
Reste la méthode de comptage des colonnes... pas terrible mais bon

[ouskel'n'or]

Non désolé mais ça ne marche pas même en sauvant le fichier d'abord...

Tu ne dois enregistrer le fichier qu'après suppression des lignes. Fonctionne aussi bien en version 97 que 2003.
Ceci dit UsedRange t'indique le nombre de ligne de la plage de données.
Si tu as une ligne vide dans tes données, il indique la dernière ligne de la plage contenant la cellule active. Très risqué comme méthode.
Sinon, tu as d'autre syntaxes. Je les reprends toutes (enfin, pas toutes mais les plus simples)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Dernière ligne renseignée de la plage contenant la cellule active
    DerniereLigne = ActiveCell.CurrentRegion.End(xlDown).Row
 
'Dernière ligne avant ligne vide -> Innexacte si ligne vide dans la plage
    DerniereLigne = ActiveSheet.UsedRange.End(xlDown).Row
 
'La colonne A doit être la plus longue pour donner la dernière ligne renseignée de la feuille
    DerniereLigne = Range("A65535").End(xlUp).Row
 
'S'arrête à la première ligne vide
    DerniereLigne = Range("A1").End(xlDown).Row
 
'Indique toute la plage renseignée ou modifiée, en cas de suppression de ligne,
    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'contraint d'enregistrer le fichier après suppression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    rows(10).delete shift:=xlUp
    ActiveWorkbook.save
    DoEvents 'laisser au fichier le temps de s'enregistrer
    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

A+