(re) Bonjour
J'avais posé un pb l'autre soir qui est enfin résolu. Par contre un 2° souci se pose à moi :
- Je crée une feuille (par macro) avec un nom et un n° de semaine (jusque là ok)
Par contre je fais un tri des valeurs qui sont dedans mais à chaque création le nom de l'onglet change
ex :
1-Toto
2-Tata
etc ....
Quand je souhaite faire mon tri sur une feuille créée comment je peux identifier celle-ci ?????
Voici le code que j'utilise pour le tri
Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim dico As Object 'déclare la variable dico (DICtiOnnaire)
Dim cel As Range 'déclare la variable cel (CELLule)
Dim temp As Variant 'déclare la variable temp (tableau TEMPoraire)
Set dico = CreateObject("Scripting.Dictionary") 'définit le dictionnaire dico
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
.Cells(11, 4).CurrentRegion.ClearContents 'efface les anciennes données
dl = .Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne dl de la colonne B
Set pl = .Range("B2:B" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
dico(cel.Value) = "" 'alimente le dictionnaire
etc .....
Si elle est nommée ("1-Toto") c'est ok mais comment recupérer la valeur de 1-Toto ou plus simplement indiqué que c'est sur cette onglet que je travaille
PS : Code récupéré chez Formation Excel VBA JB
Merci par avance de votre aide
Cdt
F
J'avais posé un pb l'autre soir qui est enfin résolu. Par contre un 2° souci se pose à moi :
- Je crée une feuille (par macro) avec un nom et un n° de semaine (jusque là ok)
Par contre je fais un tri des valeurs qui sont dedans mais à chaque création le nom de l'onglet change
ex :
1-Toto
2-Tata
etc ....
Quand je souhaite faire mon tri sur une feuille créée comment je peux identifier celle-ci ?????
Voici le code que j'utilise pour le tri
Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim dico As Object 'déclare la variable dico (DICtiOnnaire)
Dim cel As Range 'déclare la variable cel (CELLule)
Dim temp As Variant 'déclare la variable temp (tableau TEMPoraire)
Set dico = CreateObject("Scripting.Dictionary") 'définit le dictionnaire dico
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
.Cells(11, 4).CurrentRegion.ClearContents 'efface les anciennes données
dl = .Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne dl de la colonne B
Set pl = .Range("B2:B" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
dico(cel.Value) = "" 'alimente le dictionnaire
etc .....
Si elle est nommée ("1-Toto") c'est ok mais comment recupérer la valeur de 1-Toto ou plus simplement indiqué que c'est sur cette onglet que je travaille
PS : Code récupéré chez Formation Excel VBA JB
Merci par avance de votre aide
Cdt
F