aide réalisation macro excel

[Broyon pascal]

auteur : Broyon Pascal
date : 11/03/2004

Bonjour ,
j'aimerais créer une macro excel pour répéter une action tant que la ligne suivante (colonne A) n'est pas vide .

action à réaliser dans mon vocabulaire :
1 : cellule A2 sélectionner , couper les 4 premiéres colonnes (A2;D2)
2 : coller à la ligne précedente en colonne E (E1)
3 : aller trois lignes plus bas en colonne A (A4)
4 : recommencer les 3 premiéres étapes tant que la cellule n'est pas vide c'est à dire : A6 non vide , A8 non vide,etc.....

merci ,

pascal

 

[Coyote]

Je crois avoir compris ce que tu désirais faire.

J'ai peut-être une solution plus efficace qu'une macro

Tu veux recopier les données des colonnes A à D de toutes les lignes paires (A22 ; A44 ; A66)

Si c'est le cas, regardes mon fichier joint : fichier filtre.zip à renommer en filtre.xls (je n'ai pas Winzip sur ce PC)

 

[omicron]

Bonsoir Pascal,

Voici une petite séquence de code qui devrait répondre au problème posé :

lig = 2
Do While Range("A" & lig).Value <> ""
For i = 1 To 4
ActiveSheet.Cells(lig - 1, i + 4).Value = ActiveSheet.Cells(lig, i).Value
Next i
lig = lig + 2
Loop

Cordialement ...