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