Modif macro

NICOALBERT

XLDnaute Occasionnel
Bonjour le forum ,

Je vient de créer une macro (en mode débutant je l'avoue :rolleyes:) et j'aurais voulu savoir comment la modifier pour qu'elle soit moins lourde .

Car lorsque je lance ma recherche c'est interminable :mad: .

Cdlt Nicoalbert
 

Pièces jointes

  • Basket_NBA_Analyse.xls
    5.8 MB · Affichages: 34

NICOALBERT

XLDnaute Occasionnel
Est ce qu'il n'y à pas la possibilité d'en créée qu'une seul qui interagit en fonction du bouton appuyer dans la feuille "Lancement Analyse"

exemple : quand j'appui sur le bouton 2 sa lance l'analyse pour les deux match présent dans "MDJ" et ainsi de suite ...
 

NICOALBERT

XLDnaute Occasionnel
Le principe recherché dans la macro "Sub MacroComplete1()" est que lorsque je clique sur le bouton 1 de la feuille "Lancement Analyse" .

ça lance la macro ""domicile" puis "exterieur" et "Tete_a_tete" par rapport au match présent en ligne 2 de la feuille "MDJ".

Ensuite ça copie les résultats des 3 feuille (Domicile,Extérieur et Tête à tête) dans la feuille 1 à partir de la ligne 500 . et supprime la ligne 2 de la feuille "MDJ"

Mais lorsque je lance la macro en "pas à pas" c'est au passage de la macro "Tete_a_tete" que ça dure une plombe .
 

pierrejean

XLDnaute Barbatruc
Re

Voici une macro beaucoup plus rapide pour Tête a tête . Demain je regarderai pour extérieur et domicile
Code:
Sub tete_a_tete2()
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:=Sheets("MDJ").Range("C2")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:=Sheets("MDJ").Range("D2")
Sheets("Tête à Tête").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Tête à Tête").Range("A3")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:=Sheets("MDJ").Range("D2")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:=Sheets("MDJ").Range("C2")
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Tête à Tête").Range("A" & Rows.Count).End(xlUp).Offset(1)
 

pierrejean

XLDnaute Barbatruc
Voici les 3 macros
Code:
Sub tete_a_tete2()
Sheets("BaseComplete").Rows("2:2").AutoFilter
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:=Sheets("MDJ").Range("C2")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:=Sheets("MDJ").Range("D2")
Sheets("Tête à Tête").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Tête à Tête").Range("A3")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:=Sheets("MDJ").Range("D2")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:=Sheets("MDJ").Range("C2")
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Tête à Tête").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub
Sub domicile2()
Sheets("BaseComplete").Rows("2:2").AutoFilter
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:= _
        "=" & Sheets("MDJ").Range("D2"), Operator:=xlOr, Criteria2:="=" & Sheets("MDJ").Range("C2")
Sheets("Domicile").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Domicile").Range("A3")
End Sub
Sub exterieur2()
Sheets("BaseComplete").Rows("2:2").AutoFilter
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:= _
        "=" & Sheets("MDJ").Range("D2"), Operator:=xlOr, Criteria2:="=" & Sheets("MDJ").Range("C2")
Sheets("Extérieur").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Extérieur").Range("A3")
End Sub
 

Discussions similaires

Réponses
9
Affichages
443
Réponses
5
Affichages
447

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07