Bonjour à tous !
Je suis un jeune qui découvre excel et ses nombreuses possibilitées
Mon sujet est le suivant :
Je cherche a faire disparaitre plusieurs cases munies de couleurs différentes ( par exemple 3 cases en lignes avec 3 couleurs différentes ) ainsi qu'une zone de texte qui lui est attribuée grace a un bouton ( binaire ) généré par macro.
Problème :
J'ai réussi à générer une macro qui fait disparaitre la couleur de mes cellules ainsi que ma zone de texte qui est avec ( le code est joint en dessous ) MAIS je trouve pas le moyen de faire réapparaitre les couleurs et ma zone de texte.
En gros ce que je souhaite c'est que par un premier appuie du bouton, les cases sont cachées, et que par un autre appui du bouton, cela réapparaisse ( tout ou rien ).
Des solutions svp ? :p
Le code généré par ma macro actuelle :
Sub MACROO()
'
' MACROO Macro
'
'
Range("C5:E7").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
ActiveSheet.Shapes.Range(Array("TextBox 1", "TextBox 2")).Select
ActiveSheet.Shapes.Range(Array("TextBox 1", "TextBox 2", "TextBox 3")). _
Select
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 1
.Solid
End With
Range("G7").Select
End Sub