OVH Cloud OVH Cloud

visual basic

2 réponses
Avatar
Isabelle Chapados
Bonjour à tous,

j'ai une macro qui est relié avec une page

private sub exel(...)
Sheets("1").Cells(nb, 3).Value = date_fermeture
Sheets("1").Cells(nb, 4).Value = client
Sheets("1").Cells(nb, 5).Value = num_client
Sheets("1").Cells(nb, 6).Value = description
Sheets("1").Cells(nb, 7).Value = montant
Sheets("1").Cells(nb, 8).Value = premier
Sheets("1").Cells(nb, 11).Value = rang
...
Mon problème est que j'ai 52 feuilles et je voudrais savoir si il y a un
moyen de ne pas refaire 52 fois la private sub

Je précise ma question :
Es ce que je peux utiliser 52 fois la même macro mais à chaque fois que je
change de feuilles le nom change pour la feuille courante...pour que les
informations s'inscrive sur la page courante

J'espère que j'ai été assez claire ;-)

Merci Beaucoup d'avance
Isa

2 réponses

Avatar
MichDenis
Bonjour Isabelle,

Tu places ta macro dans un module standard, si ce n'est déjà fait et, tu enlèves "Sheets("1")." en début de chacune de
tes lignes de code... de cette manière, c'est la feuille active qui va recevoir les données à chaque fois que tu vas
faire intervenir cette macro.

'-----------------------
private sub exel(...)
Cells(nb, 3).Value = date_fermeture
Cells(nb, 4).Value = client
Cells(nb, 5).Value = num_client
Cells(nb, 6).Value = description
Cells(nb, 7).Value = montant
Cells(nb, 8).Value = premier
Cells(nb, 11).Value = rang
'.../...
End sub
'-----------------------


Salutations!


Salutations!


"Isabelle Chapados" a écrit dans le message de news:

Bonjour à tous,

j'ai une macro qui est relié avec une page

private sub exel(...)
Sheets("1").Cells(nb, 3).Value = date_fermeture
Sheets("1").Cells(nb, 4).Value = client
Sheets("1").Cells(nb, 5).Value = num_client
Sheets("1").Cells(nb, 6).Value = description
Sheets("1").Cells(nb, 7).Value = montant
Sheets("1").Cells(nb, 8).Value = premier
Sheets("1").Cells(nb, 11).Value = rang
...
Mon problème est que j'ai 52 feuilles et je voudrais savoir si il y a un
moyen de ne pas refaire 52 fois la private sub

Je précise ma question :
Es ce que je peux utiliser 52 fois la même macro mais à chaque fois que je
change de feuilles le nom change pour la feuille courante...pour que les
informations s'inscrive sur la page courante

J'espère que j'ai été assez claire ;-)

Merci Beaucoup d'avance
Isa
Avatar
Isabelle Chapados
Merci infiniment... :-)


Bonjour à tous,

j'ai une macro qui est relié avec une page

private sub exel(...)
Sheets("1").Cells(nb, 3).Value = date_fermeture
Sheets("1").Cells(nb, 4).Value = client
Sheets("1").Cells(nb, 5).Value = num_client
Sheets("1").Cells(nb, 6).Value = description
Sheets("1").Cells(nb, 7).Value = montant
Sheets("1").Cells(nb, 8).Value = premier
Sheets("1").Cells(nb, 11).Value = rang
...
Mon problème est que j'ai 52 feuilles et je voudrais savoir si il y a un
moyen de ne pas refaire 52 fois la private sub

Je précise ma question :
Es ce que je peux utiliser 52 fois la même macro mais à chaque fois que je
change de feuilles le nom change pour la feuille courante...pour que les
informations s'inscrive sur la page courante

J'espère que j'ai été assez claire ;-)

Merci Beaucoup d'avance
Isa