Dopaji

[Dopaji]

Bonjour à tous.

Je suis nouveau sur ce forum. Je vous prie de bien vouloir m'excuser pour les erreurs que je pourrais commettre.

Voici mon soucis.

J'ai un classeur avec 20 feuilles; avec cinq macros par feuilles ( cinq mêmes macro pour chaque feuille). Je voudrais que les cent macro s'effectuent en une seules fois.

Quelqu'un pourrait-il m'aider. Merci d'avance

 

[Hulk]

Re : Dopaji

Salut Forum, Dopaji,

Bienvenue sur le Forum Dopaji.

Joint un petit fichier modèle même une partie, tu auras plus d'aide 😀

Tu peux attacher un fichier mais pas plus lourd que 50Ko. Pense à le zipper.
Si plus lourd, utilise Cijoint.fr - Service gratuit de dépôt de fichiers par exemple.

Cdt, Hulk.

 

[Dopaji]

Re : Dopaji

Salut Forum, Dopaji,

Bienvenue sur le Forum Dopaji.

Joint un petit fichier modèle même une partie, tu auras plus d'aide 😀

Tu peux attacher un fichier mais pas plus lourd que 50Ko. Pense à le zipper.
Si plus lourd, utilise Cijoint.fr - Service gratuit de dépôt de fichiers par exemple.

Cdt, Hulk.

Merci pour ton aide Hulk.

Je crois aussi que je n'aii pas placé mon message au bon endroit

 

[PascalXLD]

Re : Dopaji

Bonjour

J'ai déplacé le fil

 

[Excel-lent]

Re : Dopaji

Bonjour Dopaji,

J'ai un classeur avec 20 feuilles; avec cinq macros par feuilles ( cinq mêmes macro pour chaque feuille).

L'idéal pour éviter la répétition inutile de tes 5 même macro, au lieu de les mettre sur chaque feuille, met les qu'une fois dans Module en l'adaptant très légèrement (sans ta macro difficile de t'aider plus).

Ensuite a la fin de ta première macro, il te suffit, juste avant le End Sub d'appeler la macro suivante.

Comment?

En écrivant tout simplement son nom. Exemple

Sub macro1()
  ta macro

  macro2
End Sub

Sub macro2()
...

Sinon tu peux aussi faire ainsi :

Sub macro1()
  ta macro

  call macro2
End Sub

Sub macro2()
...

Idem pour les macros suivante.

Je voudrais que les cent macro s'effectuent en une seules fois.

Là, tu en auras plus que 5 et se lancerons en une seul fois.

Bon vendredi

 

[Dopaji]

Re : Dopaji

Merci Excel-Lent pour ton aide. Ca fonctionne parfaitement sur une feuille.
Je t'explique ce que je veux faire. Je fais un suivi journalier de 20 sociétés cotées en bourse. Tous les jours à la cloture je dois calculer la valeur des indicateurs techniques.
J'ai donc créé un classeur avec une feuille par société (Copie de feuille). J'ai donc 20 fois la même présentation. Je veux chaque soir afficher dans une cellules voisines les valeurs journalières pour ces différents indices.

Voici la macro que j'utilise.

Sub indice1 ()
Range ("A65536").Select
ActiceCell.End(xlUp).Select
Range ("M1")=Activecell.Value
Call indice2
End Sub

Sub indice2 ()
Range ("B65536").select
.
.
.

Et ainsi de suite pour tous les indices.

Cela fonctionne sur une seule feuille car j'ai les mêmes colonne sur les feuilles suivantes (Même présentation

Si j'utilise la même macro pour la feuille suivante j'ai une erreur 400. Je suppose que c'est parce que j'ai les mêmes adresses.

Je ne connais pas la syntaxe à utiliser pour faire la différence ebtre les feuilles.

Peux-tu m'aider ?

 

[pierrejean]

Re : Dopaji

bonjour Dopaji

Quelque chose du genre:

Sub indice1()
Dim sh As Worksheet
For Each sh In Worksheets
 sh.Range("M1") = sh.Range("A65536").End(xlUp)
Call indice2(sh)
Next sh
End Sub
Sub indice2(sh As Worksheet)
 sh.Range("B65536").Select
 '......
End Sub

 

[Dopaji]

Re : Dopaji

Je ne comprends pas la syntaxe. Je suis plus que débutant en macro. Que veut dire Dim sh As Worksheets. Pour le reste je crois que je comprends tout. Merci pour votre aide.

 

[pierrejean]

Re : Dopaji

Re

Dim sh as worksheet
declare la variable sh comme etant une Worksheet
for each sh in worksheets
....
next sh
permet de travailler sur toutes les feuilles du fichier

 

[Dopaji]

Re : Dopaji

Cela ne fonctionne pas . Je ne comprend pas la logique

 

[pierrejean]

Re : Dopaji

Re

sans en savoir plus sur ton problème je ne peux rien faire de mieux
Désolé .....