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é :
Concrètement je veux remplacer 138 par le nombre de lignes non vides Lr.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Je travaille avec Excel 2010.
Pas simple pour moi...🙃
Partager