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 :

Modification de cellule dépendantes [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Etudiant ingénieur
    Inscrit en
    Juin 2011
    Messages
    10
    Détails du profil
    Informations professionnelles :
    Activité : Etudiant ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2011
    Messages : 10
    Par défaut Modification de cellule dépendantes
    Bonjour,

    Tout d'abord merci de s'intéresser au sujet.
    J'ai eu du mal à le synthétiser dans le titre de façon claire.... en bref:

    J'ai trois cellules: marge en €, marge en % et prix total.

    J'aimerais que l'utilisateur puisse modifier une des valeurs, et que les 2 autres se modifient en fonction.

    Je pensais passer par :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    If Target.Address = "$E$19" Then
    marge_pourcentage
    End If
    If Target.Address = "$F$19" Then
    marge_prix
    End If etc....
     
    Sub marge_prix()
    Range("F20") = Range("F16") + Range("F19")
    Range("E19") = Range("F20") * Range("F19") / 100
    MsgBox ("prix de marge modifié, % et prix de vente HT modifiés en conséquence")
    End Sub
    Problème, lorsque je modifie une cellule, les autre se modifient donc les autres macros s’exécutent et ainsi de suite.... donc une boucle infinie pas pratique

    Si vous avez la moindre piste, je serais EXTREMEMENT reconnaissant!
    Merci d'avance

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Ajoute
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Application.enableevents=False
    'code
    application.enableevents=true
    [Edit]
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo Erreur
    If Target.Address = "$E$19" Then
        marge_pourcentage
    ElseIf Target.Address = "$F$19" Then
        marge_prix
    End If
    Erreur:
    Application.EnableEvents = True
    End Sub

  3. #3
    Membre averti
    Etudiant ingénieur
    Inscrit en
    Juin 2011
    Messages
    10
    Détails du profil
    Informations professionnelles :
    Activité : Etudiant ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2011
    Messages : 10
    Par défaut
    Merci énormément mercatog! c'est exactement ce que je recherchais.

    A bientôt, et encore merci !!!

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

Discussions similaires

  1. modification de cellules
    Par Niko62 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/01/2008, 18h36
  2. Activation de macro sur modification de cellules particulières
    Par Tch3k dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 31/07/2007, 18h11
  3. Réponses: 5
    Dernier message: 08/03/2007, 10h13
  4. [Débutant - Excel] Evénement avant modification de cellule
    Par seiryujay dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 14/12/2006, 05h31
  5. [VB6] Ouverture d'un fichier Excel et modification de cellules
    Par zackrel dans le forum VB 6 et antérieur
    Réponses: 19
    Dernier message: 19/05/2006, 11h55

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