Discussion :

[jfamiens]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vesta]

Et ca non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tout dépend de ce que tu veux faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfamiens]

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 !

[Vesta]

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?

[jfamiens]

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

[Vesta]

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

[illight]

ta liste déroulante c'est un filtre ?

[jfamiens]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[Geoffray]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A mon avis c'est plus léger

Bonne soirée Geoffray

[Vesta]

Si tu lisais les message...

Je te l'ai dis en messsage 2 LOL

[jfamiens]

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