Bonjour à tous
débutant et nouvel inscrit ici, je ne tarde pas à vous demander votre aide,
merci d'avance.
Je suis instit' et cherche à confectionner pour mon école un livret d'évaluation.
J'en suis à la deuxième version que je voudrais améliorer.
Je fais référence ici à un post de ce forum : https://www.excel-downloads.com/threads/tableau-avec-cellules-a-cocher.77581/
J'ai récupéré le code vba en pièce jointe dans ce post et ne parviens pas à l'adapter à mon travail, après moulte essais, j'ai remis le code en l'état et vous supplie de m'aider.
Il s'agit de pouvoir cocher les cellules des colonnes F à I sur les 10 tableaux qui seront sur cette page. (l'un en dessous de l'autre)
encore merci.
et bienvenue sur XLD
Voici ton fichier modifié:
Création de la zone nommée Total equvalente a Range("F3:I32")
passage de la macro a selection_change qui me parait plus apropriée
cherche à lire le numéro de ligne d'une plage nommée Total. Or il semble qu'aucune plage de ce nom n'est définie dans votre feuille.
Que représente le nom "Total" ?
ROGER2327 #3035
___________________
Re-bonjour, pierrejean...
Bravo pour l'exercice de divination ! En ouvrant votre classeur, je commence à comprendre...
Et que DEDOuze pardonne mon manque d'attention : "j'ai remis le code en l'état" m'a échappé et j'ai cru qu'il était déjà adapté, au moins en partie. Une autre fois je lirai moins vite.
wow ! quelle réactivité et gentillesse !
génial, je vais chercher à comprendre vos modifications et continuer à monter mon truc.
mille mercis (à vous deux)
ok, selection change est bien plus pratique effectivement, excellent !
deux questions, comment avez vous fait ceci :
Création de la zone nommée Total equvalente a Range("F3:I32")
j'aimerais créer d'autres zones.
est-il possible de modifier le range d'une zone créée?
merci pour votre patience.
Pas si sûr surtout si tu te promènes dans la plage avec les flèches du clavier.
Le double clic supprime ce problème.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("Total"), Target) Is Nothing Then Exit Sub
Target = IIf(Target = "", "X", "")
Cancel = True
End Sub
wep, je m'en suis rendu compte après coup hehe
j'hésite encore entre les deux solutions.
Encore merci Pierre Jean, mon projet avance à grands pas.
mes objectifs : clarté, simplicité, ergonomie et esthétisme
c'est pas gagné ...