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......

 

[Paritec]

Re : Double bouton + et -

bonsoir nikkyb,
je pense que tu n'as pas eu beaucoup de réponse, car à mon avis personne ne comprend ce que tu veux!!!
Tu mets un code pour remplir une listview et tu parles de bouton pour incrémenter une cellule dans les deux sens ???????????? donc incrémenter et décrémenter je pense ??????????
mais ou quoi qui comment???
pas clair ton affaire
a+
Papou 🙂

 

[nikkyb]

Re : Double bouton + et -

Salut merci de ta réponse

En effet c'est un peu confu lol
Je reprend :

j'ai un userform avec une listview
la listview se rempli avec la feuil "récapitulatif"
Cette feuil se divise en bloc de 32 lignes et 17 colonnes les un en dessous des autres.

Ce que j'aimerais c'est
1 : quand un bloc est rempli il créé un nouveau bloc avec entete (comme dans le fichier joint)
2:un bouton permettant d'incrémenter et décrémenter (donc d'allé d'un bloc à l'autre)



Merci beaucoup du coup de main!

 

[Paritec]

Re : Double bouton + et -

Rebonsoir nikkyb
ton fichier en retour
a+
papou 🙂

 

[kjin]

Re : Double bouton + et -

Bonsoir,
Avec un spinbutton à adapter suivant le nb de blocs
Edit : bling ! désolé Papou 🙂
A+
kjin

 

[nikkyb]

Re : Double bouton + et -

Bonsoir et merci pour votre aide

j'ai annulé l'écart de ligne donc

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

Il faut supprimer le +4 ci dessus (j'imagine) mais quand je l'enléve ca me fait une erreur ici :

T = .Range("A" & Pl & ":Q" & Dl).Value

Sait tu de quelle maniere je doit contourner l'erreur ?

Merci

 

[Paritec]

Re : Double bouton + et -

Bonjour Kjin nikkyb,
tu mets désolé, moi j'aime ta solution Kjin, rien à voir avec le bricolage qui était dans le fichier d'origine, je savais qu'il fallait encore réduire mais j'ai pas trop cherché, en tout cas bravo, et merci pour cette démo.
a+
papou 🙂

 

[Paritec]

Re : Double bouton + et -

Re bonjour Kjin nikkyb,
en l'absence de Kjin je te répond
Alors comment contourner le problème ?
Je pense en réfléchissant un peu
Lmin = (Spinbutton1*33) -33 + 4 = combien?? 4
si tu retires le 4 c'est égal à combien ?
Lmin doit au moins avoir la valeur 1 autrement pas bon
a+
Papou 🙂

 

[nikkyb]

Re : Double bouton + et -

J'ai essayé le probleme ne vient pas de la car ce +4 règle juste le départ et mon départ est resté identique c'est juste par le suite il doit quand on incrémente allé de 30 lignes en 30 lignes et non plus d'en sauter 4.

j'aimerais aussi pouvoir imprimer "en format paysage"l'userform (qui prend la page complète).

Merci par avance de votre aide!

 

[Paritec]

Re : Double bouton + et -

Bonjour nikkyb,
car moi je dis bonjour!!!
tu dis le problème ne vient pas de là ??
le premier remplissage prend de la ligne 4 à la ligne 4 + 28 ?
est-ce déjà cela que tu souhaites?
le second remplissage doit faire quoi? de quelle ligne à quelle ligne?
a+
papou 🙂

 

[nikkyb]

Re : Double bouton + et -

Salut,

Le début est bon car il par de la 4eme ligne enfin c'est bon

Ensuite avec le spin button il faudrai incrementer de 30 ligne en 30 ligne en descendant dans la feuil.

Si tu a telechargé le fichier, tu t'apercevra que j'avais inseré des en tete entre ces 30 lignes, finalement j'ai enlevé ces entete.

Donc : démarrage à la ligne 4 :OK
Puis incrémentation toutes les 30 lignes

Puis impression de l'userform en paysage en prenant compte de la listview

Jespere etres comprehensible lol
Merci beaucoup du temps passe 🙂

 

[Paritec]

Re : Double bouton + et -

Re bonjour nikkyb,
bon tu n'as pas répondu à la question, mais on va recommencer
le premier remplissage c'est de la ligne 4 à la 33 oui ? non ? peut-être ?
ensuite tu veux de la ligne 34 à la 63 oui ? non? peut-être?
ensuite de la ligne 64 à la ligne 93 oui ? non ? peut-être?
quand tu auras répondu je te ferai la modif
a+
papou 🙂

 

[nikkyb]

Re : Double bouton + et -

Re bonjour,

le premier remplissage c'est de la ligne 4 à la 33 OUI
ensuite tu veux de la ligne 34 à la 63 NON
34 à 66

ensuite de la ligne 64 à la ligne 93 NON
67 à 99

ETC......................

Soit des series de 33 lignes à chaque fois

Le but etant apres d'imprimer l'userform avec la listview afin d'avoir un récapitulatif

Merci beaucoup 😀

 

[Paritec]

Re : Double bouton + et -

Re bonjour
alors de 4 à 33 il n'y a pas 33 lignes mais bon
J'ai répondu exactement à ta demande de la 4 à 33 puis 34 à 66 puis 67 à 99
voilà
bonne journée
Papou 🙂

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

 

[kjin]

Re : Double bouton + et -

Bonjour,
30 ou 33 lignes, va falloir se décider parce que
(33 - 4) + 1, je ne sais pas chez toi mais chez moi ça ne fera jamais 33
(66 - 4) + 1, je ne sais pas chez toi mais chez moi ça ne fera jamais 30
Alors à toi de choisir, ou bien dis nous simplement que les blocs peuvent avoir un nb de lignes variables !
A+
kjin