[Résolu] Replacer une formule dans une partie de colonne

[Webperegrino]

Bonjour le Forum,
Pouvez-vous me donner la correction à apporter à la codification bloquante suivante ?

'replacer la formule en colonne E
For l = 7 To dl
cells(dl,5).formulalocal = "= C & dl & "-D & dl" '<- ligne bloquante
Next

Merci
Webperegrino

 

[Jacou]

Re : Replacer une formule dans une partie de colonne

bonjour,
"dl" correspond à quoi?
à première vue, je mettrais ceci :
cells(dl,5).formulalocal = "= C" & dl & "-D" & dl

Mais peut-être faudrait-il mettre "l" au lieu de "dl"​
bonne journée

 

[Efgé]

Re : Replacer une formule dans une partie de colonne

Bonjour Webperegrino, Jacou

Comme dis par Jacou :

Sub Test()
Dl = 12
For l = 7 To Dl
    Cells(l, 5).FormulaLocal = "=C" & l & "-D" & l '<- ligne bloquante"
Next

Voir plus direct :

Sub Test2()
    Dl = 12
    Range(Cells(7, 5), Cells(Dl, 5)).FormulaLocal = "=C7-D7" '<- ligne bloquante"
End Sub

Cordialement

 

[Webperegrino]

Re : Replacer une formule dans une partie de colonne

Le Forum,
Bonjour Jacou,
Glups Efgé, bonjour, je n'avais pas vu ta réponse pour laquelle je te remercie : j'ai l'embarras du choix.

J'expédiement la formulation avec la codification suivante et te fais part de l'évolution de mon affaire.

With f
'replacer la formule en colonne D dans feuille f
For l = 7 To dl
'avec dl = s.Cells(Application.Rows.Count, 2).End(xlUp).Row
f.Cells(dl, 5).FormulaLocal = "= C" & dl & "-D" & dl
Next
End With

ou avec
Range(Cells(7, 5), Cells(Dl, 5)).FormulaLocal = "=C7-D7" '<- ligne bloquante"

Merci à vous deux,
Webperegrino

 

[Efgé]

Re : Replacer une formule dans une partie de colonne

Re

L
With f
'replacer la formule en colonne D dans feuille f
For l = 7 To dl
'avec dl = s.Cells(Application.Rows.Count, 2).End(xlUp).Row
f.Cells(dl, 5).FormulaLocal = "= C" & dl & "-D" & dl
Next
End With

ou avec
Range(Cells(7, 5), Cells(Dl, 5)).FormulaLocal = "=C7-D7" '<- ligne bloquante"

Merci à vous deux,
Webperegrino

Ce qui pourrait donner:

Sub Test2()
Dim F As Worksheet, s As Worksheet, dl As Long
Set F = Sheets("Feuil1")
Set s = Sheets("Feuil2")
dl = s.Cells(Application.Rows.Count, 2).End(xlUp).Row
F.Range(F.Cells(7, 5), F.Cells(dl, 5)).FormulaLocal = "=C7-D7" '<- ligne bloquante"
End Sub

La prochaine fois, n'oubli pas de mettre un petit fichier exemple ce qui nous éviteras de faire les tests avec un classeur qui ne correspond pas au tien 🙄

Cordialement

 

[Webperegrino]

Re : Replacer une formule dans une partie de colonne

Bonsoir Le Forum,
Bonsoir Jacou,
Bonsoir Efgé,
avec [F.Range(F.Cells(7, 5), F.Cells(dl, 5)).FormulaLocal = "=C7-D7"] c'est parfait.
Ça fonctionne à merveille !
Merci beaucoup à vous deux,
Cordialement,
Webperegrino