copier des cellules

[DAMIEN]

bonsoir à tous

Sub navcom()
Windows("message.xls").Activate
Dim xlig, xlig1, xlig2, xlig3, xlig4 As Byte

xlig1 = Range("a225").End(xlUp).Row + 1
xlig2 = Range("a225").End(xlUp).Row + 2
xlig3 = Range("a225").End(xlUp).Row + 3
xlig4 = Range("a225").End(xlUp).Row + 4
xlig = ActiveCell.Row


Cells(xlig1, 1).Select
ActiveCell.FormulaR1C1 = Format("MISSION/" + Cells(xlig, 2) + "//")
Cells(xlig2, 1).Select
ActiveCell.FormulaR1C1 = Format("MERCH/" + Cells(xlig, 7) + "/" + Cells(xlig, 9) + "/" + Cells(xlig, 10) + "/" + Cells(xlig, 8) + "//")
Cells(xlig3, 1).Select
ActiveCell.FormulaR1C1 = Format("TMPOS/" + Cells(xlig, 1) + "/" + Cells(xlig, 3) + "/" + Cells(xlig, 4) + "/" + Cells(xlig, 11) + "/" + Cells(xlig, 10) + "//")
Cells(xlig4, 1).Select
ActiveCell.FormulaR1C1 = Format("AMPN/" + Cells(xlig, 13) + "/" + Cells(xlig, 14) + "/" + "te : " + Cells(xlig, 17) + "/" + "pob : " + Cells(xlig, 18) + "//")
Windows("REGISTRE DES MOUVEMENTS.xls").Activate
End Sub
je voudrai que xlig corresponde à la ligne active du registre des mouvements.xls et non du fichier message.xls.

merci
damien

 

[jmt0]

Salut,
Dans ce cas commence par :

Sub navcom()
Windows("mouvement.xls").Activate
Dim xlig, xlig1, xlig2, xlig3, xlig4 As Byte

xlig1 = Range("a225").End(xlUp).Row + 1
xlig2 = Range("a225").End(xlUp).Row + 2
xlig3 = Range("a225").End(xlUp).Row + 3
xlig4 = Range("a225").End(xlUp).Row + 4
xlig = ActiveCell.Row

Windows("message.xls").Activate


JMT0

 

[DAMIEN]

BONSOIR
MAIS çA NE MARCHE PAS.
MERCI

 

[jmt0]

c'est quoi qui ne marche pas, ca fait quoi , ca dit quoi..

ps: il falait mettre ca plutot
Windows("REGISTRE DES MOUVEMENTS.xls").Activate