Triboutmatthieu
Messages postés206Date d'inscriptionlundi 26 septembre 2005StatutMembreDernière intervention 9 juillet 2012
-
4 janv. 2011 à 12:45
Triboutmatthieu
Messages postés206Date d'inscriptionlundi 26 septembre 2005StatutMembreDernière intervention 9 juillet 2012
-
4 janv. 2011 à 18:24
Bonjour, je programme sur Visual Basic sous Excel, je n'arrive pas à faire un petit truc je vous explique.
Dans une feuille de mon classeur j'ai un bouton "Options" qui ouvre un UserForm avec un checkbox dedans. Je voudrais faire en sorte que si il y 1 dans la case A1 de ma feuille que le checkbox soit coché et si il y a zéro qui ne soit pas coché.
J'ai commencé mon code dans userform_load mais je n'arrive pas à faire ce que je veux faire
voici mon code
Private sub userform_load ()
if Range("A1").text = "0" then
casecoché.value = false
end if
if Range("A1").text = "1" then
casecoché.value = true
end if
end sub
j'ai essayé avec et sans les "" mais ça ne fonctionne pas, là j'ai besoin d'aide car je sèche merci d'avance
alvinemambele
Messages postés72Date d'inscriptionmardi 27 mai 2008StatutMembreDernière intervention31 mai 201315 4 janv. 2011 à 13:15
essayer ça
Private sub userform_load ()
if Range("A1").text = "0" then
NomFeuille!casecoché.value = false
end if
if Range("A1").text = "1" then
NomFeuille!casecoché.value = true
end if
end sub
Un orateur trop long est comme une horloge qui sonne les minutes!
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 4 janv. 2011 à 16:25
Salut,
je me permet une petite correction sur la syntaxe:
Private Sub UserForm_Initialize() 'dans le code de la forme évidemment !
If Range("A1").Value = 0 Then
Me.casecoché.Value = False
End If
If Range("A1").Value = 1 Then
Me.casecoché.Value = True
End If
End Sub
Triboutmatthieu
Messages postés206Date d'inscriptionlundi 26 septembre 2005StatutMembreDernière intervention 9 juillet 2012 4 janv. 2011 à 18:24
oui il s'agit bien de mettre UserForm_Initialize mais pas besoin de mettre le nom de la feuille si elle est déjà active et pas besoin de mettre "Me." j'ai réussi mais je n'ai pas retenu le code demain je vous le met ici ça peut servir à quelqu'un d'autre