Signaler

Positionnement sur une ligne dans Excel ne se fait pas [Résolu]

Posez votre question Papyx 280Messages postés dimanche 16 septembre 2007Date d'inscription 19 juillet 2017 Dernière intervention - Dernière réponse le 19 juin 2017 à 20:03 par Papyx
Bonjour,
j'ai une application comportant plusieurs onglets.
Je me positionne sur une ligne en haut de la fenêtre sans problème;
sauf pour une feuille. Voici la procédure de cette feuille :

Private Sub Worksheet_Activate()
Dim l%: l = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 7
Cells(l, 1).Select
ActiveWindow.ScrollRow = l
End Sub

La feuille s'affiche à partir du début; alors que je voulais me positionner vers la fin
(environ 550 lignes).
En utilisant le pas-à-pas du debug, l'instruction s' exécute correctement sur la ligne, mais après sortie du debug, on revient au début de la liste.



Utile
+1
plus moins
Bonjour Papyx, bonjour le forum,

Chez moi ça fonctionne correctement !... N'aurais-tu pas aussi une procédure SelectionChange dans cet onglet qui vienne interférer ?...
Cette réponse vous a-t-elle aidé ?  
Donnez votre avis
Utile
+1
plus moins
@Papyx

Bonjour, pour ton 1er message, essaye ce code VBA :


Private Sub Worksheet_Activate()
    Dim l%: l = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 7
    Application.Goto Cells(l, 1), True
End Sub

Cette réponse vous a-t-elle aidé ?  
Papyx 280Messages postés dimanche 16 septembre 2007Date d'inscription 19 juillet 2017 Dernière intervention - 19 juin 2017 à 19:53
bonsoir lucien
le résultat est le même
Répondre
Donnez votre avis
Utile
+0
plus moins
bonjour TT
en général je n'ai pas de problème avec cela.
Dans ma feuille, il n'y-a que 2 procédures; la 2éme est :
Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Column
Case 1
If target.Value <> "" And fourniture_existe(target.Value) Then _
MsgBox "Référence existe", vbCritical, target.Value: _
target.Value = ""
Case 2
Call Module1.prep_ligne_fournitures(target)
Case 7
If InStr("pcm|g|m", target) = 0 Then _
MsgBox "Valeur invalide dans cette colonne", vbCritical, "colonne G"
Case 4, 5
Call tableau.recalcul(target)
End Select
End Sub

mais elle s’ exécute que si on modifie la feuille
ThauTheme 4338Messages postés mardi 21 octobre 2014Date d'inscription 6 septembre 2017 Dernière intervention - 19 juin 2017 à 13:37
Re,

Oui en effet, celle-ci n'agira pas. Alors je ne comprends pas car chez moi ça fonctionne bien.
Rien non plus dans le composant Thisworkbook dans la procédure Workbook_SheetSelectionChange ?
Répondre
Papyx 280Messages postés dimanche 16 septembre 2007Date d'inscription 19 juillet 2017 Dernière intervention - 19 juin 2017 à 20:03
t'as trouvé!
c'est là qu' était le problème
Merci pour ton aide
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !