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
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
A voir également:
- Macros excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
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
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
Affichage
Barre doutil
Formulaire
Case a cocher
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
25 nov. 2009 à 15:21
bonjour,
voici un exemple
je l'ai modifié à partir de celui la https://forums.commentcamarche.net/forum/affich-8359429-comment-noircir-une-cellule-avec-macros-excel#6
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
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
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
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
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
25 nov. 2009 à 15:35
bonjour Ricky38,
j'aimerai comprendre à quoi sert :
et dans ce cas, la case cochée est la case sélectionnée or il demande la case d'en dessous non ?
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 ?
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
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 :)
en tous cas il aura les 2 choix :)