Bonjour à tous,
J’ai un problème avec l’adresse de ma formule. En effet,
Quand je vais les cellules où se trouve le résultat je découvre que mon code n’a pas pris en compte le Sh38 mais calcul avec les cellules de la feuille active.
Vous remerciant pour votre aide.
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
23 Sub valeur_ligne () Application.ScreenUpdating = False Application.Calculation = xlManual Dim Sh As Worksheet Dim Sh38 As Worksheet Dim Col As Integer Dim Lig As Integer Set Sh = ActiveSheet Set Sh38 = Feuil38 For Lig = 57 To 70 For Col = 66 To 118 Sh.Cells(Lig, Col).Formula = "=" & Sh38.Cells(Lig - 46, 4).Address & "*" & Sh38.Cells(Lig - 46, Col - 60).Address & "" Next Col Next Lig Set Sh = Nothing Set Sh38 = Nothing End Sub
Partager