Déterminer le max d'une scrollbar avec xldown

  • Initiateur de la discussion Initiateur de la discussion Espérance
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Espérance

XLDnaute Nouveau
bonjour tout le monde,

Juste une petite question sous VBA avec Excel,

Je voudrai déterminer la valeur maximale d'une scrollbar selon le nombre de cellules remplies dans la colonne A.

J'ai pensé à
Scrollbar1.max = range('A').Address & ':' & range('A').end(xldown).address

Mais çà ne marche pas (c'est normale car ce code ne renvoie pas à un chiffre...)

Je suis ouverte à toutes idées,

merci d'avance

Bon, j'espère que je serai plus performante que la dernière fois dans l'envoi de mon fichier... lol

[file name=Demo_20060519090314.zip size=12226]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Demo_20060519090314.zip[/file]
 

Pièces jointes

Bonjour

a tester

range('A1').end(xldown).row
(détecte jusqu'à 1ère case vide de la colonne, soit le premier trou dans liste)
ou

range('A65536').end(xlup).row
(détecte dernière case remplie de la colonne, même si trou dans liste)


A+
 
Bonjour Eric,

Je pense que ton code range('A5').end(xldown).row devrait fonctionner,

le petit hic, c'est que je n'arrive pas à renseigner les propriétés de cette scrollbar via VBA (dès que je supprime les propriétés de celle-ci, excel me met 0 et prend cette valeur par défaut sans tenir compte de mon code...)

Connais-tu l'astuce?
 
re

a tester

Private Sub UserForm_initialize()
ScrollBar1.Min = 5
ScrollBar1.Max = Sheets('demo').Range('A5').End(xlDown).Row
End Sub
_________________________________

Private Sub ScrollBar1_Change()

Dim Ligne As Single

Ligne = ScrollBar1.Value
'renseigner les textbox selon la scrollbar1
TextBox1.Value = Range('A' & Ligne).Value
TextBox2.Value = Range('B' & Ligne).Value
TextBox3.Value = Range('C' & Ligne).Value
TextBox4.Value = Format(Range('D' & Ligne), 'dd/mm/yy')

A+
 
Bonjour Espérance, Eric S et AV,

J’ai modifié quelques éléments du fichier, regardes si cela te satisfait. La position de la Scrollbar suit les données de la base.

Cordialement

Bernard [file name=ScrollbarV1.zip size=14318]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ScrollbarV1.zip[/file]
 

Pièces jointes

Re,

Bien vu Eric S ! Pourquoi faire compliqué quand on peut faire simple :whistle:

Correction des macros dans le fichier joint.

Cordialement

Bernard [file name=ScrollbarV1_20060519123848.zip size=14515]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ScrollbarV1_20060519123848.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour