Discussion :

[ESVBA]

bonjour le forum,

explications :
sur un calendrier, je clique sur une date et la macro me positionne sur la date équivalente dans une autre feuille. Il faut maintenant ouvrir les lignes sous -jacentes. J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lign = ccDate.Row
Range("A1").Rows(lign+2).ShowDetail = True

J'obtiens :
"erreur d'exécution 1004" "Impossible de définir la propriété ShowDetail de la classe Range"

Hors la même ligne de code testée sur un petit plan fonctionne !

L'adresse de "ccDate" est correcte tout comme la valeur de "lign" et la feuille active.

Quel peut-être le problème ?

Merci.

ESVBA

[Godzestla]

Bonjour,

l'aide de Showdetail dit ceci :

Example
This example shows detail for the summary row of an outline on Sheet1. Before running this example, create a simple outline that contains a single summary row, and then collapse the outline so that only the summary row is showing. Select one of the cells in the summary row, and then run the example.

Worksheets("Sheet1").Activate
Set myRange = ActiveCell.CurrentRegion
lastRow = myRange.Rows.Count
myRange.Rows(lastRow).ShowDetail = True

Même si c'est détestable, je tenterais un SELECT avant le showdetail.

[pgz]

Bonjour.

Dans ta formule ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Rows(lign+2)

Renvoie toujours une erreur, sauf si lign = -1. Dans tous les cas cela ne sert à rien.
L'exemple fourni par Godzestla montre qu'il faut se placer sur la dernière ligne de la currentregion.
J'essaierais volontiers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
set oRng = Thisworkbook.Worksheets("NomFeuille").Range("A1")
set orng = orng.Currentregion
orng.Rows(orng.rows.count).Showdetail

Je ne suis pas sûr qu'il soit nécessaire d'activer la feuille. A voir.

Cordialement,

PGZ