Microsoft 365 Fonction VBA ActiveWindow.SmallScroll / ActiveWindow.ScrollColumn /

Kaytilou · 12 Avril 2020

Bonjour, je me lance dans ma première discussion. Tout d'abord Joyeuse Pâques confinée à tous en espérant que vous allez tous bien ainsi que vos proches.
Je ne suis pas une experte, mais pas tout à fait novice dans la création de code VBA. J'ai créé le code suivant, mais je n'arrive pas tout à fait à utiliser les fonctions ActiveWindow.SmallScroll / ActiveWindow.ScrollColumn.
Mon tableau fait 1000 lignes et je souhaite, dès que j'insère une nouvelle ligne (Bouton Ajouter une ligne avec le code suivant), quelque soit l'endroit ou je me trouve dans le tableau (tableau structuré avec ligne d'entête figée) pouvoir aller à la ligne ajoutée et à la première colonne, pour aller compléter la première cellule du tableau.
Voici mon code (sans doute erreur au niveau en indiquant un numéro de ligne ActiveWindow.SmallScroll Down:=18)

VB:

Sub AjouterLigne()
    ' Aller à la dernière cellule du tableau
        Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(0, 17).Select
    ' Ajouter une ligne
        SELECTION.ListObject.ListRows.Add AlwaysInsert:=False
    'Revenir colonne 1
        ActiveWindow.ScrollColumn = 1
    'Aller à la première cellule à compléter du tableau
        Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(0, 1).Select
    'Aller à la dernière ligne du tableau
        ActiveWindow.SmallScroll Down:=18
End Sub

Je retrouve un peu le meme problème dans la macro Fin du tableau pour aller à la dernière cellule du tableau avec le code suivant

Code Début du tableau

Code:

Sub FinTableau()
     'Aller à la dernière cellule du tableau
        Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(0, 17).Select
    'Aller à la dernière ligne du tableau
        ActiveWindow.SmallScroll Down:=18
    'Aller à la dernière colonne du tableau
        ActiveWindow.ScrollColumn = 17
End Sub

J’insère le fichier si besoin. Les macros se trouvent dans le module 2
Je vous remercie pour votre aide et vous souhaite une agréable journée

Hasco · 12 Avril 2020

Bonjour,

Dans le fichier joint modification de votre macro :

VB:

Sub AjouterLigne()
    With Sheets("Base de données").ListObjects("Listing")
        .ListRows.Add AlwaysInsert:=False
        Application.Goto .ListRows.Item(.ListRows.Count).Range, True ' ou false pour ne par remonter le tableau
    End With
End Sub

toute la ligne est sélectionnée avec la première cellule active.

si vous ne voulez sélectionner que la première cellule : Application.Goto .ListRows.Item(.ListRows.Count).Range(1)

Je vous laisse le soin d'explorer les possibilités d' Application.Goto et des objets .ListRows pour vous déplacer en fin de tableau.

Cordialement

Staple1600 · 12 Avril 2020

Bonjour Kaytilou (Bienvenue sur le forum)

Pour éclairer ta lanterne 😉

VB:

Sub test()
'NL= nouvelle ligne
Dim LO As ListObject, mess$
Set LO = ActiveSheet.ListObjects(1)
With LO.ListRows.Add
    mess = mess & .Range.Address & Chr(13) 'adresse NL
    mess = mess & .Range(1, 1).Address & Chr(13) ' adresse 1ère cellule NL
    mess = mess & .Range(1, 1).Row & Chr(13) 'N° Ligne NL
    mess = mess & .Range(1, LO.DataBodyRange.Columns.Count).Column 'N° colonne NL
End With
MsgBox mess
End Sub

EDITION: Houps, pas rafraîchi à temps!
Bonjour Roblochon 😉

Hasco · 12 Avril 2020

Re,

Staple1600 à dit:
EDITION: Houps, pas rafraîchi à temps!
Bonjour Roblochon 😉

Bon, parce que c'est toi*, tu ne feras que 4 tours du pâté de maisons sans ton ADD, à reculons à cloche pieds en évitant les môsieurs aux casquettes et/ou voitures bleues.
* et surtout parce que j'apprécie tes exercices

Kaytilou · 12 Avril 2020

Roblochon à dit:
Bonjour,

Dans le fichier joint modification de votre macro :

VB:

Sub AjouterLigne() With Sheets("Base de données").ListObjects("Listing") .ListRows.Add AlwaysInsert:=False Application.Goto .ListRows.Item(.ListRows.Count).Range, True ' ou false pour ne par remonter le tableau End With End Sub

toute la ligne est sélectionnée avec la première cellule active.

si vous ne voulez sélectionner que la première cellule : Application.Goto .ListRows.Item(.ListRows.Count).Range(1)

Je vous laisse le soin d'explorer les possibilités d' Application.Goto et des objets .ListRows pour vous déplacer en fin de tableau.

Cordialement

Bonjour Roblochon, je vous remercie et je vais aller étudier cela de plus près. Auriez vous aussi une astuce pour la deuxième macro Fin du tableau pour aller à la dernière cellule du tableau avec le code suivant. Je pense que j'ai un souci avec la fonction ActiveWindow.SmallScroll Down:=18

VB:

Sub FinTableau()
     'Aller à la dernière cellule du tableau
        Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(0, 17).Select
    'Aller à la dernière ligne du tableau
        ActiveWindow.SmallScroll Down:=18
    'Aller à la dernière colonne du tableau
        ActiveWindow.ScrollColumn = 17
End Sub

Merci à vous

Staple1600 · 12 Avril 2020

Bonjour à toi aussi Kaytilou

•>Kaytilou
Qu'il est doux et agréable d'être superbement ignoré par les nouveaux arrivants.... 🙄

•>Roblochon
ADD, may be ?
Parce que c'est clairement pas,•, Excel étant aquaphobe 😉

Hasco · 12 Avril 2020

Re,

Kaytilou à dit:
Bonjour Roblochon, je vous remercie et je vais aller étudier cela de plus près. Auriez vous aussi une astuce pour la deuxième macro Fin du tableau pour aller à la dernière cellule du tableau avec le code suivant. Je pense que j'ai un souci avec la fonction ActiveWindow.SmallScroll Down:=18

Il faut non seulement lire les réponses entièrement, mais le fil également....

Je vous disais :

Roblochon à dit:
Je vous laisse le soin d'explorer les possibilités d' Application.Goto et des objets .ListRows pour vous déplacer en fin de tableau.

Or visiblement vous n'avez rien tenté...

et mon ami @Staple1600 vous a fait un exercice de test qui vous sera précieux si vous daignez l'examiner.

Bonne étude

Staple1600 · 12 Avril 2020

Re

•>Roblochon
Pigé!
ADD=Attestation de Déplacement Dérogatoire
Ah le neurone confiné, c'est comme le lait de soja non réfrigéré
Cela fermente et c'est dangereux!
1) pour le sol de la cuisine
2) pour capter dans la seconde ce qu'on lit
😉

