Merci à tous
maintenant j'ai mis des boutons sur une feuille de calcul; comment les identifier sur cette feuille car je voudrai modifier leur titre..
Par exemple : j'ai un bouton nommé 'Bouton1' qui a comme titre "0"
je voudrai en appuyant dessus , déclencher bien sur une macro, mais aussi mettre son titre à "1".. et inversement
Beaucoup de personnes m'on donné des exemples à partir d'une form rajoutée, mais quid pour des boutons présents sur une feuille de calcul ?
Merci
Josianne
----- Original Message ----- From: "Francois Gatto (xhydrogene)" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Wednesday, March 09, 2005 11:01 PM
Subject: Re: [prog] Bonjour nouvelle sur la liste- cas des checkboxes
Bonsoir Josianne,
Josianne SAUVAGE a écrit :Précision,
pour l'instant j'ai mis ces checkboxes directement sur ma feuille calc
JosianneMerci à Pascal et Didier pour leur tutos sur les boutons en calc
J'ai donc réussi à utiliser les boutons..
Je veux maintenant utiliser un série de 8 checkboxes, en vue de simuler la passage de 0 à 1 de 8 bits
= 1 octet ;o)
1. question : je ne sais pas si on peut indiquer le même nom à tous les checkboxes avec un indice ?
2. lorsque je coche un checkbox comment récupérer la valeur du checkbox : coché ou décoché
3.. (j'insiste..)
Quelq'un(e) a-t-il (elle) fait une ou plusieurs fonctions de conversion Binaire, Hexa ; binaire décimal et inversement..
Je te propose ci-après un petit peu de code qui j'espère pourra te rendre quelques services.
Pouur cette dernière question c'est moins urgent car je dois les avoir dans un prog en VB..
Merci pour votre aide
Josianne
François GATTO
'----------------------------------------------
'- Exemple de conversion d'un nombre décimal -
'- en Hexa, Octal et Binaire -
'- François Gatto [EMAIL PROTECTED] -
'----------------------------------------------
Sub Main
nd = inputbox("Entrez un nbre décimal :")
nh = hex(nd)
no = oct(nd)
hd = val("&H" & nh)
od = val("&O" & no)
ho = oct(val("&H" & nh))
oh = hex(val("&O" & no))
dec = nd
dbin = dec2bin(dec)
sBin = dec
bdec = bin2dec(sBin)
msg = "le décimal : " & nd & " en hexa = " & nh & chr(13)
msg = msg & "le décimal : " & nd & " en octal = " & no & chr(13)
msg = msg & "le décimal : " & nd & " en binaire = " & dec & chr(13) msg = msg & "le binaire : " & dec & " en décimal = " & sBin & chr(13) msg = msg & "l'hexadécimal : " & nh & " en décimal = " & hd & chr(13)
msg = msg & "l'octal : " & no & " en décimal = " & od & chr(13)
msg = msg & "l'hexadécimal : " & nh & " en octal = " & ho & chr(13) msg = msg & "l'octal : " & no & " en hexa = " & oh
msgbox(msg,64,"=^..^= Conversion DEC<->HEXA<->OCT<->BIN")
End Sub
Function dec2bin(dec As Long) As String
Dim nl As Long
Dim sBin as String
Do While dec > 0
nl = int(dec/2)
x = dec - (nl * 2)
sBin =x & sBin
dec = nl
Loop
dec = sBin
End Function
Function bin2dec(sBin As String) As Long
l = len(sBin)
for i= 1 to l
z = l-i+1
x = val(mid(sBin,z,1))
if x = 1 then x = 2^(i-1)
bindec = bindec + x
next i
sBin = bindec
End Function
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
