EXCEL vba

Résolu
ines009 Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
ines009 Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
COUCOU

J'ai un fichier excel sur lequel j'ai 27 produits(un pour chaque feuille) donc j'ai 27 feuilles
je dois utiliser une boucle pour lancer la meme macro sur les 27 feuilles de facon automatique

Sub Auto

Dim Sheet As Worsheets
For sheet=1 To 27

ICI J'ai mon CODE

End Sub



Ca ca marche pas aidez moi s'il vous plait MERCIIIIII




5 réponses

Réponse 1 / 5
Paf
 
Après avoir regardé le reste du code (voir autre post) si toutefois il s'agit du même code(!) la modif en gras: 

For i = 1 To 27 
   Worksheets(i).Select

  'Etape 1 insertion de lignes de la ligne 620 à à 1019
   Worksheets(i).Rows("620:1019").Select
   Selection.Insert Shift:=xlDown

  ' Etape 2 copier Range("A1:FB19")
   Worksheets(i).Range("A1:FB19").Select
   Worksheets(i).Range("FB19").Activate
   Selection.copy

  'Etape 3 Coller le Range ("A1:FB19") dans ("A1001:FB1019") donc à partir de    A1001
   Worksheets(i).Range("A1001").Select
   ActiveSheet.Paste 

next i


A+
1
Réponse 2 / 5
Paf
 
mais pourquoi ouvrir un nouveau post ?

tu as la réponse pour 6 feuilles dans ton autre post!!
0
Réponse 3 / 5
ines009 Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
 
parce que ca marche pas????
jcomprends pas???
0
Réponse 4 / 5
Paf
 
re
tu aurais du continuer sur le même post!

pour tester la boucle : 

For i = 1 To 27 
   Worksheets(i).Select 
   MsgBox Worksheets(i).Name 
Next


ça, ça marche.

maintenant qu'est ce qui ne marche pas? à quel endroit? quel est le message? l'erreur?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
ines009 Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
 
Ca a bien marcher comme ca merci beaucoup c exactement cque jvoulais
0