Macro qui créer un bouton prêt à l'emplois ?

Macro qui créer un bouton prêt à l'emplois ? - VB/VBA/VBS - Programmation

Marsh Posté le 27-04-2007 à 21:03:30    

J'utilise des boutons dans ma feuille excel permettant de modifier les valeurs de certaines cellules.
Par exemple des spinbutton qui augmentent ou diminuent la valeur d'une cellule de + ou - 1
 
J'ai crée une macro qui, à chaque fois que j'ajoute un produit à ma liste (un produit par ligne), m'insère un spinbutton au bout de la ligne. Cependant, je voudrais qu'il soit prêt à l'emplois c'est à dire déjà codé avec ce code:
 

Citation :


Private Sub SpinButton1_SpinDown()
 
    If Sheets("Stock" ).Cells(9, 8).Value > 0 Then
      Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value - 1
    End If
 
End Sub
 
Private Sub SpinButton1_SpinUp()
 
    If Feuil6.TGLretrait.Value = True Then
        If Sheets("Stock" ).Cells(9, 8).Value < Sheets("Stock" ).Cells(9, 7).Value Then
          Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value + 1
        End If
    Else
        Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value + 1
    End If
 
End Sub


 
Est ce que c'est possible ?
 

Reply

Marsh Posté le 27-04-2007 à 21:03:30   

Reply

Marsh Posté le 02-05-2007 à 01:13:04    

Bien sur, c'est posssible... et il me semble que tu as déjà fait le plus gros du boulot.
 
Pour insérer un spinbutton, j'imagine que tu as mis un :
 
Private Worksheets_....()
 
...
 
activesheet.oleobjects.add("forms.spinbutton.1",left=..., _
top=...,width=...,height=...).select
 
...
 
end sub
 
Après ca, tu insères ton code :
 
Private Sub SpinButton1_SpinUp()
 
    If Feuil6.TGLretrait.Value = True Then
        If Sheets("Stock" ).Cells(9, 8).Value < Sheets("Stock" ).Cells(9, 7).Value Then
          Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value + 1
        End If
    Else
        Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value + 1
    End If
 
End Sub  
 
Et ca devrait fonctionner.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed