Dopaji

Hulk

XLDnaute Barbatruc

• 2 Avril 2009

• #2

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.

 

Vote positif 0 Vote négatif

D

Dopaji

Guest

• 2 Avril 2009

• #3

Re : Dopaji

Hulk à dit:

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.

Cliquez pour agrandir...

Merci pour ton aide Hulk.

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 2 Avril 2009

• #4

Re : Dopaji

Bonjour

J'ai déplacé le fil

 

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 3 Avril 2009

• #5

Re : Dopaji

Bonjour Dopaji,

Dopaji à dit:

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

Cliquez pour agrandir...

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

Code:

Sub macro1()
  ta macro

  macro2
End Sub

Sub macro2()
...

Sinon tu peux aussi faire ainsi :

Code:

Sub macro1()
  ta macro

  call macro2
End Sub

Sub macro2()
...

Idem pour les macros suivante.

Dopaji à dit:

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

Cliquez pour agrandir...

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

Bon vendredi

 

Vote positif 0 Vote négatif

D

Dopaji

Guest

• 3 Avril 2009

• #6

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 ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2009

• #7

Re : Dopaji

bonjour Dopaji

Quelque chose du genre:

Code:

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

 

Vote positif 0 Vote négatif

D

Dopaji

Guest

• 7 Avril 2009

• #8

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Avril 2009

• #9

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

 

Vote positif 0 Vote négatif

D

Dopaji

Guest

• 8 Avril 2009

• #10

Re : Dopaji

Cela ne fonctionne pas . Je ne comprend pas la logique

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Avril 2009

• #11

Re : Dopaji

Re

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

 

Vote positif 0 Vote négatif