goldfinger13
XLDnaute Occasionnel
bonsoir à tous,
j'ai besoin de votre aide. N'ayant pas beaucoup de connaissance en Vba j'ai utilisé l'éditeur de macro pour effectuer une tache répétitive. Mon problème est le suivant je travaille sur deux fichiers et le nombre de ligne à traiter est aléatoire or lors de l'enregistrement de la macro j'ai fait mon test sur 27 lignes . J'ai regardé dans la fenêtre de l’éditeur mais je ne sais pas par quoi remplacer "C1:C27" ou "D127" afin que la macro se poursuive jusqu’à la dernière ligne non vide.
je joins les exemples de fichiers sur lesquels je dois travailler.
merci d'avance pour votre aide.
j'ai besoin de votre aide. N'ayant pas beaucoup de connaissance en Vba j'ai utilisé l'éditeur de macro pour effectuer une tache répétitive. Mon problème est le suivant je travaille sur deux fichiers et le nombre de ligne à traiter est aléatoire or lors de l'enregistrement de la macro j'ai fait mon test sur 27 lignes . J'ai regardé dans la fenêtre de l’éditeur mais je ne sais pas par quoi remplacer "C1:C27" ou "D127" afin que la macro se poursuive jusqu’à la dernière ligne non vide.
Code:
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 22/03/2011 par jl
'
'
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1])"
Selection.AutoFill Destination:=Range("C1:C27")
Range("C1:C27").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("macrotest2.xls").Activate
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("C1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1])"
Selection.AutoFill Destination:=Range("C1:C27")
Range("C1:C27").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("macrotest.xls").Activate
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("D1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],[macrotest2.xls]Feuil1!C3:C4,2,0)"
Selection.AutoFill Destination:=Range("D1:D27")
Range("D1:D27").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
End Sub
merci d'avance pour votre aide.
Pièces jointes
Dernière édition: