Boucle de Spinbutton

[bixente13]

Bonjour,


Débutant en excel et surtout en VBa, j'insère des spinbutton en controle active x selon le code suivant dans un classeur:

Private Sub SpinButton10_SpinUp()


Rows("40:40").Insert Shift:=xlDown



End Sub

Private Sub Spinbutton10_SpinDown()

Rows("40:40").Delete Shift:=xlUp

End Sub

ce qui me permet d'insérer des lignes ou de les enlever.

J'aimerais pouvoir en rajouter beaucoup, faire une sorte de boucle en fait.

Merci d'avance pour votre aide.

 

[2passage]

Re : Boucle de Spinbutton

Bonjour,

Pas besoin de boucle : il suffit de changer le "40:40". Un "40:50" insèrera 10 lignes à partir de la 40.

++

 

[bixente13]

Re : Boucle de Spinbutton

Bonjour,

Merci pour votre réponse.Cependant, je pense que je me suis mal exprimé.

J'aimerais pouvoir rajouter un spinbutton à chaque ligne, et pouvoir à chaque fois insérer ou enlever des lignes entre les spinbutton en cliquant dessus...

merci d'avance

 

[bixente13]

Re : Boucle de Spinbutton

voici un fichier qui permet de voir ce que j'aimerais faire.Les deux spinbuttons permettent d'insérer ou de supprimer des lignes.j'aimerais faire une boucle pour insérer autant de spinbutton que possible.

 

[job75]

Re : Boucle de Spinbutton

Bonjour,

Sous Excel 2003 pas pu ouvrir le fichier, mais :

J'aimerais pouvoir rajouter un spinbutton à chaque ligne

C'est probablement ce qu'on appelle une USINE A GAZ.

A+

 

[bixente13]

Re : Boucle de Spinbutton

voici le fichier 2003

 

[job75]

Re : Boucle de Spinbutton

Re,

Puisque vous aimez les SpinButtons, vous pouvez en créer autant que vous voulez avec un code de ce genre :

Sub AjouteSpinButton()
Dim i As Integer
Application.ScreenUpdating = False
ActiveSheet.Shapes("SpinButton1").Copy
For i = 13 To 1000 Step 3
  Cells(i, 1).Select
  ActiveSheet.Paste
Next
Cells(1, 1).Select
End Sub

Edit : j'ai sorti ActiveSheet.Shapes("SpinButton1").Copy de la boucle.

Mais ensuite, comme il s'agit de boutons ActiveX, il faut créer les codes des 2 macros pour chaque bouton.

C'est très possible (il y a des discussions sur le forum sur la création de code par macro), mais les usines à gaz me pompent l'air.

A+

 

[bixente13]

Re : Boucle de Spinbutton

merci pour votre aide.

Pouvoir écrire un seul code pour tous les boutons étant mon objectif ultime, je vais me renseigner.

 

[2passage]

Re : Boucle de Spinbutton

Bonjour Job75, re, le fil

Je partage tout à fait cet avis sur les usines à gaz : Il est plus compliqué de prendre sa souris et viser un bouton que de d'insérer ([Alt] + i puis L) / supprimer ([shift] + [espace], puis [CTRL] + [-]) en raccourci clavier

La solution que j'utiliserais dans un tel cas c'est de mettre un bouton en entête de colonne (volet figé) avec un bouton pour ajouter/supprimer à partir de la cellule active.

Pour job75 : fichier pour la prise en charge du format 2007 dans 2003 :


++

 

[job75]

Re : Boucle de Spinbutton

Re,

Pour job75 : fichier pour la prise en charge du format 2007 dans 2003

Merci 2passage, je connais, mais je ne veux pas polluer mon ordi (usine à gaz) 🙂

A+

 

[bixente13]

Re : Boucle de Spinbutton

je n'avais pas pensé à une telle solution en effet 2passage!merci!

et désolé d'avoir abordé un sujet tabou semble-t-il...


bonne journée

 

[job75]

Re : Boucle de Spinbutton

Re,

Pouvoir écrire un seul code pour tous les boutons étant mon objectif ultime, je vais me renseigner.

Pas possible avec des boutons ActiveX.

Et avec les boutons "Formulaires" on peut affecter une macro, mais une seule, pas deux.

A+

 

[jpdor9]

Bonjour,

je suis nouveau sur ce forum !! J'ai une question pour vous. J'ai besoin de savoir comment programmer un compteur qui va avec un spinbutton. J'ai une liste de biens que je parcours avec un spinbutton. en cliquant sur les flèches, la description du biens s'affichent et mon compteur commence. Mais, quand j'ouvre l'application, pourquoi le compteur commence à la fin. J'ai 210 biens, donc le compteur commence par la fin. Il faut donc défiler vers le bas. Comment partir le compteur à 1 ??
Merci

Jp