figer les volets

ChTi160

XLDnaute Barbatruc

• 18 Décembre 2005

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 18 Décembre 2005

• #3

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

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 18 Décembre 2005

• #4

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 18 Décembre 2005

• #5

Salut Charly2

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

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 18 Décembre 2005

• #6

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

 

Vote positif 0 Vote négatif