Microsoft 365 UserForm_Initialize

[Francky79]

Bonjour le forum,

Dans la Private Sub UserForm Initialize, je ne sais pas comment modifier la ligne Valeur = Range("A1").Value pour que la barre de jauge suive le défilement dans la colonne A.
Voir fichier joint.
Merci pour votre aide

 

[danielco]

Bonjour,

Pourquoi ne pas utiliser une progressbar ?

Daniel

 

[Dranreb]

Bonjour.
En tout cas dans la UserForm_Activate vous définissez le ScrollBar1.Max à 6, la dernière ligne le la colonne A, puis aussitôt derrière vous essayez d'y affecter une Value qui le dépasse, le numéro de ligne de la cellule active.
Qu'est ce que vous essayez de faire au juste ?
Conseil: Dans la Sub UserForm_Initialize, metttez du code à exécuter lors du chargement en mémoire de l'UserForm, tandis que dans la Sub UserForm_Activate, mettez du code à exécuter ensuite, lors de chaque Show. La programmation suggère que c'est presque le contraire que vous avez fait.

 

[Francky79]

Merci pour votre aide,

Danielco pourquoi pas, je vais chercher des exemples.

 

[Francky79]

Il y a pas moyen de modifier ce code pour le défilement ?
Que la jauge suive le défilement des cellules dans la colonne A en même temps que la ScrollBar1.

Private Sub UserForm_Initialize()
  Dim LngTbx As Integer, LngProg As Integer
  Dim Valeur As Single
  LngTbx = 216
  Me.TbxFond.Width = LngTbx
  ' Ligne à modifier pour la colonne A
  Valeur = Range("A1").Value
  LngProg = LngTbx / 100 * Valeur
  Me.TbxProgress.Width = LngProg
End Sub

 

[fanfan38]

Bonjour
Avec une mfc

A+ François

 

[Dranreb]

Essayez peut être ça :

Option Explicit
Private TDon(), VMax As Double, ParCode As Boolean
Private Sub UserForm_Activate()
   TDon = Feuil1.[A1].Resize(Feuil1.Cells(2 ^ 20, "A").End(xlUp).Row).Value
   VMax = WorksheetFunction.Max(TDon)
   L = ActiveCell.Row
   End Sub
Private Property Let L(ByVal RHS As Long)
   Dim LMax As Long
   LMax = UBound(TDon, 1)
   ScrollBar1.Min = 1
   ScrollBar1.Max = LMax
   If RHS > LMax Then RHS = LMax
   ParCode = True: ScrollBar1.Value = RHS: ParCode = False
   Afficher
   End Property
Private Property Get L() As Long
   L = ScrollBar1.Value
   End Property
Private Sub ScrollBar1_Change(): If ParCode Then Exit Sub
   Afficher
   End Sub
Private Sub Afficher()
   Me.Km = TDon(L, 1)
   Me.TbxProgress.Width = Me.TbxFond.Width * TDon(L, 1) / VMax
   End Sub

 

[Francky79]

Merci fanfan 38 pour ton aide.
Dranred merci pour ta solution, il me reste à l'intégrer dans mon projet final et là je reviendrai surement vers toi.
Bonnes fête à tous .

 

[Francky79]

Dranred, comme prévu je reviens vers toi.
Si je veux rajouter une jauge avec Me.Km2 je dois modifier TDon je pense mais je ne connais pas la signification de (L,1)

Private Sub Afficher()
Dim Chemin As String, Ligne As Integer, img As Object
    Ligne = ScrollBar1.Value
   Me.Km = TDon(L, 1)
   Me.TbxProgress.Width = Me.TbxFond.Width * TDon(L, 1) / VMax
   Me.Km2 = TDon(L, 1)
   Me.TbxProgress2.Width = Me.TbxFond2.Width * TDon(L, 1) / VMax
   Me.D = ActiveSheet.Range("A" & Ligne)
   Me.Aa = ActiveSheet.Range("B" & Ligne)
   Me.Bb = ActiveSheet.Range("C" & Ligne)
   End Sub

 

[Dranreb]

Ligne L, colonne 1.

 

[Francky79]

Colonne 1 = Colonne A
Ligne L ?

Me.Km dans colonne D
Me.Km2 dans colonne E

Merci pour ton aide

 

[Dranreb]

De TDon qui est un tableau dynamique, pas d'un Range
Pour y charger jusqu'à la colonne E donc 5 colonnes :

   TDon = Feuil1.[A1].Resize(Feuil1.Cells(2 ^ 20, "A").End(xlUp).Row, 5).Value

 

[Francky79]

Ok merci