XL 2010 case à cocher

GREG MDS

XLDnaute Junior
bonjour les amis

est-ce que quelqu'un peux m'expliquer comment on peux faire des cases à cocher en ligne sans les faire une a une.

voir dans mon tableau ci joint dans page Inscriptions au bout de chaque ligne dans la colonne avis mds je voudrais qu'il y ai une case à cocher correspondant à chaque individu.
là je suis en train de les faire ligne par ligne.... j'en ai 150 minimum a faire.
peut-on les faire en mode accéléré?

merci
greg
 

Pièces jointes

  • TOURNOI INDIVIDUELLE NOUVELLE GENERATION.xlsx
    28.6 KB · Affichages: 25
Solution
Bonjour,
Plutôt que de faire une multitude d'objets similaires surchargeant la feuille,
vous pouvez par exemple:
- renommer l'objet checkbox en Ckb
- coller le code ci-dessous dans celui de la feuille Inscription
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Ckb].Visible = False
    If Target.Count = 1 Then
        If Not Intersect(Target, [__Anonymous_Sheet_DB__0[avis mds]]) Is Nothing Then
            With [Ckb]
                .LinkedCell = vbNullString
                    .Left = Target.Left
                    .Top = Target.Top
                    .Value = Target = True
                    .Visible = True
                .LinkedCell = Target.Address
            End With
        End If
    End If
End...

fanch55

XLDnaute Barbatruc
Bonjour,
Plutôt que de faire une multitude d'objets similaires surchargeant la feuille,
vous pouvez par exemple:
- renommer l'objet checkbox en Ckb
- coller le code ci-dessous dans celui de la feuille Inscription
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Ckb].Visible = False
    If Target.Count = 1 Then
        If Not Intersect(Target, [__Anonymous_Sheet_DB__0[avis mds]]) Is Nothing Then
            With [Ckb]
                .LinkedCell = vbNullString
                    .Left = Target.Left
                    .Top = Target.Top
                    .Value = Target = True
                    .Visible = True
                .LinkedCell = Target.Address
            End With
        End If
    End If
End Sub
 

GREG MDS

XLDnaute Junior
Bonjour,
Plutôt que de faire une multitude d'objets similaires surchargeant la feuille,
vous pouvez par exemple:
- renommer l'objet checkbox en Ckb
- coller le code ci-dessous dans celui de la feuille Inscription
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Ckb].Visible = False
    If Target.Count = 1 Then
        If Not Intersect(Target, [__Anonymous_Sheet_DB__0[avis mds]]) Is Nothing Then
            With [Ckb]
                .LinkedCell = vbNullString
                    .Left = Target.Left
                    .Top = Target.Top
                    .Value = Target = True
                    .Visible = True
                .LinkedCell = Target.Address
            End With
        End If
    End If
End Sub
bonjour pouvez-vous être plus explicite svp?

j'ai essaye mais j'ai pas l'impressions d'avoir fais ce qu'il faut .

merci
 

Pièces jointes

  • TOURNOI INDIVIDUELLE.xlsx
    31 KB · Affichages: 12

GREG MDS

XLDnaute Junior
bonjour impeccable

quelqu'un est il capable de m'expliquer comment on peux faire une convocation a un tournoi en prenant en compte la validation par case cocher
et de déterminer le nombre de convocation par rapport au nombre de personne retenue
merci
gregory
voir mon tableau ci dessous
 

Pièces jointes

  • TOURNOI INDIVIDUEL.xlsm
    59.5 KB · Affichages: 3

GREG MDS

XLDnaute Junior
Bonjour,
Plutôt que de faire une multitude d'objets similaires surchargeant la feuille,
vous pouvez par exemple:
- renommer l'objet checkbox en Ckb
- coller le code ci-dessous dans celui de la feuille Inscription
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Ckb].Visible = False
    If Target.Count = 1 Then
        If Not Intersect(Target, [__Anonymous_Sheet_DB__0[avis mds]]) Is Nothing Then
            With [Ckb]
                .LinkedCell = vbNullString
                    .Left = Target.Left
                    .Top = Target.Top
                    .Value = Target = True
                    .Visible = True
                .LinkedCell = Target.Address
            End With
        End If
    End If
End Sub
bonjour FANCH 55
est ce normal que lorsque je quitte la page "tirage au sort" les personnes presente que j'ai coché ne le sont plus ?
merci

ci joint le fichier
 

Pièces jointes

  • TOURNOI INDIVIDUEL.xlsm
    142.3 KB · Affichages: 4

GREG MDS

XLDnaute Junior
Bonjour,
Dans la mesure où vous reconstruisez toutes les grilles de la feuille "tirage au sort" à chaque fois que vous y entrez, c'est normal .
bonjour

y a t-il donc une possibilités de figer la présence des individus souhaité?

d'une part et d'autre part de supprimer le bouton dans cette page "tirage au sort"

merci
 

Pièces jointes

  • TOURNOI INDIVIDUEL.xlsm
    142.3 KB · Affichages: 9

fanch55

XLDnaute Barbatruc
Au lieu de vider les grilles et de les remplir systématiquement à l'activation de "tirage_au_sort",
il vaudrait mieux :
1) faire un bouton explicite pour chaque grille pour la remplir, en ce cas la colonne présent sera rincée .
2) sinon à l'activ
 

GREG MDS

XLDnaute Junior
Au lieu de vider les grilles et de les remplir systématiquement à l'activation de "tirage_au_sort",
il vaudrait mieux :
1) faire un bouton explicite pour chaque grille pour la remplir, en ce cas la colonne présent sera rincée .
2) sinon à l'activ
BONJOUR
c'est dans ce sens que je suis effectivement partie
tu trouveras un bouton dans chaque liste .
;)
dans ce cas pourrais tu de ce fait le modifier
 

GREG MDS

XLDnaute Junior
Bonsoir,
Regardez si le classeur joint correspond à la demande (code de la feuille tirage_au_sort) .
Bonjour après avoir teste je rencontre une anomalie
tu verras dans les fichier joints
dans ta version les poules D E F ne se chargent pas ni les personnes détenues
dans ma version précédente sa se fait automatiquement

merci
 

Pièces jointes

  • TOURNOI INDIVIDUEL V3.xlsm
    144.3 KB · Affichages: 4
  • TOURNOI INDIVIDUEL.xlsm
    148.2 KB · Affichages: 6

fanch55

XLDnaute Barbatruc
Salut, c'est plutôt normal :
j'ai travaillé sur le fichier que vous aviez fourni ,
celui-ci était incomplet: bâtiment A,B,C seuls présents et zone4 incorrecte .
je me suis dit que vous pouviez modifier ce qui manquait: nommer les bâtiments dans les grilles et y dupliquer les boutons "charger" .

Rien n'est automatique: il faut cliquer sur le bouton "charger" de chaque grille pour la mettre à jour .

Le classeur joint a été complété et intègre le chargement automatique dans l'activate de la feuille
Ce chargement conserve les présents , vous devrez les enlever manuellement .
A vous d'adapter le code à votre désir:
soit vous synchronisez à chaque activate de la feuille
soit vous le faites via un "bouton" à ajouter
 

Pièces jointes

  • TOURNOI INDIVIDUEL.xlsm
    143.7 KB · Affichages: 12

Discussions similaires

Réponses
18
Affichages
651

Statistiques des forums

Discussions
315 091
Messages
2 116 114
Membres
112 663
dernier inscrit
Pauline243