Formule vba pour une selection multiple avec souris
Résolu
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.
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.
2 réponses
-
Merci,
Cela fonctionne parfaitement, j'avais le truc pour la couleur mais pas pour le "texte" .
Mrci encore pour toutes vos compétences. -
Bonjour,
Tu peux essayer comme celaSub 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+
