figer les volets

[philippe]

bonjour

dans ma feuil1, j'ai figé les volets à la ligne 18.
J'aimerais qu'à l'ouverture de cette feuille, n'apparaissent que les deux dernières lignes non vides de ma base de donnée ?

merci par avance pour les idées que vous pourrez me donner

A bientôt de vous lire
et bon Dimanche (gris chez nous!)
Philippe

 

[ChTi160]

Salut Philipppe
voilà le texte mis dans la procèdure evénementielle de la feuil1 (a Adapter)

Private Sub Worksheet_Activate()
Dim Derlgn As Integer
Application.ScreenUpdating = False
Derlgn = Range('A65536').End(xlUp).Row'détecte la derniere ligne d la colonne A
ActiveWindow.ScrollRow = Derlgn - 1
Application.ScreenUpdating = True
End Sub

bonne Journée

Message édité par: Chti160, à: 18/12/2005 14:37

 

[philippe]

Bonjour ChTi160

je te remercie pour ta solution. Mais j'ai apparement un pb de syntaxe à la ligne de code:

ActiveWindow.ScrollRow&n bsp;= Derlgn - 1

Philippe

 

[Charly2]

Bonjour Philippe et Jean-Marie,

Dans la balise Code, il y a parfois des caractères parasites et ce qu'a écrit Jean-Marie est :

ActiveWindow.ScrollRow = Derlgn - 1

Amicalement
Charly

 

[ChTi160]

Salut Charly2

Merci pour le suivi et le service après Post lol

 

[philippe]

merci à vous deux et désolé de vous répondre tardivement, mais je partage mon temps entre le PC et la déco de noël
En tout cas le code marche impec

A+
Philippe