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:

---

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:

---

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

---

Bonjour,
C'est sans doute que dans le code lié au 2ème bouton on appelle les deux procédures.

Bonjour,

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

Merci pour vos réponses.

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

encore merci.

Citation:

---

Envoyé par vponcet0774

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:

---

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

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.

Parce que "Initialisation" afface la colonne H et provoque donc des changements de valeur qui provoquent elles-mêmes le lancement de "recherchearticle"

Bonjour,
Comme la procédure initialisation gère plusieurs cellules, tu pourrais faire un test sur la propriété Count de l'objet Target qui s'il est supérieur à 1 quitte la procédure événementielle Worksheet_Change.
Ligne en rouge

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 Then If Target.Count > 1 Then Exit Sub Target.Interior.Color = RGB(181, 244, 0) recherchearticle End If End Sub

---

Bonsoir,

tu peu aussi désactiver les événements durant ton initialisation ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub initialisation() Application.EnableEvents = False Application.ScreenUpdating = False With ThisWorkBook.sheets(1).Range("H6:H99999") .ClearContents .Interior.ColorIndex = xlNone End With   Application.EnableEvents = True   End Sub

---

Bonjour,

Cette foutue manie de s'arrêter au diagnostic :( Une autre approche :

Code:

---

1 2 3 4 5 6 7 8 9

Sub initialisation() Application.ScreenUpdating = False With Range("H6:H99999") Application.EnableEvents = False .ClearContents Application.EnableEvents = True .Interior.ColorIndex = xlNone End With End Sub

---