Microsoft 365 1ère ligne non vide tableau

[eric72]

Bonjour à tous,
J'essaie désespéremment de trouver la 1ère ligne non vide d'un tableau structuré, sans succès
J'ai cherché sur les forums mais ce que j'ai trouvé ne fonctionne pas
J'ai besoin de votre lumière.
Merci beaucoup
Eric

 

[TooFatBoy]

je compare toute les méthodes pour trouver une ligne vide que ce soit dan un tableau ou une colonne.

Ok. Donc sa fonction ne convient pas du tout. 😕

 

[essaitest]

Ok. Donc sa fonction ne convient pas du tout. 😕

je ne comprends pas
x = 9E+99
et x = String(255, Chr(255))
quelle est l'utilité de ces deux valeurs?

 

[TooFatBoy]

x = 9E+99

C'est un nombre très grand.
L'instruction va chercher ce nombre et donc te retourner la ligne du dernier nombre de la colonne.

x = String(255, Chr(255))

Le principe est le même.
L'instruction va chercher ce texte et donc te retourner la ligne du dernier texte de la colonne.

 

[essaitest]

C'est un nombre très grand.
L'instruction va chercher ce nombre et donc te retourner la ligne du dernier nombre de la colonne.



Le principe est le même.
L'instruction va chercher ce texte et donc te retourner la ligne du dernier texte de la colonne.

merci beaucoup

 

[job75]

Bonjour le forum,

Pour sélectionner la 1ère ligne non vide d'un tableau structuré (le titre du fil) c'est très simple :

Sub LigneNonVide()
Dim i&
With ActiveSheet.ListObjects(1).Range
    For i = 2 To .Rows.Count
        If Application.CountIf(.Rows(i), "><") Then .Rows(i).Select: Exit Sub
    Next
    MsgBox "Tableau vide"
End With
End Sub

Pour sélectionner la 1ère ligne vide d'un tableau structuré c'est aussi simple :

Sub LigneVide()
Dim i&
With ActiveSheet.ListObjects(1).Range
    For i = 2 To .Rows.Count
        If Application.CountIf(.Rows(i), "><") = 0 Then .Rows(i).Select: Exit Sub
    Next
    .Rows(i).Select
End With
End Sub

Je traite les cellules contenant un texte vide "" comme les cellules vides.

A+

 

[fanch55]

Salut à tous,

	@essaitest : chercher la première ligne ou plutôt cellule vide d'une colonne et la première ligne vide d'un tableau structuré, ce n'est pas du tout la même chose
	@job75 : bonjour, dans la sub LigneVide, si une cellule=zéro, la sub considère que c'est une ligne vide ? ...

 

[job75]

@job75 : bonjour, dans la sub LigneVide, si une cellule=zéro, la sub considère que c'est une ligne vide ?

Bien sûr que non, je suis surpris que tu poses cette question 🤔

 

[fanch55]

Bien sûr que non, je suis surpris que tu poses cette question 🤔

Ben, la ligne sélectionnée, c'est celle que la sub considère vide ....

 

[fanch55]

Regarde la pièce jointe 1204154

Ben, la ligne sélectionnée, c'est celle que la sub considère vide ....

j'aurai plutôt pris: if Application.CountA(.Rows(i)) = 0 😉

 

[job75]

Ah oui j'avais oublié "><" élimine les nombres.

CountA n'élimine pas les textes vides renvoyés par les formules ni les espaces.

Alors utilisez :

Sub LigneNonVide()
Dim i&
With ActiveSheet.ListObjects(1).Range
    For i = 2 To .Rows.Count
        If Application.CountIf(.Rows(i), "><") + Application.Count(.Rows(i)) Then .Rows(i).Select: Exit Sub
    Next
    MsgBox "Tableau vide"
End With
End Sub

Sub LigneVide()
Dim i&
With ActiveSheet.ListObjects(1).Range
    For i = 2 To .Rows.Count
        If Application.CountIf(.Rows(i), "><") = 0 And Application.Count(.Rows(i)) = 0 Then .Rows(i).Select: Exit Sub
    Next
    .Rows(i).Select
End With
End Sub