Déterminer le max d'une scrollbar avec xldown

[Espérance]

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]

 

[ERIC S]

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+

 

[AV]

Ave,

Ca pourrait ressembler à ça :

ESSAI.ScrollBar1.Max = [demo!A65536].End(3).Row

AV [aaa]

 

[Espérance]

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?

 

[ERIC S]

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+

 

[CBernardT]

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]

 

[Espérance]

Merci beaucoup Bernard, c'est exactement ce que je voulais faire

Merci aussi à toi Eric pour ton aide

Me reste plus à l'incorporer dans mon prgm

Merci encore

ciao

 

[ERIC S]

re

2 remarques

pourquoi mettre le scollbar de 1 à x si après on fait systématiquement +4 ?

Bernard, ton scroll s'arrête à dupont23 et non dupont24

A+

Message édité par: ERIC S, à: 19/05/2006 11:14

 

[CBernardT]

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]