Effacer/afficher contenu cellule

[sev]

Bonjour à tous, je voudrais à l'aide d'un bouton pouvoir effacer et réafficher le contenu de cellules dont la couleur de police est noire.
Merci

 

[Samantha]

Re : Effacer/afficher contenu cellule

Bonjour,

L'enregistreur de macro donne

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 07/07/2007 par Samantha
'
'
Selection.Font.ColorIndex = 2
End Sub

cela change la couleur de la police en blanc sur toutes les cellules sélectionnées.

en accrochant cette macro à un bouton ça devrait le faire, ensuite reste à trouver le code pour sélectionner toutes les cellules dont la police est noire et l'intégrer mais mes connaissances en macro sont plus que limitées

A te lire


Sam

 

[jeanpierre]

Re : Effacer/afficher contenu cellule

Bonjour sev, le forum,

Un truc qui m'intrigue et que je ne comprends vraiment pas... : "je voudrais à l'aide d'un bouton pouvoir effacer et réafficher le contenu de cellules"

Ma question, idiote, sans doute..... pourquoi effacer et réafficher ?

Tu en veux tant à Excel pour le faire tourner en bourrique....?

Quelques explications et bien ciblées s'imposent...

A te lire.

Jean-Pierre

Edit : Salut Sam, ça fesait un bail.... Perso, pas trop compris....

 

[Spitnolan08]

Re : Effacer/afficher contenu cellule

Bonjour sev,
tu t'attaques à des questions plus ciblées...😉
Suppose qu'une cellule non vide de la zone est sélectionnée.

Private Sub CommandButton1_Click()
    For Each cel In ActiveCell.CurrentRegion
        If cel.Font.Color = 0 Then cel.ClearContents
    Next
End Sub

Cordialement

Edit : Bonjour Samantha, JeanPierre
J'ai passé sur le réafficher...

 

[Staple1600]

Re : Effacer/afficher contenu cellule

Bonjour



Sev veut peut-etre dire

masquer et réafficher les cellules?

Dans ce cas en reprenant le code de Spitnolan08

[LEFT]Private Sub CommandButton1_Click()
Dim cel As Range
For Each cel In ActiveCell.CurrentRegion
If cel.Font.ColorIndex = 0 Then cel.EntireRow.Hidden = True
Next
End Sub

[/LEFT]

 

[mécano41]

Re : Effacer/afficher contenu cellule

Bonjour,

Peut-être ça :

Cordialement

 

[sev]

Re : Effacer/afficher contenu cellule

Bonsoir mecano41,
C'est ça . Comment faire pour l'appliquer sur mon classeur ?

 

[mécano41]

Re : Effacer/afficher contenu cellule

Bonsoir,

Dis-moi si tu sais :

- nommer une plage de cellules
- créer un bouton
- écrire du langage VBA

Sinon, j'essaierai de t'expliquer.

Eventuellement si ton classeur est simple, tu peux le copier dans ma page contenant le bouton. Il ne te restera qu'à nommer la plage.

Cordialement

 

[Spitnolan08]

Re : Effacer/afficher contenu cellule

Re,
Samantha, JeanPierre, Staple1600

Excuse-moi (Nous) d'avoir essayé de t'aider sev.
Tu remarqueras quand même que je t'ai quand même salué...

C'est bon à savoir pour la suite...

Cordialement

Mecano41 bon courage

 

[sev]

Re : Effacer/afficher contenu cellule

Bonjour, je sais nommer une plage de cellule et créer un bouton. Par contre je n'y connais rien en VBA !!!
Je salut et remercie tous ceux qui prennent du temps pour m'aider.

 

[mécano41]

Re : Effacer/afficher contenu cellule

Bonjour,

On va essayer...

- tu ouvres mon fichier
- tu ouvres ton fichier
- tu nommes la plage intéressée "Plage" (respecte la majuscule et les minuscules)
- tu fais "affichage/barres d'outils/boîte à outils contrôles
- dans la barre, tu cliques sur le rectangle "bouton de commande" et tu traces ton bouton
- tu fais un clic droit sur le bouton
- tu cliques "propriétés"
- dans la ligne "caption", tu remplaces CommandButton1 par "Effacer ou afficher" (ou toute autre chose...)
- tu fermes la boîte "propriétés" mais pas la boîte à outils
- tu ouvres mon fichier
- dans la boîte à outils contrôles, tu cliques sur l'équerre bleue
- tu fais un clic droit sur le bouton
- tu cliques sur "visualiser le code"
- tu dois voir ceci :

Option Explicit

Dim X As Variant

Private Sub CommandButton1_Click()
For Each X In Range("Plage").Cells
If X.Font.ColorIndex = 1 Then
X.Font.ColorIndex = X.Interior.ColorIndex
ElseIf X.Font.ColorIndex = X.Interior.ColorIndex Then
X.Font.ColorIndex = 1
End If
Next X
End Sub

- tu copies tout (Ctrl+C)
- tu vas dans ton fichier
- tu fais un clic droit sur le bouton
- tu cliques sur "visualiser le code"
- tu dois voir ceci:

Option Explicit

Private Sub CommandButton1_Click()

End sub

- tu sélectionnes tout (pour le remplacer)
- tu colles (Ctrl+V) le code que tu as précédemment copié
- dans la boîte à outils contrôles, tu cliques sur l'équerre bleue

Normalement, tout doit maintenant fonctionner.

Tu fermes mon fichier sans l'enregistrer.

Cordialement