Macros excel

Fermé
rem - 25 nov. 2009 à 15:09
Ricky38 Messages postés 4349 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 - 25 nov. 2009 à 15:47
Bonjour,
je souhaiterais creer un petit programme pour lorsque je clique sur une cellule de exele, une X apparaisse en dessous pour montrer que c'est ce choix la que l'on veut.
quelqu'un pourrait m'aider?
Merci d'avance.
Cordialement
A voir également:

4 réponses

Farfadet88 Messages postés 6295 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 4 février 2025 1 370
25 nov. 2009 à 15:21
Et si tu mettais des cases à cocher en dessous de tes cases, ça ne serait pas plus convivial?

Affichage
Barre doutil
Formulaire
Case a cocher
0
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
25 nov. 2009 à 15:21
bonjour,
voici un exemple
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Offset(1, 0).Value = "x" Then
Target.Offset(1, 0).Value = ""
Else
Target.Offset(1, 0).Value = "x"
End If
End Sub

je l'ai modifié à partir de celui la https://forums.commentcamarche.net/forum/affich-8359429-comment-noircir-une-cellule-avec-macros-excel#6
0
Ricky38 Messages postés 4349 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 1 460
25 nov. 2009 à 15:29
Salut,
Si tu veux cocher dans la colonne A et bien tu donnes le nom cocher à ta colonne A ensuite
Si ça ce passe sur ta Feuille1 et bien dans ton éditeur vba tu double clique sur ta feuille 1 et tu mets ce code:

Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Intersect(Range("cocher"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "x"
cancel = True
Else
If Target = "x" Then
Target = ""
cancel = True
End If
End If

End Sub
0
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
25 nov. 2009 à 15:35
bonjour Ricky38,
j'aimerai comprendre à quoi sert :
If Intersect(Range("cocher"), Target) Is Nothing Then Exit Sub 
?
et dans ce cas, la case cochée est la case sélectionnée or il demande la case d'en dessous non ?
0
Ricky38 Messages postés 4349 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 1 460 > pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012
25 nov. 2009 à 15:47
oui il demande la case cochée en dessous mais je me demandais si il parlait de la case en dessous de celle sélectionnée ou bien celle en dessous de la souris

en tous cas il aura les 2 choix :)
0
MErci pour vos conseils.
Ca m'a beaucoup aidé.
Cordialement.
0