realiser une macro

realiser une macro - Logiciels - Windows & Software

Marsh Posté le 24-10-2006 à 07:22:42    

Bonjour à tous,
 
Je suis complètement debutant, mais je voudrais realiser une macro sur exel
 
je voudrais recopier uniquement sur la feuille2 les lignes de la feuille1 SI le nombre d'articles dans la colonne A est superieure à 0
 
nbr    article    prix unitaire  total
1       rose        3               3
0       Lys         5               0
2       freesia     2               4
 
ceci afin d'automatiser une facturation en feuille2
 
D'avance merci de votre aide
 
Marc

Reply

Marsh Posté le 24-10-2006 à 07:22:42   

Reply

Marsh Posté le 24-10-2006 à 11:15:20    

Salut,  
 
Tout d'abord sache que sur ce forum, les gens n'aiment pas beaucoup travailler à ta place.  
 
Aussi débutant que tu sois, tu dois d'abord faire tes propres recherches (Google etc.) et essais, et lorsque tu tombes sur un os les gens sont disposés ici à t'aider. Mais arriver et demander : "programmez-moi ça", c'est généralement mal vu.
 
Ensuite, sur Excel, un truc sympa pour apprendre les macros c'est d'utiliser "l'enregistreur". Tu effectues tes opérations à la main pendant qu'il enregistre, puis tu analyses le code et tu en tires tes déductions, le VBA c'est vraiment pas dur, même s'il a ses particularités made in M$.
 
Enfin, et parce que je suis de bonne humeur aujourd'hui, voilà le code de ta macro :)
 

Code :
  1. Sub tri()
  2. Sheets("Sheet1" ).Select
  3. Range("A2" ).Select
  4. Dim x: x = 2
  5. Dim y: y = 1
  6. Do While ActiveCell.Value <> ""
  7. If ActiveCell.Value > 0 Then
  8.     Rows(x & ":" & x).Select
  9.     Selection.Copy
  10.     Sheets("Sheet2" ).Select
  11.     Range("A" & y).Select
  12.     ActiveSheet.Paste
  13.     Sheets("Sheet1" ).Select
  14.     y = y + 1
  15.    
  16. End If
  17. x = x + 1
  18. Range("A" & x).Select
  19. Loop
  20. End Sub


 
Tu adapteras bien sûr le nom des feuilles (en français "Feuil1" et "Feuil2" par défaut) et la variable "x" si tu n'as pas de ligne de titre sur ta première feuille ou que tu en as plus d'une ...


Message édité par ZeBix le 24-10-2006 à 11:16:03
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed