transformer une cellule en bouton a cocher : on m'a aidé, mais j'y arrive pas

Le
soixanteu
voila, je veut transformer une cellule en case a cocher, j'ai post
ici, et Nicolas B. m'a gentiment repondu :

Salut,


Dans le module de la feuille, mets ceci pour avoir une case cocher
en A1 :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "" Then
Target.Value = ""
Else
Target.Value = ""
End If
End If
End Sub


A+
Nicolas B.


seulement voila : je copie/colle le code dans un module de la feuille,
j'enregistre, je ferme, je re-ouvre je coche et ca marche pas,
coment je peut faire?!? merci! :)
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AV
Le #2949411
La solution qui t'a été proposée fonctionne...sous réserve de
sélectionner/désélectionner la cellule
Il me semble que l'évènement "BeforeDoubleClick" serait plus adapté ?

Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If zz.Address <> "$A$1" Then Exit Sub
If zz.Value = "" Then
zz.Value = "×"
Else: zz.Value = ""
End If
Cancel = True
End Sub

AV
PMO
Le #2947081
Bonjour,

AV a raison de vous conseillez l'usage de "BeforeDoubleClick".

Il serait plus fun d'avoir le symbole des véritables cases à cocher
ressemblant à une espède de "V". Vérifiez dans la liste des polices
si vous avez la police "Marlett". Si c'est le cas, utilisez la procédure
de AV que j'ai embellit avec le symbole case à cocher.

'**********
Private Sub Worksheet_BeforeDoubleClick _
(ByVal zz As Range, Cancel As Boolean)
If zz.Address <> "$A$1" Then Exit Sub
If zz.Value = "" Then
zz.Font.Name = "Marlett"
zz.Value = Chr(97) 'ou "a"
Else
zz.Font.Name = "Arial"
zz.Value = ""
End If
Cancel = True
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange



voila, je veut transformer une cellule en case a cocher, j'ai posté
ici, et Nicolas B. m'a gentiment repondu :
---
Salut,


Dans le module de la feuille, mets ceci pour avoir une case à cocher
en A1 :


Private Sub Worksheet_SelectionChange(ByVa­l Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "" Then
Target.Value = "×"
Else
Target.Value = ""
End If
End If
End Sub


A+
Nicolas B.
---

seulement voila : je copie/colle le code dans un module de la feuille,
j'enregistre, je ferme, je re-ouvre... je coche... et ca marche pas,
coment je peut faire?!? merci! :)




bruno
Le #2947021
je n'y arrive toujoursd, pas!! commetn on fait pour les modules??

je vait dans visual basic editor, je clique droit sur le rep. du
fichier excel, je met
"insertion=>module"

la je colel le code... et ca marche poas, il faut le valider quelque
part? le lencer?? :'[

merci d'avance!!
PMO
Le #2946901
Bonjour,

C'est un code évènementiel et il va s'inscrire dans un code de feuille
et non pas dans un module.

Procédez comme suit
1) Dans Excel tapez Alt+F11 pour aller dans le VBE
2) Si la fenêtre Projet - VBAProject n'est pas visible alors
tapez Ctrl+R
3) Dans la fenêtre susmentionnée si Microsoft Excel Objets n'est
pas déplié alors double cliquez dessus.
4) Double cliquez sur feuille de votre choix
5) Une fenêtre de code de cette feuille apparaît
6) Collez le code à cet endroit
7) Retournez dans Excel et sélectionnez la feuille que vous avez choisie
8) Double cliquez sur A1 et ça devrait marcher

Cordialement.

--
PMO
Patrick Morange



je n'y arrive toujoursd, pas!! commetn on fait pour les modules??

je vait dans visual basic editor, je clique droit sur le rep. du
fichier excel, je met
"insertion=>module"

la je colel le code... et ca marche poas, il faut le valider quelque
part? le lencer?? :'[

merci d'avance!!




bruno
Le #2946201
MERCI! ca marche ^^ :)) dsl, je conait po excel!! lol :)
(vous allez me taper : vive open office!)
ClémentMarcotte
Le #3142011
MERCI! ca marche ^^ :)) dsl, je conait po excel!! lol :)


pis tu quonnèt pas ton feranssès non pelut.


"bruno" news:
(vous allez me taper : vive open office!)



bruno
Le #2962241
ClémentMarcotte a bredouillé:


pis tu quonnèt pas ton feranssès non pelut.



heu... j'ai po compris :'(

dsl

Publicité
Poster une réponse
Anonyme