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 :
- Sub tri()
- Sheets("Sheet1" ).Select
- Range("A2" ).Select
- Dim x: x = 2
- Dim y: y = 1
- Do While ActiveCell.Value <> ""
- If ActiveCell.Value > 0 Then
- Rows(x & ":" & x).Select
- Selection.Copy
- Sheets("Sheet2" ).Select
- Range("A" & y).Select
- ActiveSheet.Paste
- Sheets("Sheet1" ).Select
- y = y + 1
-
- End If
- x = x + 1
- Range("A" & x).Select
- Loop
- 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
