Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

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


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    [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 :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

  2. #2
    Membre éclairé
    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
    N'oubliez pas de mettre le

  3. #3
    Membre à l'essai
    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 !

  4. #4
    Membre éclairé
    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?
    N'oubliez pas de mettre le

  5. #5
    Membre à l'essai
    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

  6. #6
    Membre éclairé
    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
    N'oubliez pas de mettre le

  7. #7
    Expert confirmé
    ta liste déroulante c'est un filtre ?
    1. Avant de poster, et http://www.developpez.com/sources/
    2. Lors du post, n'oubliez pas, si besoin les balises CODE => voir ici pour l'utilisation
    3. N'oubliez pas le
    4. N'oubliez pas le si la réponse vous a été utile !

  8. #8
    Membre à l'essai
    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é

  9. #9
    Nouveau membre du Club
    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

  10. #10
    Membre éclairé
    Si tu lisais les message...

    Je te l'ai dis en messsage 2 LOL
    N'oubliez pas de mettre le

  11. #11
    Membre à l'essai
    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