Affichage différent entre action sur colonne en VBA et action en manuel.
Résolu
Utilisateur anonyme
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans ma feuille MS Excel 2016, j'utilise le VBA pour que lors de la Sauvegarde : Je
marque la Date, je Trie et je Place le curseur en bas de colonne.
Aucun soucis... Sauf pour le bas de colonne qui ne s'affiche pas comme je veux !
Quand je fais la manipulation en manuel:
Dans ma colonne A, Je clique en A3, puis je fais Ctrl "Flèche bas" pour aller en bas de colonne.
La dernière cellule est affichée tout en bas près du bas de feuille à l'écran et c'est cool !
Dans la Macro VBA:
La dernière cellule est affichée en milieu de feuille au milieu de l'écran et c'est pas cool !
Je cherche comment en VBA je peux obtenir le même résultat "visuel" qu'en manuel.
C'est à dire : La dernière cellule affichée tout en bas près du bas de feuille en bas de l'écran.
Le fichier MaListe.xlsm est dispo sur CJoint.com mais attention, c'est un xlsm car il contient ma macro.
Si quelqu'un à la solution, même Raymond ;-)
Merci
A+
Dans ma feuille MS Excel 2016, j'utilise le VBA pour que lors de la Sauvegarde : Je
marque la Date, je Trie et je Place le curseur en bas de colonne.
Aucun soucis... Sauf pour le bas de colonne qui ne s'affiche pas comme je veux !
Quand je fais la manipulation en manuel:
Dans ma colonne A, Je clique en A3, puis je fais Ctrl "Flèche bas" pour aller en bas de colonne.
La dernière cellule est affichée tout en bas près du bas de feuille à l'écran et c'est cool !
Dans la Macro VBA:
Sheets("MonTableau").Select
Range("A3").Select
Selection.End(xlDown).Select
La dernière cellule est affichée en milieu de feuille au milieu de l'écran et c'est pas cool !
Je cherche comment en VBA je peux obtenir le même résultat "visuel" qu'en manuel.
C'est à dire : La dernière cellule affichée tout en bas près du bas de feuille en bas de l'écran.
Le fichier MaListe.xlsm est dispo sur CJoint.com mais attention, c'est un xlsm car il contient ma macro.
Si quelqu'un à la solution, même Raymond ;-)
Merci
A+
Configuration: Windows 10 / Firefox 79.
A voir également:
- Affichage différent entre action sur colonne en VBA et action en manuel.
- Action - Guide
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Action fans - Accueil - Guide arnaque
- Concurrent action - Guide
- Vous devez disposer d'une autorisation pour effectuer cette action - Guide
2 réponses
Bonjour,
« Si quelqu'un à la solution, même Raymond ;-) »
Pour autant que je sache, Raymond (que je salue), n'est pas passionné par les macros ...
essaies comme ça :
« Si quelqu'un à la solution, même Raymond ;-) »
Pour autant que je sache, Raymond (que je salue), n'est pas passionné par les macros ...
essaies comme ça :
Sub AvantEnregistement()
Dim w As Window
With Worksheets("MonTableau")
Set w = Application.Windows(.Parent.Name)
w.ScrollRow = 4 'pas de scroll
With .Range("A3").CurrentRegion
' Tri des dates "Ordre Croissant" dans la colonne A
.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
' Sélection de la dernière cellule de la colonne A sur la feuille
.Cells(.Rows.Count, 1).Select
End With
' Date & Heure en B1 sur "MonTableau"
.Range("B1") = "Sauvegardé le " & Format(Date, "dddd dd mmmm yyyy") & " à " & Format(Time, "hh:mm:ss")
' Dernière cellule en bas
w.ScrollRow = ActiveCell.Row - w.VisibleRange.Rows.Count + 2
End With
End Sub