Discussion :

[DebuVBA]

bonjour les amis, j'ai besoin de votre aide encore une fois
je suis entrain de créer un macro qui fait plusieurs choses (générer une feuille, chercher et copier des donnée des autres feuilles puis créer un tableau dans la feuille générer et coller les données copier) mon problème (peut être simple, je sais pas je reste encore débutant en vba) c'est que je sais pas comment exclure la feuille générer au début d’être traiter comme les autres.

voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub traitement()
Dim feuille As Worksheet
Call InsereFeuille
For Each feuille In ActiveWorkbook.Sheets
feuille.Activate
Call TraitementTitre
Next feuille
End Sub

je ne sais pas où et comment ajouter l'exclusion de la feuille supposant nommée "feuilExclu"

Merci d'avance et désolé pour le dérangement

[casefayere]

Bonjour,
essayes, dans ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each feuille In ActiveWorkbook.Sheets
  If feuille.Name <> "feuilExclu" Then
    '........
  End If
Next feuille

mais je ne comprends pas pourquoi cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuille.Activate

qui ne devrait servir à rien

[DebuVBA]

Merci énormément casefayere pour votre reponse.

quand j'ai utilisé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub traitement()
Dim feuille As Worksheet
Call InsereFeuille
For Each feuille In ActiveWorkbook.Sheets
  If feuille.Name <> "feuilExclu" Then
  Call TraitementTitre
  End If
Next feuille
End Sub

le traitement touche aussi la feuille "feuilExclu"

par contre celui la on laissant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuille.Activate

à ça place, j'ai eu le résultat que je voulais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub traitement()
Dim feuille As Worksheet
Call InsereFeuille
For Each feuille In ActiveWorkbook.Sheets
feuille.Activate
  If feuille.Name <> "feuilExclu" Then
  Call TraitementTitre
  End If
Next feuille
End Sub

Merciiiiiiii

[casefayere]

par contre celui la on laissant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuille.Activate

tout dépend du traitement de ta macro suivante "TraitementTitre" que tu ne publies pas

penses à cliquer sur

[Marc-L]

Bonjour !

L'Activate de la ligne n°5 ne sert à rien pour le test de la ligne suivante ‼
Il devrait se situer juste avant la ligne n°7 !
Il a une incidence pour la procédure TraitementTitre mal conçue car fonctionnant sur la feuille active …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[DebuVBA]

j'ai appliqué ce que vous avez dit Marc-L, et j'ai eu le même résultat sauf qu'il a pris un peu plus de temps que par rapport a la première façon

casefayere, la macro TraitementTitre ne fait que cherche la case titre puis copier le contenu de la cellule non vide qui est en face d'elle, et aussi quand elle colle le titre, elle recule d'une colonne pour coller le nom de la feuille contenant ce titre c tt

[Marc-L]

Aucun rapport avec le temps d'exécution !
Si la procédure avait été bien conçue, l'Activate serait inutile et donc la procédure aurait pu être encore plus rapide …

Chaque Activate ou Select équivaut à écraser les freins au feu vert !

[unparia]

Bonjour

j'ai appliqué ce que vous avez dit Marc-L, et j'ai eu le même résultat sauf qu'il a pris un peu plus de temps que par rapport a la première façon

casefayere, la macro TraitementTitre ne fait que cherche la case titre puis copier le contenu de la cellule non vide qui est en face d'elle, et aussi quand elle colle le titre, elle recule d'une colonne pour coller le nom de la feuille contenant ce titre c tt

Qu'attends-tu pour passer chaque feuille concernée en paramètre de ta sub TraitementTitre ?

[DebuVBA]

ok Marc-L, je vais voir si je peux faire en sorte d’éliminé cette instruction (activate).

[DebuVBA]

Bonjour



Qu'attends-tu pour passer chaque feuille concernée en paramètre de ta sub TraitementTitre ?

Le but c'est d'extraire des titres des tableaux (tableau/feuille) et les réunir dans un tableau dans la feuille générer "feuilExclu".

et la reponse que M. casefayere m'a donné marche à merveille