XL 2010 charger macro

titooooo

XLDnaute Occasionnel
bonjour

je cherche comment faire pour ajouter une feuille recherche avec le code en bas dans le code de cette feuille

alors j'aimerais charger cette page par macro lorsque je veut

mais je sais pas comment m'y prendre




Private Sub Worksheet_Change(ByVal Target As Range)
Dim MonTab, TabFin(), i As Long, x As Long, j As Byte

If Target.Address = "$A$1" Then
Range("C3").CurrentRegion.ClearContents
For Each sh In Worksheets
If sh.Name <> "Recherche" Then
MonTab = sh.Range("B2:F" & sh.Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(MonTab, 1) To UBound(MonTab, 1)
If MonTab(i, 2) = Target Or MonTab(i, 3) = Target Then
x = x + 1
ReDim Preserve TabFin(1 To 5, 1 To x)
TabFin(1, x) = CDbl(MonTab(i, 1))
For j = 2 To 5
TabFin(j, x) = MonTab(i, j)
Next
End If
Next
Erase MonTab
End If
Next
If x > 0 Then
Range("C3").Resize(UBound(TabFin, 2), UBound(TabFin, 1)) = Application.Transpose(TabFin)
Range("C3:G" & 2 + UBound(TabFin, 2)).Sort Key1:=Range("C4"), Order1:=xlDescending, Header:=xlGuess
End If
End If
End Sub
 

Paf

XLDnaute Barbatruc

Pièces jointes

  • all-euro-data-2015-2016.xls
    317.5 KB · Affichages: 70

titooooo

XLDnaute Occasionnel
rebonjour Paf et le forum

bon ici c’est un peu différent je m'explique

le fichier Ce lien n'existe plusje le télécharge après chaque journée et il englobe plusieurs feuilles et beaucoup de données.

je veut que lorsque j'ouvre ce classeur ( qui ne contient pas la feuille recherche ni le code ) que excel crée en exécutant une macro automatique une nouvelle feuille recherche qui qui englobera le code de recherche

1-je telecharge mon fichier du net
2-je l'ouvre et j’exécute la macro
3-excel me crée une feuille recherche et lorsque je choisi une équipe son historique s'affiche


d'avance 1000 merci
 

Paf

XLDnaute Barbatruc
re,

une solution un peu différente:

un classeur contient la feuille Recherche, la liste des équipes et la macro de recherche. En cliquant sur le bouton, le classeurs de résultat est ouvert, puis la feuille Recherche y est copiée avec la liste des équipes et la macro de recherche.

le chemin du classeur de résultat et son nom doivent être adaptés

A+
 

Pièces jointes

  • Copie&Recherche.xls
    42 KB · Affichages: 37

Discussions similaires

Réponses
11
Affichages
415

Statistiques des forums

Discussions
312 945
Messages
2 093 818
Membres
105 847
dernier inscrit
Ponette94