Formule vba pour une selection multiple avec souris [Résolu/Fermé]

Signaler
Messages postés
39
Date d'inscription
mardi 5 mai 2015
Statut
Membre
Dernière intervention
4 mars 2017
-
lolo24150
Messages postés
39
Date d'inscription
mardi 5 mai 2015
Statut
Membre
Dernière intervention
4 mars 2017
-
Bonjour,
D'abord je début avec le VBA.Du moins je vous promet j'essaye.
Je voudrais , après avoir sélectionner une cellule ou plusieurs cellules avec la souris pouvoir en appuyant sur un bouton mettre un "x" à l'intérieur de chaque cellule et remplir la cellule en rouge .Et également si je ré appui sur le même bouton pouvoir effacer cette sélection.
Merci par avance pour vos compétences.



3 réponses

Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
450
Bonjour,

Tu peux essayer comme cela
Sub Test()
If Selection.Interior.ColorIndex = 3 Then
Selection.Value = ""
Selection.Interior.ColorIndex = xlNone
Else
Selection.Value = "x"
Selection.Interior.ColorIndex = 3
End If
End Sub

A+
Messages postés
39
Date d'inscription
mardi 5 mai 2015
Statut
Membre
Dernière intervention
4 mars 2017

Merci,
Cela fonctionne parfaitement, j'avais le truc pour la couleur mais pas pour le "texte" .
Mrci encore pour toutes vos compétences.