Bonjours a tous. Voila mon probleme, je voudrais faire une macro qui me renvoie a une feuille specifique.
Par exemple dans la feuille "Entrées Classes" je rentre les informations relatives a ma recherche. La recherche se fait selon plusieurs criteres:
Dans l'ordre: La feuille recherchée
La date désirée
Le professeur désiré.
Pour la date et le professeur c bon, mais voila je ne sais pas comment aller a la feuille recherchée. Voila la macro que j'ai bricolé deja (mais bon bricoler avec VBA on fini vite par s'embrouiller et je maitrise vraiment pas l'outil), avec la precieuse aide de bhbh. Si vous pouvez m'aider a faire correctement cette macro. Merci
Merci.
Par exemple dans la feuille "Entrées Classes" je rentre les informations relatives a ma recherche. La recherche se fait selon plusieurs criteres:
Dans l'ordre: La feuille recherchée
La date désirée
Le professeur désiré.
Pour la date et le professeur c bon, mais voila je ne sais pas comment aller a la feuille recherchée. Voila la macro que j'ai bricolé deja (mais bon bricoler avec VBA on fini vite par s'embrouiller et je maitrise vraiment pas l'outil), avec la precieuse aide de bhbh. Si vous pouvez m'aider a faire correctement cette macro. Merci
PHP:
Sub aller()
Range("C23:I23").Copy
With Sheets("Entrées Classes")
Set pl = .Range("AA6")
pl.Name = "page"
End With
Dim pl As Range
With Sheets("page")
Set pl = .Range("C4:IV" & .[B65000].End(xlUp).Row)
pl.Name = "base"
Set pl = .Range("B4:B" & .[B65000].End(xlUp).Row)
pl.Name = "dates"
Set pl = .Range(.Cells(3, 3), .Cells(3, .[IV3].End(xlToLeft).Column))
pl.Name = "noms"
End With
With Sheets("Entrées Classes")
Set pl = .Range("C3")
pl.Name = "date1"
Set pl = .Range("AB2")
pl.Name = "nom"
End With
x = Evaluate("Index(base,match(date1,dates,0),match(nom,noms,0))").Address
Sheets("parametres calendrier cours").Select
Range(x).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End Sub
Merci.
Dernière édition: