Sofhy
XLDnaute Occasionnel
Bonjour à tous,
Je reviens vers vous car je suis encore bloquée dans mon fichier par mon manque de connaissance du Vba.
J'ai une feuille X (car ce n'est jamais la même, ça sera la feuille active dans laquelle on lance la macro) qui fait appel à une feuille "critères" qui est fixe.
Je copie des données de la feuille critères, que je colle / transpose dans ma feuille active. Sauf que dans le code, j'écris que je retourne dans la feuille X "nommée Feuil2" pour coller ces données et donc je fige ma macro sur la feuille n°2.
J'ai essayé un système intermédiaire avec une formule =criteres!C1, mais je ne peux pas tirer la formule vers la droite, ça ne fonctionne pas. J'ai aussi essayé avec la fonction decaler mais sans succès (à noter que cette dernière fonction, je ne suis pas encore très à l'aise, c'est peut être pour ça que je n'ai pas réussi, car ça me semblait pourtant bien approprié).
Voilà mon bout de code qui me pose problème :
Je vous joins mon bout de fichier également.
Merci par avance,
Sofhy
Je reviens vers vous car je suis encore bloquée dans mon fichier par mon manque de connaissance du Vba.
J'ai une feuille X (car ce n'est jamais la même, ça sera la feuille active dans laquelle on lance la macro) qui fait appel à une feuille "critères" qui est fixe.
Je copie des données de la feuille critères, que je colle / transpose dans ma feuille active. Sauf que dans le code, j'écris que je retourne dans la feuille X "nommée Feuil2" pour coller ces données et donc je fige ma macro sur la feuille n°2.
J'ai essayé un système intermédiaire avec une formule =criteres!C1, mais je ne peux pas tirer la formule vers la droite, ça ne fonctionne pas. J'ai aussi essayé avec la fonction decaler mais sans succès (à noter que cette dernière fonction, je ne suis pas encore très à l'aise, c'est peut être pour ça que je n'ai pas réussi, car ça me semblait pourtant bien approprié).
Voilà mon bout de code qui me pose problème :
Code:
'Extraire la liste unique des modèles unique sur la feuille critère
Sheets("Criteres").Columns("B:B").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Criteres").Range("C1"), Unique:=True
'Transposer cette liste sur la feuille active
Sheets("Criteres").Select
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select [COLOR="Blue"][B]c'est ici que je dois nommer
la feuille sur laquelle je retourne alors qu'elle est variable[/B][/COLOR]
Range("B28").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Je vous joins mon bout de fichier également.
Merci par avance,
Sofhy