[VBA-E] Effacer les valeurs d'une plage de cellules

Bonsoir,

Je n'arrive pas à effacer les valeurs d'une plage de cellules sans supprimer également la mise en forme (couleur, bordures) des cellules mais aussi les listes déroulantes..

Ci joint le code, rudimentaire il est vrai !

Code:

---

1 2 3 4

Worksheets("Prévisionnel").Activate Worksheets("Prévisionnel").Range("I2:K46").Select Worksheets("Prévisionnel").Range("I2:K46").clear

---

Merci pour votre aide

Et ca non?

Code:

---

Worksheets("Prévisionnel").Range("I2:K46").ClearContents

---

Tout dépend de ce que tu veux faire:

Code:

---

1 2 3 4 5

Range().ClearComments Range().ClearContents Range().ClearFormats Range().ClearNotes Range().ClearOutline

---

PS : TOUJOURS PASSER PAR L'ENREGISTREUR DE MACRO POUR ESSAYER :D

J'ai tout essayé... je n'arrive pas à garder à la fois la mise en forme et la liste déroulante sur ces cellules!


Je poursuis mes recherches.

Merci pour l'aide !

Tu peux ecrire une fonction qui fait ca...

Si c une cellule que tu veux conserver tu passes la cellule et puis sinon tu effaces... Non?

J'ai du mal à comprendre ta réponse Vesta (c'est l'heure :))

Je verrai demain pour débuter une fonction (avec mes connaissances de base VBA je vais rire... mais j'apprends dans la joie :))

Merci

Qu'est ce qui doit rester quels types de controles? tu peux me faire un exemple dans un fichier excel et le joindre??? avec deux feuilles... avant apres pour voir ce qui doit rester

ta liste déroulante c'est un filtre ?

Salut,

le code ci joint me permet de supprimer les valeurs inclues dans la plage de cellules, tout en gardant mes listes déroulantes et la mise en forme

Code:

---

1 2	Worksheets("Prévisionnel").Range("I2:K46").ClearContents

---

Bref, j'aurai pu Résoudre le souci tout seul, en vérifiant bien que j'avais tout testé
Merci à ceux qui m'ont aidé

Salut,

Tu peux également supprimer les valeurs de cette manière :

Code:

---

Worksheets("Prévisionnel").Range("I2:K46").value = ""

---

A mon avis c'est plus léger ;)

Bonne soirée Geoffray

Si tu lisais les message...

Je te l'ai dis en messsage 2 LOL :D:D:D:D:D

Vesta,

Je pensai que j'avais tout testé via l'aide les solutions que tu proposais...en message 2.

J'ai du oublier une possibilité : Merci à vous tous pour votre aide