Modérateur: Vilains modOOs
jeanmimi a écrit:Bonjour,
Si je comprends bien, dans ton idée, si j'appuie sur un bouton qui s'appelle Harengs à l’huile je me retrouve sur une autre feuille où je retrouve mon hareng à l'huile avec son prix et il me reste à entrer la quantité pour la table 32 ?
Private Sub Worksheet_Activate()
CommandButton1.Caption = Sheets("Données").Cells(2, 1)
CommandButton2.Caption = Sheets("Données").Cells(3, 1)
End Sub
Sub NomBouton()
Dim oDoc as Object, mesFeuilles as Object, maFeuilleDonnees as Object, maFeuilleCaisse as Object
Dim oForm as Object
oDoc = thisComponent
mesFeuilles = oDoc.Sheets
maFeuilleDonnees = mesFeuilles.getByName("Donnees")
maFeuilleCaisse = mesFeuilles.getByName("Caisse")
oForm = maFeuilleCaisse.DrawPage.Forms.getByName("Formulaire")
oForm.getByName("Bouton1").Label = maFeuilleDonnees.getCellRangeByName("A1").String
oForm.getByName("Bouton2").Label = maFeuilleDonnees.getCellRangeByName("A2").String
End Sub
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Nr"
args6(0).Value = 2
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args6())
Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 2 invité(s)