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