1 réponse
Salut
essaie avec un truc du genre :
Private Sub OptionButton1_Click()
Set newxl = New Excel.Application
With newxl
.Workbooks.Open ("C:\mes documents\Nouveau Feuille de calcul Microsoft Excel.xls")
.ActiveWorkbook.ActiveSheet.CheckBoxes(1).Value = xlOn
.ActiveWorkbook.Close True
.Quit
End With
Set newxl = Nothing
End Sub
;)
essaie avec un truc du genre :
Private Sub OptionButton1_Click()
Set newxl = New Excel.Application
With newxl
.Workbooks.Open ("C:\mes documents\Nouveau Feuille de calcul Microsoft Excel.xls")
.ActiveWorkbook.ActiveSheet.CheckBoxes(1).Value = xlOn
.ActiveWorkbook.Close True
.Quit
End With
Set newxl = Nothing
End Sub
;)
16 juin 2008 à 17:29
mais malheureusement ton code n'a pas l'air de marcher. OptionButton reste bloqué sur True à l'ouverture du UserForm... Je comprends pas bien pourquoi.
Sinon j'avais à une procédure avec une boucel IF du genre:
Sub Caseàcocher11_Change()
If UserForm1.avec1 = True Then
Caseàcocher86 = True
Else
Caseàcocher86 = False
End If
End Sub
où avec& est l'optionButton du UserForm
et Case à cocher 86 la CheckBox
mais pour le moment je n'ai aucun résultat....
A voir
16 juin 2008 à 18:11
ça change tout la !!!
c'est pas la question du début ?!
c'est jouable, mais c'est de la haute voltige.
je fais 2 ou 3 passages éclair sur ce forum, mais je ne suis pas les topics sur lesquels je post (habituellement :D)
pose ton PB ici : https://forum.pcastuces.com/bureautique-f23
et je te règle ça "à la carte"
;)
bérylion
16 juin 2008 à 18:48
je viens de l'envoyer sur ton lien.
en tout cas merci pour le temps que tu me consacre.
Je guète ta réponse.
a plus