macro dependante de la feuille de lancement

[jderoque]

voici mon probleme
j'ai une macro qui copie les données d'un feuille dans une autre
le probleme est ke la feuille d'arrivé des donnée est toujours la meme (historique)
mé la feuille de départ ou se trouve les données n'est jamais la méme, j'en ai 50.
je ne veu pas créer 50 macro mé une. il faut donc ke ma macro sache de kél feuille je suis parti, et copi les données ds la feuille historique depuis la feuille avec laquelle elle a etait lancé.
je n'ai vraiment aucune idée dc si qqn peut m'aidé ca seré vraiment cool

 

[JYLL]

Bonsoir,

Je pense quand mettant dans ta macro une ligne comme:

Nom_Feuille=inputbox('Nom de la feuille','Saisie')
Sheets(Nom_Feuile).select

Tu pourras rentrer le nom de la feuille à copier.

Bon test.

amicalement.

JYLL

 

[Charly2]

Bonsoir jderoque et JYLL

ce ke tu 2mande, jd, nè pa bi1 dificil à obtenir. Il sufi peut-etr 2 parler en bon français pr avoir la solution...

Bon, trève de plaisanterie. Si ta macro est lancée depuis la feuille à copier, tu peux essayer ceci :

Dim IndFeuil As Integer

Sub TaMacro ()
'
IndFeuil = ActiveSheet.Index
...
TonCode
...
End Sub

Il faut qu'à chaque fois que tu fais appel à ta feuille source, tu indiques :

Sheets(IndFeuil)...

Amicalement
Charly

 

[Blister58]

Charly2 a de l'humour et plutot raison a mon sens
La syntaxe est impérative en prog.
Trève de chicannerie.
Crée soit un bouton soit un menu qui lancera la copie de tes données de la feuille active vers ton historique, et stocke le nom de ta feuille de départ sur une ligne en regard des tes datas

Cordialemment

 

[jderoque]

ok merci bcp je vé testé ca. et desolé pour ma difficultée a m'exprimer

 

[ca marche]

ok merci bcp charly2 pour ton aide ca marche nikel. peut tu m'expliker ce ke signifie la premiere phrase du code que tu ma fé tapper?

 

[Charly2]

Bonjour le fil

J'ai pris la précaution de déclarer IndFeuil à l'extérieur de ta macro car je ne savais pas si tu avais des sous-procédures qui, peut-être, en avaient besoin.

Ensuite la première instruction de ta macro affecte l'indice de la feuille active à cette variable IndFeuil. Ainsi, tu peux activer ta feuille historique sans problème puisqu'il suffit d'écrire :
Sheets(IndFeuil).Activate pour revenir à ta feuille de départ...

Voili voilà

Amicalement
Charly