Sujet Précédent Sujet Suivant

Formule vba pour une selection multiple avec souris

Résolu/Fermé
lolo24150 Messages postés 39 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 4 mars 2017 - 7 nov. 2015 à 11:25
lolo24150 Messages postés 39 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 4 mars 2017 - 8 nov. 2015 à 09:17
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.



A voir également:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
7 nov. 2015 à 11:32
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+
0
Réponse 2 / 2
lolo24150 Messages postés 39 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 4 mars 2017
8 nov. 2015 à 09:17
Merci,
Cela fonctionne parfaitement, j'avais le truc pour la couleur mais pas pour le "texte" .
Mrci encore pour toutes vos compétences.
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
je veut créer des codes
jonkiller -
Nhhi -

20 réponses
exo pix
Xtyller -
Raymond PENTIER -

2 réponses
Paris multiple : explications de 2/3, 3/4, 2/4, 2/5, etc.
florent.c -
Aide -

85 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses