Comment noircir une cellule avec macros excel

Résolu
shadows-rider Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
 Phifi91 -
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:

4 réponses

pou pouille Messages postés 207 Date d'inscription   Statut Membre Dernière intervention   31
 
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
0
Phifi91
 
Super ça fonctionne nickel.
Merci beaucoup
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
-1
shadows-rider Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   1
 
merci sa marche mais je voudrais que lorsque je re-double click sur la cellule noir quelle redevienne blanche.
merci de ton aide.
-1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
-1
Phifi91
 
Bonjour, merci de l'astuce pour noircir la case et l'enlever. Avez-vous un équivalent pour marquer la case de la lettre X et de l'enlever au prochain double clic ?

Merci
0