Corriger une macro
Bonjour, j'aurai besoin de votre aide pour corriger la macro suivante: (j'ai mis en rouge la partie qui me cause probleme)
Sub Macro2()
Sheets("Feuil1").Select
Dim i As Long
Dim j As Integer
Dim k As Long
With Worksheets("Feuil1")
i = .Range("A" & Rows.Count).End(xlUp).Row
j = Cells(1, Columns.Count).End(xlToLeft).Column + 1
For k = 2 To i
Cells(k, j).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,4,FALSE)"
Next
For k = 2 To i
Cells(k, j + 1).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,5,FALSE)"
Next
For k = 2 To i
Cells(k, j + 2).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,6,FALSE)"
Next
Sheets("Feuil2").Select
Range("D1:F1").Select
Selection.Copy
Sheets("Feuil1").Select
Cells(1, j).Select
ActiveSheet.Paste
End With
Sheets("Feuil1").Select
Columns("j:j+2").Select Selection.Copy
Columns("j:j+2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
Cette macro permet d'effectuer une recherchev entre la feuille 1 et feuille2, coller les résultat dans la feuille 1 (3 colonnes) et ensuite copier ces trois colonnes et coller seulement leur valeur. c'est la macro 2 du fichier joint qu'il faut mofifier
Merci
Bonjour,
modifie peut être comme suit :
Columns(j + 2).Select bon après midi
@+
En fait c'est de la colonne j à j+2 (j est la colonne juste apres la derniere colonne remplie)
Merci
Re,
peut être ainsi alors...
Columns(j).Resize(, 3).Select