Cherche Macro Excel
toufik638
-
laranzu -
laranzu -
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.
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.
A voir également:
- Cherche Macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
9 réponses
Salut Toufik,
Regardes ici --> http://www.cathyastuce.com/excel.htm
++
"Il n'est rien de réel que le rêve et l'amour"
Regardes ici --> http://www.cathyastuce.com/excel.htm
++
"Il n'est rien de réel que le rêve et l'amour"
Bonjour !
Trouvé plusieurs pages sur Mozilla mais ne connaissant pas précisément tes besoins, je te joins le lien :
https://www.google.fr/search?client=firefox-a&rls=org.mozilla%3Afr%3Aofficial_s&hl=fr&q=macro+pour+Excel&meta=&btnG=Recherche+Google&gws_rd=ssl
En espérant que tu trouves !
Bonne journée !
Trouvé plusieurs pages sur Mozilla mais ne connaissant pas précisément tes besoins, je te joins le lien :
https://www.google.fr/search?client=firefox-a&rls=org.mozilla%3Afr%3Aofficial_s&hl=fr&q=macro+pour+Excel&meta=&btnG=Recherche+Google&gws_rd=ssl
En espérant que tu trouves !
Bonne journée !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
Merci baucoup pour les repense …. Je chercher toujours
Mens adresse e-mail pour me contacter c’est :
toufik638@yahoo.fr
Mens adresse e-mail pour me contacter c’est :
toufik638@yahoo.fr
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.
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.
