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: <[email protected]>
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]
