XL 2016 Compter le nombre de cellule

[ExcelVBA]

Bonjour

Sur un tableau, lorsque j'ai plusieurs lignes (partir de 2), la formule suivante fonctionne nickel :
Range("E2").Select
nbLignes = Range("E2", Selection.End(xlDown)).Cells.Count

Mais si je n'ai qu'une ligne, ma variable nbLigne me ramène 0, et ma plante mon script

Avez vous une idée ?

Par avance merci

 

[sylvanu]

Bonjour Excel VBA,
Essayez :

DerLig = Range("A65500").End(xlUp).Row

Il donne 1 quand une seule ligne. ( Mais donne aussi 1 quand zéro ligne )

 

[goube]

Bonsoir ExcelVBA, sylvanu,

je m’immisce dans ce post pour une question qui me turlupine depuis un moment.

Pourquoi cette macro

Sub test()
Dim derlig As Integer
    derlig = Range("A65500").End(xlUp).Row
    Range("A" & derlig + 1) = "toto"
End Sub

sur la feuille 1, qui ne comporte pas de tableau structuré, inscrit bien toto sur la ligne 2 alors que sur la feuille 2, s'il y a pas le données dans la ligne 2, toto s'inscrit sur la ligne 3.

Dans le cas où il y a déjà des données dans le tableau structuré, toto s'écrit bien sur la première ligne vide.

Si quelqu'un à des réponses.
Cordialement.

 

[sylvanu]

@goube,
Lorsqu'il y a un tableau structuré, la première ligne vide est ... après ce tableau.
Si on insère quelques lignes vides dans le tableau, alors toto est mis à la première ligne vide après le tableau, et devient la dernière ligne de ce dit tableau.

 

[goube]

@sylvanu,
Est ce qu'il y a une méthode pour contourner ce phénomène ?

 

[sylvanu]

Bonjour,
Essayez cela :

derlig = Range("A" & Rows.Count).End(xlUp).Row

Voir aussi :

[VBA] Déterminer la dernière ligne/colonne d’un tableau

Identifier la dernière cellule non vide d’une colonne En VBA, une fonction récurrente consiste à déterminer la dernière ligne d’un tableau. Prenons l’exemple ci-dessous : Pour cel…

vbaforexcel.wordpress.com

 

[goube]

Bonjour,
Merci pour l'info.
Je viens de tester le problème reste le même.
Par contre sur le site de boisgontier Jacques j'ai trouvé une solution.

Les tableaux structurés en VBA

Bonne journée,
Cordialement.