Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Case d'option

Case d'option

3 réponses
Avatar
Bidule
Bonjour.

J'aimerais positionner trois groupes de 5 cases d'option sur une feuille.
Il faudrait que chacun de ces groupe travaille indépendamment. A ce
jour, Excel reconnaît mes 15 cases d'option comme un seul groupe.
Je ne me rappelle plus comment faire et l'aide en ligne est très
pauvre...

Comment faire ?
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
JB
Bonjour,

Utiliser la propriété GroupName e.g.

Sub essaiOptions()
For g = 1 To 4
MsgBox RéponseOptions("GR" & g)
Next g
End Sub

Function RéponseOptions(groupe)
Application.Volatile
RéponseOptions = ""
For Each c In ActiveSheet.OLEObjects
If UCase(c.Object.GroupName) = UCase(groupe) Then
If c.Object.Value = True Then
RéponseOptions = c.Object.Caption
Exit Function
End If
End If
Next c
End Function

http://cjoint.com/?dtqBl7KF8H

JB
http://boisgontierjacques.free.fr/

On 19 mar, 16:17, Bidule wrote:
Bonjour.

J'aimerais positionner trois groupes de 5 cases d'option sur une feuille.
Il faudrait que chacun de ces groupe travaille indépendamment. A ce
jour, Excel reconnaît mes 15 cases d'option comme un seul groupe.
Je ne me rappelle plus comment faire et l'aide en ligne est très
pauvre...

Comment faire ?


Avatar
isabelle
bonjour bidule,

il faut créer les case dans 3 frames.

isabelle

Bonjour.

J'aimerais positionner trois groupes de 5 cases d'option sur une feuille.
Il faudrait que chacun de ces groupe travaille indépendamment. A ce
jour, Excel reconnaît mes 15 cases d'option comme un seul groupe.
Je ne me rappelle plus comment faire et l'aide en ligne est très
pauvre...

Comment faire ?


Avatar
JB
Cases d'options avec BO formulaire:

http://boisgontierjacques.free.fr/fichiers/jb-BOFormulaire.xls

JB

On 19 mar, 16:27, JB wrote:
Bonjour,

Utiliser la propriété GroupName e.g.

Sub essaiOptions()
  For g = 1 To 4
    MsgBox RéponseOptions("GR" & g)
  Next g
End Sub

Function RéponseOptions(groupe)
  Application.Volatile
  RéponseOptions = ""
  For Each c In ActiveSheet.OLEObjects
    If UCase(c.Object.GroupName) = UCase(groupe) Then
       If c.Object.Value = True Then
          RéponseOptions = c.Object.Caption
          Exit Function
       End If
    End If
  Next c
End Function

http://cjoint.com/?dtqBl7KF8H

JBhttp://boisgontierjacques.free.fr/

On 19 mar, 16:17, Bidule wrote:



Bonjour.

J'aimerais positionner trois groupes de 5 cases d'option sur une feuille .
Il faudrait que chacun de ces groupe travaille indépendamment. A ce
jour, Excel reconnaît mes 15 cases d'option comme un seul groupe.
Je ne me rappelle plus comment faire et l'aide en ligne est très
pauvre...

Comment faire ?- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -