A
Alb1dza
Guest
Bonjour à tous,
J'ai beau chercher et m'arracher les cheveux je ne trouve pas de réponse.
J'ai le code suivant:
Sub Test()
Dim LastRowData As Long
Dim n As Long
Dim m1 As Long
m1 = 0
LastRowData = Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For n = 4 To LastRowData
If Worksheets("Data").Cells(n, 5) <> "" Then
m1 = m1 + (Worksheets("Data").Cells(n, 5).Value * Worksheets("Data").Range("TOTAL").Value)
Worksheets("Results").Range("RESULTS").Value = m1
End If
Next n
Application.ScreenUpdating = True
End Sub
Mon problème concerne la sélection de la Cells(n, 5). Je souhaiterai "figer" la colonne afin que si j'insère de nouvelle colonne, ma macro reste valable. J'ai essayé de nommer la colonne, mais je tombe toujours sur une application-defined or object-defined error.
Quelqu'un aurait-il une idée ? Merci
J'ai beau chercher et m'arracher les cheveux je ne trouve pas de réponse.
J'ai le code suivant:
Sub Test()
Dim LastRowData As Long
Dim n As Long
Dim m1 As Long
m1 = 0
LastRowData = Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For n = 4 To LastRowData
If Worksheets("Data").Cells(n, 5) <> "" Then
m1 = m1 + (Worksheets("Data").Cells(n, 5).Value * Worksheets("Data").Range("TOTAL").Value)
Worksheets("Results").Range("RESULTS").Value = m1
End If
Next n
Application.ScreenUpdating = True
End Sub
Mon problème concerne la sélection de la Cells(n, 5). Je souhaiterai "figer" la colonne afin que si j'insère de nouvelle colonne, ma macro reste valable. J'ai essayé de nommer la colonne, mais je tombe toujours sur une application-defined or object-defined error.
Quelqu'un aurait-il une idée ? Merci