Double bouton + et -

[nikkyb]

Bonjour,

Dans un USF je vais chercher les donnée d'une feuil"récapitulatif" celle ci va dans un listview

J'aimerais par un double bouton pouvoir de la maniere suivante :

Private Sub CommandButton1_Click()
  Dim cel1 As Range
ListViewrecap.ListItems.Clear

    For Each cel1 In rgrecap2
             

        With ListViewrecap
       .ListItems.Add , , cel1
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 1)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 2)
            
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 3)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 4)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 5), "# ##0.00")
            
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 6)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel1.Offset(0, 7)
            .ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 8), "dd/mm/yy")
            
            .ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 9), "dd/mm/yy")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 10), "# ##0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 11), "# ##0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 12), "# ##0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 13), "# ##0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 14), "# ##0.00")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 15), "# ##0.00")

        End With
        Label1 = "Vous voici sur la deuxième page !"
       
    Next cel1
End Sub

canger de cellule la par exemple je suis sur la deuxieme partit (rgrecap2)

Private Sub UserForm_Initialize()
Set rgrecap = Feuil14.Range("A4", Feuil14.Range("A34").End(xlUp))
Set rgrecap2 = Feuil14.Range("A37", Feuil14.Range("A67").End(xlUp))
Set rgrecap3 = Feuil14.Range("A70", Feuil14.Range("A100").End(xlUp))
  INI
End Sub

Je cherche à faire un bouton(double qui increment d'un coté et de l'autre)
A lors actuel, j'ai mis 2 bouton cote à cote et du coup, je peut prendre que 2 choix

J'espère que vous comprendrais ma question......

 

[nikkyb]

Re : Double bouton + et -

Super merci beaucoup pour ta patience.

En fait à la base c'est 33, actuelement la premiere est moins grande mais c'est pas grave ...

Par contre est il possible lui dire qu'il continu à descendre de la meme maniere a chaque que j'incremente(la il bloque à la 3eme).
Y a t il possibilité de lui faire faire cela à l'infinit ?

Merci😉

 

[Paritec]

Re : Double bouton + et -

Bonjour Kjin,
oui je suis d'accord avec toi c'est pour cela que je lui ai demandé ce qu'il voulait et bien que pas logique, je lui ai fait ce qu'il demandait, exactement.
nikkyb pour l'incrémentation au delà de 3 oui il faut donner une valeur maxi au Spînbutton1 ou retirer sa valeur max et tu pourras avoir des multiples comme maintenant
a+
papou 🙂

 

[nikkyb]

Re : Double bouton + et -

Re

Peut tu me dire quelle morceau de code je doit modifier.....

Merci A bientot

 

[Paritec]

Re : Double bouton + et -

re bonjour,
pas le code il faut aller dans les propriétés de Spinbutton et changer la valeur max actuellement elle est de 3 tu la passes à 1000 et là tu auras 1000 pages possible pour aller dans les propriétés tu sais click droit sur le spinbutton
a+
Papou 🙂

 

[Paritec]

Re : Double bouton + et -

Re bonjour nikkyb Kjin,
par contre si tu veux avoir un nombre de ligne de 33 tout le long
change comme ci-dessous
a+
papou 🙂

Private Sub SpinButton1_Change()
    Dim Lmin As Long, Lmax As Long
    If SpinButton1 = 1 Then Lmin = 4: Lmax = 36: GoTo suite
    If SpinButton1 > 1 Then Lmin = ((SpinButton1 - 1) * 33) + 4
    Lmax = Lmin + 32
suite:
    IniLvw Lmin, Lmax
End Sub

 

[Paritec]

Re : Double bouton + et -

Re bonjour nikkyb Kjin,
si tu reviens a vouloir des nombres de lignes constants c'est la formule de kjin qui est la bonne
tu mets ci-dessous
a+
papou 🙂

Private Sub SpinButton1_Change()
    Dim Lmin As Long, Lmax As Long
    Lmin = ((SpinButton1 - 1) * 33) + 4
    Lmax = Lmin + 32
    IniLvw Lmin, Lmax
End Sub

 

[nikkyb]

Re : Double bouton + et -

Comme à chaque fois, je trouve mon bonheur 🙂

Merci à tout les deux!

 

[kjin]

Re : Double bouton + et -

Re,
Paritec : ça va, pas trop de boutons ? 😀
nikkyb : l'infini, c'est grand, très grand...et excel ne compte que 65000 lignes et des poussières, enfin chez moi
A+
kjin