Kaytilou · 12 Avril 2020

Staple1600 à dit:
Bonjour à toi aussi Kaytilou

•>Kaytilou
Qu'il est doux et agréable d'être superbement ignoré par les nouveaux arrivants.... 🙄

•>Roblochon
ADD, may be ?
Parce que c'est clairement pas,•, Excel étant aquaphobe 😉

Bonsoir Staple1600
Désolée, je ne voulais pas être impolie et bien sur merci pour votre aide. Je teste petit à petit, donc j'ai commencé par la réponse de Roblochon avant de tester la votre
J'y vais de ce pas 🙂 merci à vous et très bonne fin de journée

Kaytilou · 12 Avril 2020

Roblochon à dit:
Re,

Il faut non seulement lire les réponses entièrement, mais le fil également....

Je vous disais :

Or visiblement vous n'avez rien tenté...

et mon ami @Staple1600 vous a fait un exercice de test qui vous sera précieux si vous daignez l'examiner.

Bonne étude

Bonsoir Roblochon, comme je vous le disais, je suis ni experte, ni novice. Je vais pas à pas et je m'en vais d'ici là explorer les possibilités d' Application.Goto et des objets .ListRows. Merci à vous

Microsoft 365 Fonction VBA ActiveWindow.SmallScroll / ActiveWindow.ScrollColumn /

Kaytilou

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Kaytilou

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Kaytilou

XLDnaute Nouveau

Kaytilou

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Fonction VBA ActiveWindow.SmallScroll / ActiveWindow.ScrollColumn /

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency