J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb.
Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere
partie pas la deuxième.
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
Bonsoir Dans la première macro, à la fin, justa avant le End Sub, ajouter le nom de la seconde macro. Bonne chance -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Zigute" a écrit dans le message de news:
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
Bonsoir
Dans la première macro, à la fin, justa avant le End Sub, ajouter le nom de
la seconde macro.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Zigute" <Zigute@discussions.microsoft.com> a écrit dans le message de news:
804398A1-617D-44DC-A33D-88452B79F340@microsoft.com...
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb.
Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la
premiere
partie pas la deuxième.
Merci pour votre aide.
Bonsoir Dans la première macro, à la fin, justa avant le End Sub, ajouter le nom de la seconde macro. Bonne chance -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Zigute" a écrit dans le message de news:
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
JLuc
*Bonjour Zigute*, Es tu sure que ta macro s'arrete là ? Ne serait il pas possible qu'elle passe tous les tests sans un valider un seule ? Essaie de mettre un MsgBox a la fin pour verifier. S'il s'affiche, c'est le contenu de B6 qui ne rentre pas dans les valeurs de tes tests
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Zigute*,
Es tu sure que ta macro s'arrete là ?
Ne serait il pas possible qu'elle passe tous les tests sans un valider
un seule ? Essaie de mettre un MsgBox a la fin pour verifier. S'il
s'affiche, c'est le contenu de B6 qui ne rentre pas dans les valeurs de
tes tests
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb.
Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere
partie pas la deuxième.
Merci pour votre aide.
*Bonjour Zigute*, Es tu sure que ta macro s'arrete là ? Ne serait il pas possible qu'elle passe tous les tests sans un valider un seule ? Essaie de mettre un MsgBox a la fin pour verifier. S'il s'affiche, c'est le contenu de B6 qui ne rentre pas dans les valeurs de tes tests
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*ReBonjour Zigute*, Et si tu simplifiais tes tests ?
Select Case Range("B6") Case = "Analytique" : Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Case = "... ... ... Case Else : MsgBox "Aucuns cas detecté !" End Select
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*ReBonjour Zigute*,
Et si tu simplifiais tes tests ?
Select Case Range("B6")
Case = "Analytique" :
Selection.AutoFilter Field:=3, Criteria1:="Analytique"
Selection.AutoFilter Field:=8, Criteria1:="Refusé"
Case = "...
...
...
Case Else :
MsgBox "Aucuns cas detecté !"
End Select
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb.
Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere
partie pas la deuxième.
Merci pour votre aide.
*ReBonjour Zigute*, Et si tu simplifiais tes tests ?
Select Case Range("B6") Case = "Analytique" : Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Case = "... ... ... Case Else : MsgBox "Aucuns cas detecté !" End Select
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Zigute
Merci pour l'astuce je vais tester !
Zigute
*ReBonjour Zigute*, Et si tu simplifiais tes tests ?
Select Case Range("B6") Case = "Analytique" : Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Case = "... .... .... Case Else : MsgBox "Aucuns cas detecté !" End Select
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
Application.Goto Reference:="compta" If Range("B6") = "Analytique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "ARF" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="ARF" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "DP" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="DP" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Etats" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Etats" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Fenêtre compta" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Fenêtre compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Juridique" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Juridique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "Liasses fiscales" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="Liasses fiscales" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "TVA" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=3, Criteria1:="TVA" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Else If Range("B6") = "" Then Application.Goto Reference:="compta" Selection.AutoFilter Field:=8, Criteria1:="Refusé"
End If End If End If End If End If End If End If End If End If
End Sub
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Merci pour l'astuce je vais tester !
Zigute
*ReBonjour Zigute*,
Et si tu simplifiais tes tests ?
Select Case Range("B6")
Case = "Analytique" :
Selection.AutoFilter Field:=3, Criteria1:="Analytique"
Selection.AutoFilter Field:=8, Criteria1:="Refusé"
Case = "...
....
....
Case Else :
MsgBox "Aucuns cas detecté !"
End Select
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb.
Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere
partie pas la deuxième.
Merci pour votre aide.
*ReBonjour Zigute*, Et si tu simplifiais tes tests ?
Select Case Range("B6") Case = "Analytique" : Selection.AutoFilter Field:=3, Criteria1:="Analytique" Selection.AutoFilter Field:=8, Criteria1:="Refusé" Case = "... .... .... Case Else : MsgBox "Aucuns cas detecté !" End Select
Bonjour à tous,
J'ai 2 Subs. J'arrive à les lancer via 2 boutons independants sans pb. Par contre si je réunis c' 2 sub dans une là excel n'éxécute que la premiere partie pas la deuxième. Merci pour votre aide.
