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 vitual basic éditor pour des cases à cocher

vitual basic éditor pour des cases à cocher

3 réponses
Avatar
Joshua
Bonjour,

Je dois faire plusieurs tableaux dans Excel, et j'aimerais insérer des cases
à cocher en fonction de certaines questions, tout en laissant parfois, le
choix de cocher plusieurs cases.

Pourriez vous me dire comment je dois effectuer.

Existerait-il par ailleurs un site ou je puis trouver des macros déja
proposées.


Merci pour les informations que vous pourrez m'apporter, et que je n'ai pas
trouver ailleurs.
--
Josh
Signaler un problème avec ce contenu

3 réponses

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
Daniel
Bonsoir.
Regarde le classeur joint
http://cjoint.com/?hxaAlozAvA
Daniel
"Joshua" a écrit dans le message de news:

Bonjour,

Je dois faire plusieurs tableaux dans Excel, et j'aimerais insérer des
cases
à cocher en fonction de certaines questions, tout en laissant parfois, le
choix de cocher plusieurs cases.

Pourriez vous me dire comment je dois effectuer.

Existerait-il par ailleurs un site ou je puis trouver des macros déja
proposées.


Merci pour les informations que vous pourrez m'apporter, et que je n'ai
pas
trouver ailleurs.
--
Josh


Avatar
JB
Bonjour,

http://cjoint.com/?hxhM7tZv13

Sub NbRépOui()
For Each c In Sheets(1).OLEObjects
If c.Object.GroupName = "Gr1" Then
n = n - c.Object.Value
End If
Next
MsgBox n
End Sub

Sub Réponses()
For Each c In Sheets(1).OLEObjects
If c.Object.GroupName = "Gr1" Then
x = c.Name & IIf(c.Object.Value, " oui", " non")
MsgBox x
End If
Next
MsgBox n
End Sub

Sub NbRépOui2()
For g = 1 To 2
n = 0
For Each c In Sheets(2).OLEObjects
If c.Object.GroupName = "Gr" & g Then
n = n - c.Object.Value
End If
Next
MsgBox "Réponses oui" & "Gr" & g & ":" & n
Next g
End Sub

Plusieurs questiions;
Sub Réponses2()
For g = 1 To 2
For Each c In Sheets(2).OLEObjects
If c.Object.GroupName = "Gr" & g Then
x = c.Name & IIf(c.Object.Value, " oui", " non")
MsgBox x
End If
Next
Next g
End Sub

Cordialement JB


Bonjour,

Je dois faire plusieurs tableaux dans Excel, et j'aimerais insérer des cases
à cocher en fonction de certaines questions, tout en laissant parfois, le
choix de cocher plusieurs cases.

Pourriez vous me dire comment je dois effectuer.

Existerait-il par ailleurs un site ou je puis trouver des macros déja
proposées.


Merci pour les informations que vous pourrez m'apporter, et que je n'ai p as
trouver ailleurs.
--
Josh


Avatar
Daniel
Hum, un peu fatigué, hier soir. Regarde plutôt là :
http://cjoint.com/?hxkougaeUs
Daniel
"Daniel" a écrit dans le message de news:

Bonsoir.
Regarde le classeur joint
http://cjoint.com/?hxaAlozAvA
Daniel
"Joshua" a écrit dans le message de
news:
Bonjour,

Je dois faire plusieurs tableaux dans Excel, et j'aimerais insérer des
cases
à cocher en fonction de certaines questions, tout en laissant parfois, le
choix de cocher plusieurs cases.

Pourriez vous me dire comment je dois effectuer.

Existerait-il par ailleurs un site ou je puis trouver des macros déja
proposées.


Merci pour les informations que vous pourrez m'apporter, et que je n'ai
pas
trouver ailleurs.
--
Josh