Modifier un code
Bonjour, j'ai un code qui effectue des recherchev entre deux classeurs excel, le resultat de recherchev est inserer dans la colonne FK, le procbleme c'est que la structure du fichier peut changer, donc je souhaiterai coller les réponses dans la colonne juste aprés celle qui est vide? je sais que pour la derligne ligne on met : i = .Range("A" & Rows.Count).End(xlUp).Row
sauf que pour la derniere colonne je ne sais pas ce qu'il faut saisir.
Sub Macro2()
Sheets("Feuil1").Select
Dim i As Long
With Worksheets("Feuil1")
i = .Range("A" & Rows.Count).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,4,FALSE)"
Range("FK2").Select
Selection.AutoFill Destination:=Range("FK2:FK" & i), Type:=xlFillDefault
Range("FK2:FK" & i).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,5,FALSE)"
Range("FL2").Select
Selection.AutoFill Destination:=Range("FL2:FL" & i), Type:=xlFillDefault
Range("FL2:FL" & i).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,6,FALSE)"
Range("FM2").Select
Selection.AutoFill Destination:=Range("FM2:FM" & i), Type:=xlFillDefault
Range("FM2:FM" & i).Select
End With
Sheets("Feuil2").Select
Range("D1:F1").Select
Selection.Copy
Sheets("Feuil1").Select
Range("FK1").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Columns("FK:FM").Select
Selection.Copy
Columns("FK:FK").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
Bonjour
kawtdanne a écrit :pour la derniere colonne je ne sais pas ce qu'il faut saisir.
A tester
Sub test()
Dim Colonne As Integer
' On se base sur la ligne 1 (à adapter)
Colonne = Cells(1, Columns.Count).End(xlToLeft).Column + 1
End SubBonjour, j'ai essayé d'integrer la formule donné par banzai mais ça ne marche pas,
Sub Macro2()
Sheets("Feuil1").Select
Dim i As Long
Dim j As Integer
With Worksheets("Feuil1")
i = .Range("A" & Rows.Count).End(xlUp).Row
j = Cells(1, Columns.Count).End(xlToLeft).Column + 1
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Feuil2!R2C1:R807C6,4,FALSE)"
Range("j2").Select
Selection.AutoFill Destination:=Range("j2:j" & i), Type:=xlFillDefault
Range("j2:j" & i).Select
End With
End Sub
Bonjour
Joins un fichier en y expliquant ce que tu as as et ce que tu veux