Utiliser le résultat de last row pour changer une formule via une macro
Bonjour à tous.
Débutant en Vba j'ai quelques notions et j'arrive en général à me débrouiller mais là je tombe sur un os.
En effet je souhaite créer une macro qui change une valeur dans des formules en fonction du nombre de lignes utilisées.
J'arrive à déterminer le nombre de ligne et aussi à faire une macro pour modifier mes formules mais impossible de lier les deux.
En effet je n'arrive pas à " faire rentrer " le chiffre du nombre de ligne dans la macro.
Si quelqu'un a la solution merci beaucoup par avance.
Voici ce que j'ai programmé :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub formule()
'
' macro pour modifier les formules de chaque feuille
'
'
Dim Lr As Long
Lr = Sheets("HEURE_MAT").Cells(Rows.Count, 3).End(xlUp).Row
Dim f As Variant
For Each f In Array("S 00", "S 01", "S 02", "S 03", "S 04", "S 05", "S 06", "S 07", "S 08", "S 09", "S 10", "S 11", "S 12", "S 13")
Sheets(f).Activate
Cells.Replace What:="SAIQ!$A$1:$D$138", Replacement:="SAIQ!$A$1:$D$Lr", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Next
Sheets("HEURE_MAT").Activate
End Sub |
Concrètement je veux remplacer 138 par le nombre de lignes non vides Lr.
Je travaille avec Excel 2010.
Pas simple pour moi...🙃