Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2817 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide pour une macro excel

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Aide pour une macro excel

n°1754580
benbigboss
Posté le 02-07-2008 à 15:04:58  profilanswer
 

Salut à tous,
 
je suis un peu embeté. J'essaie de faire une macro sous excel, mais sans succé depuis ce matin !
 
En fait, j'ai un classeur sous excel avec de trééééés nombreuses feuilles. Et sur chacune de ses feuilles j'ai des references.
Et parfois je dois rajouter des references à toutes ces feuilles. L'idée c'est de faire une nouvelle feuille, par exemple 'ajout reference', où avec une macro je pourrais en un seul coup rajouter une reference à toutes les feuilles.
 
J'ai donc une cellule 'nom de la reference', une cellule 'prix', mais je n'arrive pas à faire ma macro.
 
Pouvez vous m'aider svp ?
 
merci beaucoup :)

mood
Publicité
Posté le 02-07-2008 à 15:04:58  profilanswer
 

n°1754603
babasss
Posté le 02-07-2008 à 15:44:02  profilanswer
 

C'est quoi une référence ?


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
n°1754648
benbigboss
Posté le 02-07-2008 à 17:40:09  profilanswer
 

C'est un intitulé, ca peut etre "GRH302", ou encore "taille crayon à pointe fine".  
Tu penses pouvoir m'aider ?

n°1754667
babasss
Posté le 02-07-2008 à 18:20:32  profilanswer
 

C'est le nom de la cellulle ? (celui présent en haut à gauche)
Si c'est pas ca, donne un exemple ou une copie écran ou plus d'explication...


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
n°1754944
benbigboss
Posté le 03-07-2008 à 11:16:29  profilanswer
 

En fait, c'est pas compliqué.
Regarde
 
http://www.zimagez.com/zimage/sans [...] 30deb2.php
 
 
Je voudrais creer une macro qui me permet de rajouter qqc en dessous de "trombone", mais dans toutes mes feuilles...


Message édité par benbigboss le 03-07-2008 à 11:17:25
n°1754964
babasss
Posté le 03-07-2008 à 11:38:46  profilanswer
 

La ligne à laquelle il faut rajouter ton nouveau champ est la même dans tous tes onglets ou est ce que à chaque fois, il faut la déterminer ?


Message édité par babasss le 03-07-2008 à 11:39:00

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
n°1754971
benbigboss
Posté le 03-07-2008 à 11:44:25  profilanswer
 

Oui, la ligne est la meme pour toutes les feuilles
En fait toutes les feuilles ont la meme forme. Seules les quantitées vont varier d'une forme à l'autre...


Message édité par benbigboss le 03-07-2008 à 11:45:05
n°1755005
babasss
Posté le 03-07-2008 à 12:36:37  profilanswer
 

Tu places sur l'onglet "mononglet" :

  • en A1 : la ligne sur laquelle il faut faire l'ajout
  • en A2 : le nom de la cellule
  • en A3 : le prix


Code :
  1. Private Sub test()
  3. nb_onglet = ActiveWorkbook.Sheets.Count
  4. ligne = Sheets("mononglet" ).Cells(1, 1).Value
  5. nom_cellule = Sheets("mononglet" ).Cells(2, 1).Value
  6. prix = Sheets("mononglet" ).Cells(3, 1).Value
  8. For i = 2 To nb_onglet
  9.     With Sheets(i)
  10.         .Cells(ligne, 1).Value = nom_cellule
  11.         .Cells(ligne, 2).Value = prix
  12.     End With
  13. Next
  15. End Sub


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
n°1755121
benbigboss
Posté le 03-07-2008 à 14:52:58  profilanswer
 

Super, ca ressemble à ce que je souhaite.
 
Cependant, c'est pas encore tout à fait ca... et tu vas trouver que j'abuse trop (car c'est moi qui me suit mal exprimé.)
 
Est il possible que la ligne n'est pas besoin d'etre demandée ? L'idée c'est que ca aille direct sur la derniere ligne de la liste.
Le probleme, c'est qu'en dessous la derniere ligne de la liste, il y a la ligne somme qui donne le total... et il faudrait qu'a chaque fois qu'on rajoute un produit, que la ligne somme se decalle aussi.
 
De plus, peut on indiquer les feuilles qui sont concernées ? Car a la toute fin, il ya deux feuilles de recap qui ne sont pas concernée.
 
Bref, j'ai fais une ebauche, mais ca fonctionne pas grrrr!

Code :
  1. Sub feuille2
  2. '
  3. ' Macro pour la feuille 1
  4. '
  6. '
  7.     Sheets("Nouvel article" ).Select
  8.     Range("B5" ).Select
  9.     Selection.Copy
  10.     Sheets("feuille 2" ).Select
  11.     ActiveWindow.SmallScroll Down:=137
  12.     Range("B156" ).Select
  13.     ActiveSheet.Paste
  14.     ActiveWindow.SmallScroll Down:=-137
  15.     Range("B7:N156" ).Select
  16.     ActiveWindow.SmallScroll Down:=-138
  17.     Application.CutCopyMode = False
  18.     Selection.Sort Key1:=Range("B7" ), Order1:=xlAscending, Header:=xlGuess, _
  19.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  20.     Range("A1" ).Select
  21. End Sub


 
Et faire ca pour chaque feuille...
Mais pkoi ca fonctionne pas ???

n°1755143
babasss
Posté le 03-07-2008 à 15:09:40  profilanswer
 

un truc comme ca alors :

Code :
  1. Private Sub test()
  2. nb_onglet = ActiveWorkbook.Sheets.Count
  3. nom_cellule = Sheets("mononglet" ).Cells(1, 1).Value
  4. prix = Sheets("mononglet" ).Cells(2, 1).Value
  5. For i = 2 To nb_onglet
  6.     Sheets(i).Activate
  7.     ligne = Cells(1, 1).End(xlDown).Row - 1
  8.     Rows(ligne & ":" & ligne).Insert Shift:=xlDown
  9.     Rows((ligne + 1) & ":" & (ligne + 1)).Select
  10.     Selection.Cut
  11.     Rows(ligne & ":" & ligne).Insert Shift:=xlDown
  12.     Cells(ligne + 1, 1).Value = nom_cellule
  13.     Cells(ligne + 1, 2).Value = prix
  14. Next
  15. End Sub


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
mood
Publicité
Posté le 03-07-2008 à 15:09:40  profilanswer
 

n°1755152
benbigboss
Posté le 03-07-2008 à 15:17:21  profilanswer
 

Ca bug sur :
 
Rows((ligne + 1) & ":" & (ligne + 1)).Select

n°1755157
babasss
Posté le 03-07-2008 à 15:20:39  profilanswer
 

Met la macro dans un module


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide pour une macro excel

 

Sujets relatifs
création de feuille spécifique excel[Excel + Macro] Protection de feuille + Lancement automatique Macro
[VBA / Excel] Aide sur une macro a programmermacro excel pour copier et trier des colonnes : aide débutant
aide pour macro excelAide pour une macro excel
excel aide macro pr comparer des lignesBesoin d'aide macro sur excel
Besoin d aide pour une macro excel / VBA svpA l'aide, comment executer une macro ds un autre document Excel [VB]
Plus de sujets relatifs à : Aide pour une macro excel

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.063 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR