Aide pour exécuter macro dans touts les onglets

F

flyonets44

XLDnaute Occasionnel

• 1 Décembre 2011

• #2

Re : Aide pour exécuter macro dans touts les onglets

Bonjour
tu peux essayer
Dim k as long
For K 1 To sheets.count
ton code

next
Cordialement
Flyonets

 

Vote positif 0 Vote négatif

P

pledger

XLDnaute Junior

• 1 Décembre 2011

• #3

Re : Aide pour exécuter macro dans touts les onglets

Bonjours flyonets44

J'ai tester avec ton code mais il me met la ligne

For K 1 To sheets.count

Cliquez pour agrandir...

J'ai donc mis

Sub test()
Dim k As Long

For k = 1 To Sheets.Count

Rows("1:2").Select
Range("A2").Activate
Selection.Delete Shift:=xlUp

Dim nom As String
nom = ActiveSheet.Name
Columns("C:C").Insert Shift:=xlToRight
Range("C2:C" & Range("A65536").End(xlUp).Row).Value = ActiveSheet.Name

Next

End Sub

Cliquez pour agrandir...

Mais cela a marché que dans la feuille acive

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2011

• #4

Re : Aide pour exécuter macro dans touts les onglets

Bonjour,

bah... normal, tu cibles "activesheet" et d'autre part devant les objets "range" tu ne précise pas le nom ou l'index de la feuille, de ce fait le code s'applique à la feuille active ou à la feuille dans lequel est exécuté le code, si celui-ci est placé dans un module de feuille...

 

Vote positif 0 Vote négatif

P

pledger

XLDnaute Junior

• 1 Décembre 2011

• #5

Re : Aide pour exécuter macro dans touts les onglets

Salut Pierrot93 ,

Cela veux donc dire qu'il faut que je précise mes feuilles cible dans le code ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2011

• #6

Re : Aide pour exécuter macro dans touts les onglets

Re,

oui, comme ceci, par exemple, si tu utilises la boucle "for" :

Code:

Sheets(k).Range("C2:C" & Sheets(k).Range("A65536").End(xlUp).Row).Value = ActiveSheet.Name

 

Vote positif 0 Vote négatif

P

pledger

XLDnaute Junior

• 1 Décembre 2011

• #7

Re : Aide pour exécuter macro dans touts les onglets

Je vois ce que tu veux dire mais le soucis c'est que j'ai plusieurs fichiers a traité et certains ont pas les même onglets . Il existe vraiment pas de solution ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2011

• #8

Re : Aide pour exécuter macro dans touts les onglets

Re,


euh... vois pas tro ce que tu veux dire...

Code:

Sheets(k)

s'appliquera à n'importe quel onglet du classeur actif.... sinon il y a peut être lieu de présiser le classeur en question....

 

Vote positif 0 Vote négatif

P

pledger

XLDnaute Junior

• 1 Décembre 2011

• #9

Re : Aide pour exécuter macro dans touts les onglets

Je ne dois pas etre bien réveillé ce matin , et je vois pas où intégrer

Sheets(k).Range("C2:C" & Sheets(k).Range("A65536").End(xlUp).Row).Value = ActiveSheet.Name

Cliquez pour agrandir...

dans mon code

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2011

• #10

Re : Aide pour exécuter macro dans touts les onglets

Re,

il faut l'intégrer à ta boucle en lieu et place de :

Code:

Range("C2:C" & Range("A65536").End(xlUp).Row).Value = ActiveSheet.Name

Après les autres instructions de la boucle sont sans doute à adapter également.... mais comme je sais pas précisément ce que tu veux faire....

 

Vote positif 0 Vote négatif