Cherche Macro Excel

Question

Bonjour

Je cherche un macro qui fait se calcule là :

J’ais 2 classeur Excel classeur1 et classeur2 , dans le classeur1 jais plusieurs feuil est le nombre de set feuil n’est pas fixe peux être plus ou moins ( temps en temps j’ajoute une feuil et j’enlève autre ) , j’ais des enregistrement dans c’est feuil dans les même cellule pour tous les feuil ,c’est a dire c’est la même feuil dupliquer plusieurs fois avec des enregistrement défirent , par exemple :

A1 ------> c’est le Nom du client
E5 ------> c’est l’Adresse client
H9 -----> c’est le Tel client

C’est enregistrement la sen dan les même cellule pour tous les feuil mes avec des valeur défirent (client défirent ,chaque feuil pour un client ).

Alors je veux la macro dans le classeur2 qui me donné c’est enregistrement là automatiquement chaque feuil (client) dans une ligne . (en prend en charge ue en peux ajouter des feuil (client) est supprimer autre .

C’est trais urgent
Je vous remercier d’avance
Merci Beaucoup.

toufik638 · Answer

une repense SVP c'est urgent Merci

Utilisateur anonyme · Answer

Salut Toufik,Regardes ici --> http://www.cathyastuce.com/excel.htm++"Il n'est rien de réel que le rêve et l'amour"

toufik638 · Answer

Merci pour la repense mais j’ais pas trouver dans le site se que je cherche .HELP SVP...merci

toufik638 · Answer

AIDE....

toufik638 · Answer

voila le code que j'ais sur VB de macro que je les enregistrer mais pour un seule enregistrement :

Sub copier()
'
' copier Macro
' Macro enregistrée le 06/05/2006 par tnamane
'

'
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil3!R1C1"
Range("C3").Select
Windows("Classeur1.xls").Activate
Range("B3").Select
Windows("Classeur2.xls").Activate
Range("C3").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil3!R2C2"
Range("C4").Select
Windows("Classeur1.xls").Activate
Range("C4").Select
Windows("Classeur2.xls").Activate
Range("D3").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil3!R3C3"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil2!R1C1"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil2!R2C2"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil2!R3C3"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil1!R1C1"
Range("B7").Select
Windows("Classeur1.xls").Activate
Windows("Classeur2.xls").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil1!R2C2"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil1!R3C3"
Range("E9").Select

End Sub

que ment faire se code la en BOUCLE , c'est a dire en boucle pour tous les feuil existe dans le classeur1.

Maher · Answer

consulter le help MSEXCEL

toufik638 · Answer

Merci baucoup pour les repense …. Je chercher toujours Mens adresse e-mail pour me contacter c’est :  toufik638@yahoo.fr

toufik638 · Answer

HELP...

laranzu · Answer

Tu peux esayer de mettre ce code dans ton classeur Excel Classeur2.xls dans un module VB :

sub RASSEMBLE()
   with application.workbooks("Classeur2.xls").worksheets(1)
      i=3
      for each feuille in application.workbooks("Classeur1.xls").workbooks
         .cells(i,2).value=feuille.cells(1,1).value
         .cells(i,3).value=feuille.cells(2,2).value
         .cells(i,4).value=feuille.cells(3,3).value
         i=i+1
      next
   end with
end sub

Je ne l'ai pas testé mais il devrait te copier les cellules A1, B2 et C3 de chaque feuilles du Classeur1.xls dans la première feuille de ton classuer initial dans les cellules des colonnes B, C et D.
On incrémente une ligne par feuille.

Cherche Macro Excel

9 réponses

Discussions similaires

Newsletters