Microsoft 365 1ère ligne non vide tableau

eric72 · 27 Avril 2021

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 · 26 Septembre 2024

essaitest à dit:
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 · 26 Septembre 2024

TooFatBoy à dit:
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 · 26 Septembre 2024

essaitest à dit:
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.

essaitest à dit:
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 · 26 Septembre 2024

TooFatBoy à dit:
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 · 27 Septembre 2024

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 :

VB:

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 :

VB:

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 · 27 Septembre 2024

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 · 27 Septembre 2024

fanch55 à dit:
@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 · 27 Septembre 2024

job75 à dit:
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 · 27 Septembre 2024

fanch55 à dit:
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 · 27 Septembre 2024

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 :

Code:

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

Microsoft 365 1ère ligne non vide tableau

eric72

XLDnaute Accro

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

essaitest

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

essaitest

XLDnaute Nouveau

job75

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires