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 :

Changement automatique de valeurs d'une cellule


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Avril 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2013
    Messages : 4
    Points : 2
    Points
    2
    Par défaut Changement automatique de valeurs d'une cellule
    Bonjour,

    Après des recherches sur internet non concluantes je viens vers vous pour résoudre mon problème.

    Je m'explique : Je commence en VBA et je suis en train de concevoir un classeur (de plusieurs feuilles) avec différentes macro.

    La première que j'ai effectuée marche parfaitement mais j'aimerais qu'elle se lance automatiquement. Ma macro permet, quand j'entre une valeur dans une cellule dans une feuille (Feuille1 par exemple) de modifier la valeur d'une cellule d'une autre feuille (Feuille2).

    J'ai essayé d’intégrer, dans la feuille ou la cellule sera modifié, le code suivant

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Worksheet_Change(ByVal Target As Range)
     
        If Target.Address = "CelluleModif" Then
     
        Call MaMacro
     
        End If
     
    End Sub
    Ou est l'erreur ou la/les modifitication(s) à apporter?

    Merci de votre aide .

  2. #2
    Membre expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 477
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 477
    Points : 3 864
    Points
    3 864
    Par défaut
    Bonjour

    Essaie ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Worksheet_Change(ByVal Target As Range)
     
        If Not Intersect(Target, Range("A1")) Is Nothing Then
     
        Call mamacro
     
        End If
     
    End Sub

  3. #3
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Avril 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2013
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    Parfait ... Ca fonctionne!

    Merci beaucoup QuestVba

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

Discussions similaires

  1. Changement automatique de la valeur d'une cellule
    Par meledjeauguste dans le forum Excel
    Réponses: 1
    Dernier message: 29/11/2013, 14h34
  2. Recopier automatiquement les valeurs d'une cellule
    Par janakka-horus dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 07/03/2013, 07h31
  3. Lancement macro si il y a changement de valeur d'une cellule
    Par fabiencal dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/07/2008, 13h20
  4. Charger Macro apres changement de valeur d'une cellule
    Par jackfred dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/07/2007, 14h51
  5. [VBA-E] RechercheV si changement de valeur sur une cellule
    Par bonilla dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/01/2007, 16h22

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