Comment noircir une cellule avec macros excel
Résolu/Fermé
shadows-rider
Messages postés
46
Date d'inscription
dimanche 27 avril 2008
Statut
Membre
Dernière intervention
16 novembre 2011
-
10 sept. 2008 à 17:24
Phifi91 - 19 nov. 2009 à 15:18
Phifi91 - 19 nov. 2009 à 15:18
Bonjour, je souhaite que n'importe quelles cellules dans excel ce noircisent d'un seul ou d'un double click en utilisant une macros. pouvez vous m'aider merci.
A voir également:
- Comment noircir une cellule avec macros excel
- Excel cellule couleur si condition texte - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
4 réponses
pou pouille
Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
31
19 nov. 2009 à 15:03
19 nov. 2009 à 15:03
bonjour ,
je pense que cette adaptation devrait aller:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
IF Target.value= "x" Then
Target.value=""
else
Target.value = "x"
end if
End Sub
je pense que cette adaptation devrait aller:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
IF Target.value= "x" Then
Target.value=""
else
Target.value = "x"
end if
End Sub
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
10 sept. 2008 à 18:08
10 sept. 2008 à 18:08
Bonjour,
cette macro sur un double-clic est à copier dans le moduke Thisworkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = 1
End Sub
Pour aller dans VBA: Alt=F11
Pour montrer l'explorateur de projets:Ctrl+R
double-clic sur thisworkbook
Bonne soirée
cette macro sur un double-clic est à copier dans le moduke Thisworkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = 1
End Sub
Pour aller dans VBA: Alt=F11
Pour montrer l'explorateur de projets:Ctrl+R
double-clic sur thisworkbook
Bonne soirée
shadows-rider
Messages postés
46
Date d'inscription
dimanche 27 avril 2008
Statut
Membre
Dernière intervention
16 novembre 2011
1
12 sept. 2008 à 11:04
12 sept. 2008 à 11:04
merci sa marche mais je voudrais que lorsque je re-double click sur la cellule noir quelle redevienne blanche.
merci de ton aide.
merci de ton aide.
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
12 sept. 2008 à 11:16
12 sept. 2008 à 11:16
Bonjour,
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
IF Target.Interior.ColorIndex = 1 Then
Target.Interior.ColorIndex=-4142
else
Target.Interior.ColorIndex = 1
end if
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
IF Target.Interior.ColorIndex = 1 Then
Target.Interior.ColorIndex=-4142
else
Target.Interior.ColorIndex = 1
end if
End Sub
19 nov. 2009 à 15:18
Merci beaucoup