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 :

2 macros qui s'enchainent


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Consultant ERP
    Inscrit en
    Août 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Consultant ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2011
    Messages : 8
    Par défaut 2 macros qui s'enchainent
    Bonjour,

    j'ai deux macros qui sont affectées chacune à un bouton.

    le 1er bouton permet de lancer une recherche dans un tableau et le 2ème permet de réinitialiser une colonne en particulier.

    lorsque je clique sur le 2ème bouton, automatiquement la 1ère macro est également exécuter. je ne comprend pas.

    merci pour votre aide.

    ci-après le code des 2 macros :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Sub recherchearticle()
     
    Dim codebarre As String
    Dim celluletrouvee As Range
    Dim ligne As Integer
    Dim col As Integer
     
    codebarre = InputBox("Scan article ")
     
    On Error Resume Next
       Err = 0
       Range("A2:A99999").Find(What:=codebarre, LookIn:=xlValues).Select
       If Err = 0 Then
          ActiveCell.Offset(0, 7).Select
       Else
          MsgBox "Pas trouvé"
       End If
       On Error GoTo 0
     
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub initialisation()
     
    Application.ScreenUpdating = False
        With Range("H6:H99999")
            .ClearContents
            .Interior.ColorIndex = xlNone
        End With
    End Sub

  2. #2
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2009
    Messages
    1 794
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 86
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 1 794
    Par défaut
    Bonjour,
    C'est sans doute que dans le code lié au 2ème bouton on appelle les deux procédures.

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Peux-tu mettre le classeur - sans données confidentielles - en pièce jointe ?

  4. #4
    Membre régulier
    Homme Profil pro
    Consultant ERP
    Inscrit en
    Août 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Consultant ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2011
    Messages : 8
    Par défaut
    Merci pour vos réponses.

    voici le classeur Zipper car l'extension xlsm ne passe pas.

    encore merci.
    Fichiers attachés Fichiers attachés

  5. #5
    Membre éclairé
    Homme Profil pro
    Responsable d'un système d'information métier
    Inscrit en
    Septembre 2013
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Responsable d'un système d'information métier
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2013
    Messages : 51
    Par défaut
    Citation Envoyé par vponcet0774 Voir le message
    Merci pour vos réponses.

    voici le classeur Zipper car l'extension xlsm ne passe pas.

    encore merci.
    Sur la feuille "Feuil1", tu as un appel de la macro
    recherchearticle
    à chaque changement sur cette feuille.

    Regardes dans la section worsheet/change de la feuille en VBA.

    Voici le text

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub Worksheet_Change(ByVal Target As Range)
     
      If Target.Column = 8 Then
     
        Target.Interior.Color = RGB(181, 244, 0)
       recherchearticle
     
     End If
    End Sub

  6. #6
    Membre régulier
    Homme Profil pro
    Consultant ERP
    Inscrit en
    Août 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Consultant ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2011
    Messages : 8
    Par défaut
    Oui parce que je veux relancer la macro recherchearticle dès qu'une valeur est renseignée dans la colonne H. mais pourquoi lorsque je clique sur le bouton de réinitialisation il me lancer la macro recherchearticle alors qu'elle ne sont pas liée.

    merci.

  7. #7
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Parce que "Initialisation" afface la colonne H et provoque donc des changements de valeur qui provoquent elles-mêmes le lancement de "recherchearticle"

Discussions similaires

  1. Réaliser une macro qui enregistre le résultat d'une requête
    Par boulette85 dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 22/02/2007, 18h36
  2. Macro qui ne s'exécute pas dans formulaire
    Par picatchou dans le forum Access
    Réponses: 10
    Dernier message: 18/09/2006, 17h27
  3. [VBA-E] Macro qui confond "1" et "11"
    Par SybVicious dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/08/2006, 17h03
  4. [VBA-E] macro qui se lance avec un commandbutton
    Par ricachu dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 12/07/2006, 09h52
  5. [Access 2003] Macro qui fait planter Access
    Par nuriel2 dans le forum Access
    Réponses: 5
    Dernier message: 10/05/2006, 14h00

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