Discussion :

[vins86]

Bonsoir tout le monde,

J'ai un grand besoin de votre aide, afin de pouvoir me dire si ce que je souhaite est possible et si OUI!!! Comment?

J'ai un formulaire qu'y me sert de ruban. Mon formulaire est non-modal, ce qui fait que l'accesseur ne peut pas être sélectionné.

Donc j'ai mis un scrollbar sur mon formulaire qu'y fonctionne. Par contre j'ai des colonnes qui peuvent être masqué et donc le scrollbar les sélectionne comme même.

Je souhaiterais savoir si il est possible de sauter les colonnes masquées et en changeant la valeur du scrollbar donc que cela active seulement les colonnes affichées.

J'ai essayé un bout de code avec une condition, mais çà ne change pas. Ca active toujours les colonnes masqué:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ScrollBar1_Change()
If Cells(1, ScrollBar1.Value).EntireRow.Hidden = True Then
Cells(1, ScrollBar1.Value + 1).Activate
Else
Cells(1, ScrollBar1.Value).Activate
End If
End Sub
 
Private Sub UserForm_Initialize()
ScrollBar1.Min = 1
ScrollBar1.Max = 10
End Sub

Cordialement,

Vincent

[vinc_bilb]

Bonsoir,

Franchement, je ne sais pas pour le scrollbar, mais vous pouvez peut-être passer par le SpeciallCells(xlCellTypeVisible), qui vous sélection dans un range que les cellules visibles ....
Très pratique et puissant dans de nombreux cas

Bonne soirée

[vins86]

Bonjour vinc_bilb ,

Merci pour ta réponse et ton aide, Mais je ne vois pas comment intégrer pour la scrollbar ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SpeciallCells(xlCellTypeVisible)

Si vous avez des solutions. Je suis preneur.

Cordialement,

Vincent.

[vinc_bilb]

Bonjour,

Et bien .... Non! Malgré quelques investigations ....
Juste je note:
- vous parlez de colonnes masquées
- Votre code traite des lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EntireRow.Hidden

[vins86]

Bonjour vinc_bilb ,

Oui, je parle bien de colonnes masquées. J'ai bien modifier pour la colonne dans mon code.

Cordialement,

Vincent.