Feuilles présence : remplir case en cliquant Résolu/Fermé

Question

Bonjour,
Je gère sur Excel 2010 les feuilles de présence des adhérents de plusieurs clubs sportifs. J'ai un classeur constitué d'une feuille d'inscription, de feuilles de totaux trimestrielles, et surtout de feuilles mensuelles constituées des noms des adhérents sur les lignes et des jours du mois dans les colonnes, qui sont toutes liées les unes aux autres. Pour çà pas de souci.
Je souhaite pouvoir remplir la case correspondante avec un "1" simplement en cliquant dessus, de façon à ce que mes totaux se fassent automatiquement. Actuellement, je mets un "1" manuellement dans chaque case concernée. J'aurai aimé gagner un peu de temps.
Si il est possible de faire çà, j'aimerai qu'on me donne la solution en l'expliquant simplement, je ne suis pas une spécialiste.
Merci d' avance

yg_be · Answer

bonjour, il est probablement assez simple de réaliser cela en VBA.
pourrais-tu partager ton fichier (avec des données bidon)?  ce serait probablement plus simple de t'expliquer sur un cas concret.  sinon, je pourrais-te donner un exemple, à toi de l'adapter à ton fichier.
que devrait-il se passer si le 1 est déjà présent: rien, le supprimer, le remplacer par un 0 ?

titeufdu89 · Answer

Bonjour,

Voici une code vba qui après double clic ajoutera un 1 dans la cellule concernée dès lors que le clic est effectué dans la colonne programmée dans le code (permet d'éviter qu'un double clic malencontreux ne modifie la valeur de tes autres cellules en 1). 
Pour commencer, enregistre-sous ton document au format XLSM (prenant en charge les macros)

Si tu ne maitrises pas le VBA il faut d'abord afficher l'onglet "développeur" dans ton Excel, pour ce faire suis la procédure ci-dessous : 
    Cliquez sur l'onglet Fichier.
    Cliquez sur Options.
    Cliquez sur Personnaliser le ruban.
    Sous Personnaliser le ruban et Onglets principaux, activez la case à cocher Développeur.

Une fois l'onglet Developpeur affiché, clique dans ce même onglet sur "Visual Basic". 
Dans la fenêtre qui s'ouvre dans la fenêtre "Projet - VBA Project" (a gauche de ton écran) double clique sur la nom de la feuille concernée et colle le code ci-dessous dans la fenêtre qui se sera ouverte (cf image ci-contre) puis remplace le 2 du code actuel par le numéro de la colonne dans laquelle tu souhaites que les 1 s'ajoutent. 



Voici le code à coller :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Target.Column = 2 Then '<< remplace le 2 par le numéro de colonne où tu souhaites ajouter les 1 (ex: si il s'agit de la colonne C saisir 3)
    Target.Cells.Value = 1
    End If
End Sub


Ferme l'interface VBA, enregistre ton fichier et pour tester la macro, sur la feuille de ton classeur en question, double-clic sur une cellule de la colonne programmée. Un 1 devrait alors s'afficher. 

J'espère que mes explications auront été assez claires
Bonne journée 

Jc

kathekat33 · Answer

super Titeufdu89. çà marche ! Je vais abuser encore un peu en demandant comment je peux appliquer la macro à un groupe de colonnes ( les 31 jours du mois).

kathekat33 · Answer

Merci Titeufdu89, c'est tout à fait ce que je voulais.  Pour l' avenir, je voudrais savoir comment appliquer cette macro à plusieurs feuilles ( identiques) de mon classeur; Et pour ma culture perso, quelle est la commande pour le même type d' action avec un simple cli de la souris ?

titeufdu89 · Answer

Pour appliquer cette formule a d'autres feuille tu copies et colles le code dans l'interface VBA des feuilles en question. Comme tu as fait pour la première feuille, le code reste identique si tes feuilles sont identiques. 
Il n'est pas possible de lancer une macro sur un seul clic, et une chance... imagine toi, tu ne pourrais plus sélectionner une cellule sans un changer la valeur, ce serait extrêmement problématique...  :-s

kathekat33 · Answer

Merci pour tout, je sais ce que je voulais savoir, je suis en train de faire tout çà, ce sera un sacré gain de temps pour moi !

Feuilles présence : remplir case en cliquant

6 réponses

Discussions similaires

Newsletters