Macro qui créer un bouton prêt à l'emplois ? - VB/VBA/VBS - Programmation
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.
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:
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 ?