Bonjour,
Je travail sur un fichier excel de gestion de commandes.
Plusieurs boutons pour filtrer diverses info (commande, stock, gamme, vente , ...)
A chaque utilisation de bouton, je "défiltre" l'utilisation du bouton précédent.
Sub StockNegatif()
'
' StockNegatif Macro
' Macro enregistrée le 16/03/2008
'
ActiveSheet.Shapes("button 273").Select
'Filtre ou non filtre
Dim Rg As Range
On Error Resume Next
Set Rg = Worksheets("catfourn").AutoFilter.Range
If Err = 0 Then
For Each C In Rg.Columns
'C.column représente la colonne où est appliquée le filtre auto.
If AutoFilter.Filters().On = True Then
Selection.AutoFilter
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<0"
Selection.AutoFilter Field:=15, Criteria1:=">0"
Range("a9").Select
Range("a8").Select
Exit For
End If
Next
Else
Err = 0
' Stock Negatif
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<0"
Selection.AutoFilter Field:=15, Criteria1:=">0"
Range("a9").Select
Range("a8").Select
End If
Set Rg = Nothing
Range("a9").Select
Range("a8").Select
End Sub
Cela marche parfaitement bien jusqu'au moment où à l'appui sur un bouton, tous les boutons disparaissent et plante mon fichier excel dans la foulée.
Je ne sais pas comment faire pour stopper cela, sachant que je ne le contrôle pas.
Est ce que quelqu'un peut m'aider ?
Je joins une de mes macros pour exemple (elles sont toutes bésées sur ce modele)
Merci
Fabien
Je travail sur un fichier excel de gestion de commandes.
Plusieurs boutons pour filtrer diverses info (commande, stock, gamme, vente , ...)
A chaque utilisation de bouton, je "défiltre" l'utilisation du bouton précédent.
Sub StockNegatif()
'
' StockNegatif Macro
' Macro enregistrée le 16/03/2008
'
ActiveSheet.Shapes("button 273").Select
'Filtre ou non filtre
Dim Rg As Range
On Error Resume Next
Set Rg = Worksheets("catfourn").AutoFilter.Range
If Err = 0 Then
For Each C In Rg.Columns
'C.column représente la colonne où est appliquée le filtre auto.
If AutoFilter.Filters().On = True Then
Selection.AutoFilter
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<0"
Selection.AutoFilter Field:=15, Criteria1:=">0"
Range("a9").Select
Range("a8").Select
Exit For
End If
Next
Else
Err = 0
' Stock Negatif
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<0"
Selection.AutoFilter Field:=15, Criteria1:=">0"
Range("a9").Select
Range("a8").Select
End If
Set Rg = Nothing
Range("a9").Select
Range("a8").Select
End Sub
Cela marche parfaitement bien jusqu'au moment où à l'appui sur un bouton, tous les boutons disparaissent et plante mon fichier excel dans la foulée.
Je ne sais pas comment faire pour stopper cela, sachant que je ne le contrôle pas.
Est ce que quelqu'un peut m'aider ?
Je joins une de mes macros pour exemple (elles sont toutes bésées sur ce modele)
Merci
Fabien