Modifier Dynamiquement la Propriété valeur maxi d'un control scrollbar

[Zdz16]

Bonjour à tous

Dans une feuille d'un classeur, j'importe des données à partir d'un fichier texte. Cette feuille contient un control ScrollBar (Nommé ScrBar) dont je voudrai modifier dynamiquement la propriété 'Valeur Maxi" pour y mettre le nombre d'enregistrementd que je viens d'importer.

Info, l'import est réaliser via VBA

Est-cela est possible ?

Merci d'avance pour votre aide.
Cordialement

 

[Paf]

Re : Modifier Dynamiquement la Propriété valeur maxi d'un control scrollbar

bonjour,

à l'issue de l'import, dans le code VBA, déterminer le nombre de ligne de la feuille et affecter ce nombre à la propriété Max de la scrollbar

quelque chose du genre:
DerL1 = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
ScrollBar1.Max = DerL1


A+

 

[Zdz16]

Re : Modifier Dynamiquement la Propriété valeur maxi d'un control scrollbar

Super Paf,

Merci de l'info.

Cordialement

 

[Zdz16]

Re :[Resolu] Modifier Dynamiquement la Propriété valeur maxi d'un control scrollbar

Bonjour;

Voici la solution que j'ai adopté.
Dans l'évènement Change de la feuille j'ai utilisé le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bar As ScrollBar
   
    For Each Bar In Me.ScrollBars
        Select Case Bar.Name
            Case "scbCalGph"
                Bar.Max = Me.Range("AG2").Value
        End Select
    Next Bar
End Sub

Noter que j'ai nommé le control scrollbarr 'ScbCalGph'.
J'ai utilisé le Select Case, en préparation à d'autres Scrollbar.

Cordialement