Discussion :

[apt]

Bonsoir à tous,

J'aimerais savoir pourquoi ce code n'affiche rien dans la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Feuil2").Range("N" & tRow - 1 & "X:" & tRow - 1).Name = "Prix" 
ActiveCell.Formula = "=AVERAGE(Prix)"

Merci.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil2").Range("N" & tRow - 1 & ":X" & tRow - 1).Name = "Prix"

:X et non X:

[alidroos]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Sub alidroos_CP()
Dim tRow As Range
A = ActiveCell.End(xlUp).Row
Set tRow = Range(Cells(A, "N").Address, Cells(A, "X").Address)
tRow.Name = "Prix"
ActiveCell.Formula = "=AVERAGE(Prix)"
End Sub

[apt]

Bonsoir mercatog, alidroos

Merci pour vos réponses respectives.