Bonjour à tous,
Je me permets d'user de vous solliciter pour m'aider à modifier ma macro pour laquelle je souhaite étirer la formule jusqu'à la dernière ligne existante.
Plusieurs sujets évoque les solutions mais hélas à chaque fois, j'obtiens un résultat infructueux
Dans le code ci-après, je cherche la bonne syntaxe pour =Range("H3:H30000") et remplacer le 30000 par la dernière ligne qui serait donc si j'ai bien compris H3: &derlig
Merci infiniment de votre aide.
Je me permets d'user de vous solliciter pour m'aider à modifier ma macro pour laquelle je souhaite étirer la formule jusqu'à la dernière ligne existante.
Plusieurs sujets évoque les solutions mais hélas à chaque fois, j'obtiens un résultat infructueux
Dans le code ci-après, je cherche la bonne syntaxe pour =Range("H3:H30000") et remplacer le 30000 par la dernière ligne qui serait donc si j'ai bien compris H3: &derlig
Code:
Sub Consolider()
'
' on va consolider les motivations
'
'
Columns("F:F").Select
Selection.Replace What:="=""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("G:G").Select
Selection.Replace What:="=""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("H3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE)"
Range("H3").Select
Selection.AutoFill Destination:=Range("H3:H30000")
Range("H3:H30000").Select
Range("I3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-3]=RC[-2],"""",VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE))"
Range("I3").Select
Selection.AutoFill Destination:=Range("I3:I30000")
Range("I3:I30000").Select
End Sub
Merci infiniment de votre aide.
Dernière modification par un modérateur: