Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel creation d'un nouveau classeur et d'une checkbox

creation d'un nouveau classeur et d'une checkbox

1 réponse
Avatar
sharpegreg
Bonjour,

je cherche le bon code pour qu'une fois un nouveau classeur de creer il se
créer une checkbox et que si on coche la case celle ci entraine une macro :

Workbooks.Add

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=261.75, Top:=28.5, Width:=96.75,
Height:= _
85.5).Select


If ActiveSheet.OLEObjects("CheckBox1").Object.Value = true then

ce code cree le classeur et la checkbox mais apres comment faire pour que si
la case est cocher cela declenche une autre procedure ??

d'avance merci

Greg
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Quelque chose comme ça :

Sub zz_Créer()
Workbooks.Add
With ActiveSheet
.CheckBoxes.Add(261.75, 28.5, 96.75, 85.5).Name = "maCoche"
.CheckBoxes("maCoche").OnAction = "zz_Coch"
End With
End Sub

Sub zz_Coch()
If ActiveSheet.CheckBoxes("maCoche") = xlOn Then
MsgBox "Coché !"
Else: MsgBox "Pas coché !"
End If
End Sub

AV