XL 2019 [Résolu] VBA - UserForm + SpinButton --> ignorer les lignes masquées

[Fredox]

Bonjour à tous,

Tout est dans le titre: Je cherche à ignorer l'affichage dans mon UserForm des lignes maquées.

Je pense déja que ma variable z (ActiveCell au départ) pose problème puisqu'elle n'est pas déclarée pour pour le module complet.
S'agissant d'un Private Sub je n'y arrive pas.

Ensuite je pense que ce code devrait aider:

While Rows(z + SpinButton1).Hidden = True
        z = z + 1
        Wend

Un petit coup de main svp, ç'est plus simple à dire qu'a faire ?

Merci

 

[Staple1600]

Bonsoir

Tout est dans le titre: Je cherche à ignorer l'affichage dans mon UserForm des lignes maquées.

La nature d'Excel est d'être un tableur pas un proxénète

 

[Staple1600]

Re

Pour la question (si j'ai bien compris)
En mettant au préalable, la propriété Min du SpinButton sur 5
Voici ma proposition

Private Sub UserForm_Initialize()
Dim i&:         z = SpinButton1
For i = 1 To 4: Me.Controls("TextBox" & i) = Sheets(1).Cells(z, i): Next
Me.Label2 = z
End Sub

 

[Fredox]

Bonjour Staple1600,

Merci de ta réponse.
J'ai remplacer ma macro "UserForm_Initialize" par ton code, cela ne correspond pas mon besoin.
Je veux afficher mes contenus du tableau dans le UserForm, mais si des lignes sont filtrées (masquées) qu'elles soient ignorées dans le UserForm, on passe à la suivante.

J'ai modifier le code du UserForm en ce sens avec un bloucle maison, cela fonctionne.
En revanche s'il passe bien les lignes maquées, il faut 2 clics lors de la suivante pour continuer à défiler.

Bizarre ?

 

[job75]

Bonjour Fredox, JM, le forum,

Voyez le fichier joint et le code de l'UserForm :

Dim sens%, lig& 'mémorise les variables

Private Sub SpinButton1_SpinUp()
sens = 1
Change
End Sub

Private Sub SpinButton1_SpinDown()
sens = -1
Change
End Sub

Sub Change()
Dim i&, col%
Label1 = ""
With SpinButton1
    .Min = 6
    .Max = Cells(Rows.Count, 1).End(xlUp).Row
    For i = .Value To IIf(sens = 1, .Max, .Min) Step sens
        If Not Rows(i).Hidden Then lig = i: Exit For
    Next i
    .Value = lig
End With
For col = 1 To 4
    Me("TextBox" & col) = Cells(lig, col)
Next col
Label1 = "Ligne " & lig
End Sub

Private Sub CommandButton1_Click()
If lig < 6 Then Exit Sub
Dim col%
For col = 1 To 4
    Cells(lig, col) = Me("TextBox" & col)
Next
[A1] = lig
Unload Me
End Sub

Bon week-end.

 

[Fredox]

Bonjour Job75,

Cela fonctionne parfaitement, merci.

Juste un petit point: J'avais par facilité mis le double clic qui active le UserForm sur une celulle précise, en fait dans mon classeur final cela ce passe sur la plage définie (d’où l'utilisation d'ActiveCell)

Je ne vois pas comment déclarer ma variable ActiveCell sans modifier les autres lors de la modification du SpinButton


Merci

 

[job75]

Si vous voulez travailler sur la ligne sélectionnée le SpinButton ne sert plus à rien.

Rappelez-vous aussi qu'en VBA il est inutile, voire néfaste, de sélectionner.

 

[Fredox]

Je corrige, pardon: Ce n'est pas ActiveCell que je veux à l'ouverture du UserForm, mais ActiveCell.Row
--> pour définir la ligne active

Pardon

 

[job75]

Si vous voulez travailler sur la ligne sélectionnée le SpinButton ne sert plus à rien.

Rappelez-vous aussi qu'en VBA il est inutile, voire néfaste, de sélectionner.

 

[Fredox]

Je (re)mets mon fichier, j'ai réussi à faire ce que je voulais grâce à ta participation job75 (notamment SpinButtonUp & down).

En faisant up cela est parfait, en faisant down ça bloque a cause de la dernière ligne masquée.
Si vous avez une idée ?

Merci beaucoup en tout cas

 

[Fredox]

Voila mon fichier fonctionnel, si ça peut aider quelqu'un.
J'ai réussi a faire (avec de l'aide) ce que je voulais à 100%

Je ne m'attarde pas sur comment incrémenter les valeurs dans le UserForm ou le tableau ensuite.


Merci encore

 

[job75]

Fichier (2) où j'ai simplement ajouté cette macro :

Private Sub UserForm_Initialize()
SpinButton1.Max = ActiveCell.Row
SpinButton1 = ActiveCell.Row
sens = 1
Change
End Sub

Mais comme déjà dit je ne vois pas vraiment l'intérêt du SpinButton.

 

[Fredox]

Tu as entièrement raison, j'ai remplacer le SpinButton par 2 boutons simple, cela permet du coup de descendre sous la valeur 0.

Merci

 

[job75]

Bah les boutons sont aussi inutiles que le SpinButton !

 

[Fredox]

Bha, pour condenser mon tableau (meilleur lecture et visualisation, puis modification), les boutons pour aller à la ligne suivante ou précédente sont biens?

Tu ferais comment sinon ?