cp4
XLDnaute Barbatruc
Bonjour,
J'essaie d'assimiler les tableaux structurés en vba. Et, j'avoue être un peu perdu.
Sur la feuille 1, j'ai mis 2 tableaux (tableau1 A1:B2 vide, tableau2 F3:G4 avec une seule ligne de données)
De ce tuto , le résultat renvoyé est faux avec le code ci-dessous
Normalement, Range("Tableau1").Rows.Count renvoie 1 et Range("Tableau1").ListObject.ListRows.Count renvoie 1 alors qu'il devrait renvoyer 0, vu que le tableau1 est vide.
Je suppose que j'ai dû raté quelque chose que je n'arrive pas à trouver.
Merci pour aide et explication.
Bonne journée.
J'essaie d'assimiler les tableaux structurés en vba. Et, j'avoue être un peu perdu.
Sur la feuille 1, j'ai mis 2 tableaux (tableau1 A1:B2 vide, tableau2 F3:G4 avec une seule ligne de données)
De ce tuto , le résultat renvoyé est faux avec le code ci-dessous
VB:
Sub derligne_Tableau_Structuré()
Dim dl1 As Long, dl2 As Long, dl3 As Long, dl4 As Long
dl1 = Range("Tableau1").Rows.Count
dl2 = Range("Tableau1").ListObject.ListRows.Count
dl3 = Range("tableau2").Rows.Count
dl4 = Range("tableau2").ListObject.ListRows.Count
Debug.Print dl1:Debug.Print dl2:Debug.Print dl3:Debug.Print dl4
MsgBox "Range(" & """" & "tableau1" & """" & ").Rows.Count= " & dl1 & vbLf & _
"Range(" & """" & "tableau1" & """" & ").ListObject.ListRows.Count= " & dl2 _
& vbLf & "Range(" & """" & "tableau2" & """" & ").Rows.Count= " & dl3 & vbLf & _
"Range(" & """" & "tableau2" & """" & ").ListObject.ListRows.Count= " & dl4
End Sub
Je suppose que j'ai dû raté quelque chose que je n'arrive pas à trouver.
Merci pour aide et explication.
Bonne journée.
Pièces jointes
Dernière édition: