Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Limite d'un TCD

Limite d'un TCD

10 réponses
Avatar
coco74
Bonjour à tous et à toutes,

Je cherche en VBA à connaître le numéro de la ligne plaçée juste en dessous
de la dernière ligne (fluctuante) d'un TCD.
Qui peut m'aider ?
--
coco
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour coco,

si tu recherche le numéro de la ligne "Total" ?

supposons que le tcd débute en colonne A
=EQUIV("Total";A:A;0)

isabelle



Bonjour à tous et à toutes,

Je cherche en VBA à connaître le numéro de la ligne plaçée juste en dessous
de la dernière ligne (fluctuante) d'un TCD.
Qui peut m'aider ?


Avatar
coco74
Bonjour et merci Isabelle

En fait, je souhaite ne pas afficher la ligne de totaux des colonnes (en bas
de tableau). Comment faire alors ?
--
coco



bonjour coco,

si tu recherche le numéro de la ligne "Total" ?

supposons que le tcd débute en colonne A
=EQUIV("Total";A:A;0)

isabelle



Bonjour à tous et à toutes,

Je cherche en VBA à connaître le numéro de la ligne plaçée juste en dessous
de la dernière ligne (fluctuante) d'un TCD.
Qui peut m'aider ?





Avatar
isabelle
bonjour coco,

fait un click droit sur le tcd, sélectionne "Options du tableau" et décoche la case "Totaux de colonne"

isabelle


Bonjour et merci Isabelle

En fait, je souhaite ne pas afficher la ligne de totaux des colonnes (en bas
de tableau). Comment faire alors ?


Avatar
coco74
Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide
--
coco



bonjour coco,

fait un click droit sur le tcd, sélectionne "Options du tableau" et décoche la case "Totaux de colonne"

isabelle


Bonjour et merci Isabelle

En fait, je souhaite ne pas afficher la ligne de totaux des colonnes (en bas
de tableau). Comment faire alors ?





Avatar
isabelle
bonjour coco,

sans vba je ne sais pas,

ActiveSheet.PivotTables("monTCD").PivotSelect "", xlDataAndLabel, True
DerniereLigne = Selection(Selection.Count).Row

isabelle


Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide


Avatar
coco74
Isabelle, j'ai bien demandé au départ un code VBA donc pas de problème !
Par contre, en utilisant ton code la variable indique 3066 alors que le
tableau se termine en ligne 218 ! !

Une idée ?
--
coco



bonjour coco,

sans vba je ne sais pas,

ActiveSheet.PivotTables("monTCD").PivotSelect "", xlDataAndLabel, True
DerniereLigne = Selection(Selection.Count).Row

isabelle


Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide





Avatar
MichDenis
Essaie ceci :

'------------------------
Sub test()
Dim LigSuiv As Long
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
End With
LigSuiv = Rg(1).Row + Rg.Rows.Count
MsgBox "La ligne suivante du TDC est : " & LigSuiv
End Sub
'------------------------


"coco74" a écrit dans le message de news:

Isabelle, j'ai bien demandé au départ un code VBA donc pas de problème !
Par contre, en utilisant ton code la variable indique 3066 alors que le
tableau se termine en ligne 218 ! !

Une idée ?
--
coco



bonjour coco,

sans vba je ne sais pas,

ActiveSheet.PivotTables("monTCD").PivotSelect "", xlDataAndLabel, True
DerniereLigne = Selection(Selection.Count).Row

isabelle


Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide





Avatar
coco74
Merci MichDenis, cela fonctionne !

Je cherche à intégrer la variable LigSuiv dans la phrase suivante :

Worksheets("Feuil1").Rows("LigSuiv:4649").EntireRow.Hidden = True

mais sans succès jusqu'à présent. Y a t'il une syntaxe particulière ?
--
coco



Essaie ceci :

'------------------------
Sub test()
Dim LigSuiv As Long
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
End With
LigSuiv = Rg(1).Row + Rg.Rows.Count
MsgBox "La ligne suivante du TDC est : " & LigSuiv
End Sub
'------------------------


"coco74" a écrit dans le message de news:

Isabelle, j'ai bien demandé au départ un code VBA donc pas de problème !
Par contre, en utilisant ton code la variable indique 3066 alors que le
tableau se termine en ligne 218 ! !

Une idée ?
--
coco



bonjour coco,

sans vba je ne sais pas,

ActiveSheet.PivotTables("monTCD").PivotSelect "", xlDataAndLabel, True
DerniereLigne = Selection(Selection.Count).Row

isabelle


Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide










Avatar
MichDenis
Worksheets("Feuil1").Rows("" & LigSuiv & ":4649").EntireRow.Hidden = True



"coco74" a écrit dans le message de news:

Merci MichDenis, cela fonctionne !

Je cherche à intégrer la variable LigSuiv dans la phrase suivante :

Worksheets("Feuil1").Rows("LigSuiv:4649").EntireRow.Hidden = True

mais sans succès jusqu'à présent. Y a t'il une syntaxe particulière ?
--
coco



Essaie ceci :

'------------------------
Sub test()
Dim LigSuiv As Long
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
End With
LigSuiv = Rg(1).Row + Rg.Rows.Count
MsgBox "La ligne suivante du TDC est : " & LigSuiv
End Sub
'------------------------


"coco74" a écrit dans le message de news:

Isabelle, j'ai bien demandé au départ un code VBA donc pas de problème !
Par contre, en utilisant ton code la variable indique 3066 alors que le
tableau se termine en ligne 218 ! !

Une idée ?
--
coco



bonjour coco,

sans vba je ne sais pas,

ActiveSheet.PivotTables("monTCD").PivotSelect "", xlDataAndLabel, True
DerniereLigne = Selection(Selection.Count).Row

isabelle


Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide










Avatar
coco74
Hum ! ! Pas évident la syntaxe ! !

Mais ca fonctionne. Merci à toi et à Isabelle.
--
coco



Worksheets("Feuil1").Rows("" & LigSuiv & ":4649").EntireRow.Hidden = True



"coco74" a écrit dans le message de news:

Merci MichDenis, cela fonctionne !

Je cherche à intégrer la variable LigSuiv dans la phrase suivante :

Worksheets("Feuil1").Rows("LigSuiv:4649").EntireRow.Hidden = True

mais sans succès jusqu'à présent. Y a t'il une syntaxe particulière ?
--
coco



Essaie ceci :

'------------------------
Sub test()
Dim LigSuiv As Long
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range(.PivotTables(1).DataBodyRange.Address)
End With
LigSuiv = Rg(1).Row + Rg.Rows.Count
MsgBox "La ligne suivante du TDC est : " & LigSuiv
End Sub
'------------------------


"coco74" a écrit dans le message de news:

Isabelle, j'ai bien demandé au départ un code VBA donc pas de problème !
Par contre, en utilisant ton code la variable indique 3066 alors que le
tableau se termine en ligne 218 ! !

Une idée ?
--
coco



bonjour coco,

sans vba je ne sais pas,

ActiveSheet.PivotTables("monTCD").PivotSelect "", xlDataAndLabel, True
DerniereLigne = Selection(Selection.Count).Row

isabelle


Bien sûr, mais que devient ta formule EQUIV.

Est-il possible de trouver le numéro de la ligne située en dessous d'un TCD
sans total des colonnes ?

Merci de ton aide