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

 

[herve62]

En masquant la ligne 2, c'est ça???

AH non ?? je ne masque rien , j'ai vu mais c'est pas d emoi
Sinon cette sub marche aussi là j'ai effacé manu une cellule au milieu le résultat est ok

 

[sylvanu]

Re le fil,
En PJ un ex où un nombre aléatoire est inséré en dernière ligne, avec :

Sub derniere_ligne()
    Dim DerLigne As Long
    With [Tableau13]
        .ListObject.ListRows.Add
        .Rows(.Rows.Count + 1) = Int(1000 * Rnd)
    End With
End Sub

 

[mapomme]

Pour avoir la première cellule vide en valeur absolue, utilisez la formule :

=SIERREUR(PETITE.VALEUR(SI(Tableau1[Nom Client]="";LIGNE(Tableau1[Nom Client]));1);NBVAL(Tableau1[Nom Client])+LIGNE(Tableau1[#En-têtes])+1)

 

[eric72]

Bon pour les courageux je met mon fichier d'origine, c'est le module "CopierColler)

Merci 1000 fois pour votre aide

 

[eric72]

Pour avoir la première cellule vide en valeur absolue, utilisez la formule :

Bonjour et merci
mais c'est pour coller des données dans la 1ère ligne non vide en vba
Eric

 

[eric72]

je crois que cette formule là pourrait fonctionner mais ca beug, c'est peut-être le fait que la copie se fasse dans un autre fichier?
Derligne = DestFeuil1.Range("tableau13").Rows.Count - Application.CountBlank(DestFeuil1.Range("tableau13[Nom Client]")) + 2
Ca doit être mal formulé je pense.
Eric

 

[Dranreb]

Bonjour.
On n'a en général pas besoin de savoir où aura été ajoutée la ligne pour pouvoir y coller des données :
La méthode Add de la collection ListRows du ListObject renvoie un ListRow. Or celui ci est muni d'une propriété Range qui représente la plage de cellules couverte par la ligne ajoutée.

 

[eric72]

Bonjour,
Merci pour votre réponse même si ca me parait un peu compliqué quand je lis, je vais creuser cela et vous tenir au courant.
Merci beaucoup
Eric

 

[Dranreb]

Ça n'est pas vraiment compliqué en terme de nombre de lignes de code si on enchaine tout en sachant ce que ça veut dire :

ActiveSheet.ListObjects(1).ListRows.Add.Range.Value = MonTableauDUneLigne

Ou bien

MonRange.Copy Destination:=ActiveSheet.ListObjects(1).ListRows.Add.Range

 

[fanch55]

Bonsoir,
Bien que je ne comprenne pas l'utilité d'une ligne "vide" dans une table structurée,
le code ci-dessous permettra de trouver celle-ci :

Sub Chercher_Ligne_Vide_de_Tableau()
   
    Lvt [Tableau1], i&, j&
        MsgBox "ligne vide" & vbLf & _
            " =" & i & " dans" & [Tableau1].ListObject.Name & vbLf & _
            " =" & j & " dans " & [Tableau1].Parent.Name
   
    Lvt [Tableau2], i&, j&
        MsgBox "ligne vide" & vbLf & _
            " =" & i & " dans" & [Tableau2].ListObject.Name & vbLf & _
            " =" & j & " dans " & [Tableau2].Parent.Name
           
End Sub
Sub Lvt(Tableau, Optional Ligne_Table As Long, Optional Ligne_Feuille As Long)

    If Tableau.ListObject.DataBodyRange Is Nothing Then
        Ligne_Table = 1
        Ligne_Feuille = Tableau.ListObject.HeaderRowRange.Row + 1
    Else
        Dim R As Range
        For Each R In Tableau.ListObject.DataBodyRange.Rows
             If Application.CountA(R.Cells) = 0 Then
                Ligne_Table = R.Row - Tableau.ListObject.HeaderRowRange.Row
                Ligne_Feuille = R.Row
                Exit For
             End If
        Next
    End If

End Sub

 

[eric72]

Ça n'est pas vraiment compliqué en terme de nombre de lignes de code si on enchaine tout en sachant ce que ça veut dire :

ActiveSheet.ListObjects(1).ListRows.Add.Range.Value = MonTableauDUneLigne

Ou bien

MonRange.Copy Destination:=ActiveSheet.ListObjects(1).ListRows.Add.Range

bonjour,

Et bien voilà , c'est tout de suite plus clair comme ça, pas très doué mais je me soigne.
Merci beaucoup pour votre aide.
Eric

 

[eric72]

Bonsoir,
Bien que je ne comprenne pas l'utilité d'une ligne "vide" dans une table structurée,
le code ci-dessous permettra de trouver celle-ci :

Sub Chercher_Ligne_Vide_de_Tableau()
   
    Lvt [Tableau1], i&, j&
        MsgBox "ligne vide" & vbLf & _
            " =" & i & " dans" & [Tableau1].ListObject.Name & vbLf & _
            " =" & j & " dans " & [Tableau1].Parent.Name
   
    Lvt [Tableau2], i&, j&
        MsgBox "ligne vide" & vbLf & _
            " =" & i & " dans" & [Tableau2].ListObject.Name & vbLf & _
            " =" & j & " dans " & [Tableau2].Parent.Name
           
End Sub
Sub Lvt(Tableau, Optional Ligne_Table As Long, Optional Ligne_Feuille As Long)

Bonjour Fanch55,

Merci beaucoup pour votre réponse, c'est incroyable vous avez toujours des solutions pour tout!!!
Bonne journée
Eric

    If Tableau.ListObject.DataBodyRange Is Nothing Then
        Ligne_Table = 1
        Ligne_Feuille = Tableau.ListObject.HeaderRowRange.Row + 1
    Else
        Dim R As Range
        For Each R In Tableau.ListObject.DataBodyRange.Rows
             If Application.CountA(R.Cells) = 0 Then
                Ligne_Table = R.Row - Tableau.ListObject.HeaderRowRange.Row
                Ligne_Feuille = R.Row
                Exit For
             End If
        Next
    End If

End Sub

 

[essaitest]

Bonjour
Ayant déjà été confronté à ce Pb il y a ...euh ??????
ci joint une fonction qui marche

je suis débutant peux tu commenter ta fonction?

 

[TooFatBoy]

Bonjour,

je suis débutant peux tu commenter ta fonction?

Attention :

- D'une part la question posée est de trouver la 1ère ligne non vide d'un tableau structuré.
Mais il semble que ce ne soit en fait pas du tout ce qui est recherché en réalité. Ce qui parait logique puisque normalement la première ligne non vide d'un TS est la première ligne dudit TS.
Donc je ne sais pas ce que recherchait exactement eric72. Peut-être la première ligne vide (mais pourquoi avoir une ligne vide dans un TS ???), ou peut-être la dernière lige non vide du TS, ou peut-être la dernière ligne du TS ?

- D'autre part ladite fonction ne répond pas à la question posée puisqu'elle ne tient pas compte du fait que la question porte précisément sur un TS.
Elle ne fait que retourner, en employant une méthode un peu complexe, la dernière ligne non vide de la colonne A.


Mais toi, que cherches-tu à faire ?

 

[essaitest]

Bonjour,



Attention :

- D'une part la question posée est de trouver la 1ère ligne non vide d'un tableau structuré.
Mais il semble que ce ne soit en fait pas du tout ce qui est recherché en réalité. Ce qui parait logique puisque normalement la première ligne non vide d'un TS est la première ligne dudit TS.
Donc je ne sais pas ce que recherchait exactement @eric72. Peut-être la première ligne vide (mais pourquoi avoir une ligne vide dans un TS ???), ou peut-être la dernière lige non vide du TS, ou peut-être la dernière ligne du TS ?

- D'autre part ladite fonction ne répond pas à la question posée puisqu'elle ne tient pas compte du fait que la question porte précisément sur un TS.
Elle ne fait que retourner, en employant une méthode un peu complexe, la dernière ligne non vide de la colonne A.


Mais toi, que cherches-tu à faire ?

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