IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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 :

Effacer une cellule au changement d'une autre [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre actif
    Inscrit en
    Janvier 2006
    Messages
    1 220
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 220
    Points : 262
    Points
    262
    Par défaut Effacer une cellule au changement d'une autre
    Bonjour,
    J'ai une cellule C13 avec une liste déroulante qui vient d'une donnée de validation.
    Je souhaiterais que par exemple la cellule B19 soit effacé à chaque fois que la fameuse cellule C13 change de valeur.
    Comment faire ? Une macro je suppose mais laquelle ?

    Merci d'avance.

  2. #2
    Membre averti
    Homme Profil pro
    Ctrl Gestion
    Inscrit en
    Octobre 2011
    Messages
    177
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ctrl Gestion
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 177
    Points : 363
    Points
    363
    Par défaut
    Bonjour Leloup84, le forum,

    Je penserais pour une macro de ce type.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Row = 13 And Target.Column = 3 Then
        Cells(19, 2).Clear
      End If
    End Sub
    Slts

  3. #3
    Membre actif
    Inscrit en
    Janvier 2006
    Messages
    1 220
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 220
    Points : 262
    Points
    262
    Par défaut
    Non çà ne fonctionne pas cette macro.
    Chose que je n'ai pas précisé et qui peu avoir son importance.
    La fameuse cellule B19 est aussi une liste déroulante issu d'une donnée validation.

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    12 922
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 12 922
    Points : 28 908
    Points
    28 908
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Citation Envoyé par leloup84 Voir le message
    Non çà ne fonctionne pas cette macro.
    Si, cette macro fonctionne. Pas comme tu le souhaites mais elle fonctionne.
    Chose que je n'ai pas précisé et qui peu avoir son importance.
    La fameuse cellule B19 est aussi une liste déroulante issu d'une donnée validation.
    Oui, c'est important
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Row = 13 And Target.Column = 3 Then
        Cells(19, 2).Clear
      End If
    End Sub
    Tu remplaces .Clear par .ClearContents
    La différence entre les deux. Clear efface toutes les propriétés de la cellule. ClearContents, uniquement son contenu

  5. #5
    Membre actif
    Inscrit en
    Janvier 2006
    Messages
    1 220
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 220
    Points : 262
    Points
    262
    Par défaut
    Ok merci. Maintenant essayer de mieux comprendre la macro.
    Une dernière précision comment faire si c'est une plage de cellule qu'il y a à effacer ?
    Par exemple pas seulement la B19 mais aussi la B20 et B21 ?

  6. #6
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    12 922
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 12 922
    Points : 28 908
    Points
    28 908
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Pour effacer les cellules de D10 à F10
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(Cells(10, 4), Cells(10, 6)).ClearContents
    Ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("D10:F10").ClearContents

  7. #7
    Membre actif
    Inscrit en
    Janvier 2006
    Messages
    1 220
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 220
    Points : 262
    Points
    262
    Par défaut
    Merci pour votre retour cela fonctionne

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Lancement d'une macro par changement d'une cellule d'une autre feuille
    Par Jéro030691 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/12/2013, 12h48
  2. Réponses: 1
    Dernier message: 26/12/2010, 21h20
  3. Réponses: 2
    Dernier message: 05/03/2010, 14h15
  4. Comment effacer des cellule après modification d'une cellule
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 02/03/2009, 08h51
  5. Réponses: 3
    Dernier message: 03/11/2008, 16h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo