D
Daniel
Guest
Bonjour à toutes et tous,
Public Sub vev()
Dim c As Range
For Each c In Range('l7:l' & Range('l65500').End(xlUp).Row)
Select Case c.Value
Case 11 To 25: c.Offset(0, 1) = 8
Case 26 To 50: c.Offset(0, 1) = 10
Case 51 To 90: c.Offset(0, 1) = 13
Case 91 To 150: c.Offset(0, 1) = 15
Case 151 To 280: c.Offset(0, 1) = 20
Case 281 To 500: c.Offset(0, 1) = 30
Case 501 To 800: c.Offset(0, 1) = 40
Case 801 To 1200: c.Offset(0, 1) = 50
Case 1201 To 3200: c.Offset(0, 1) = 80
Case Else: c.Offset(0, 1) = 0
End Select
Next c
End Sub
je voudrais simplement changé la rangée ou se trouve les données.
j'ai essayé ceci mais ,j'ai unmessage d'erreur quand je le lance :
For Each c In Range('n7:n' & Range('l65500').End(xlUp).Row)
Merci d'avance
[file name=T&a test1_20050426115620.zip size=6257]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/T&a test1_20050426115620.zip[/file]
Public Sub vev()
Dim c As Range
For Each c In Range('l7:l' & Range('l65500').End(xlUp).Row)
Select Case c.Value
Case 11 To 25: c.Offset(0, 1) = 8
Case 26 To 50: c.Offset(0, 1) = 10
Case 51 To 90: c.Offset(0, 1) = 13
Case 91 To 150: c.Offset(0, 1) = 15
Case 151 To 280: c.Offset(0, 1) = 20
Case 281 To 500: c.Offset(0, 1) = 30
Case 501 To 800: c.Offset(0, 1) = 40
Case 801 To 1200: c.Offset(0, 1) = 50
Case 1201 To 3200: c.Offset(0, 1) = 80
Case Else: c.Offset(0, 1) = 0
End Select
Next c
End Sub
je voudrais simplement changé la rangée ou se trouve les données.
j'ai essayé ceci mais ,j'ai unmessage d'erreur quand je le lance :
For Each c In Range('n7:n' & Range('l65500').End(xlUp).Row)
Merci d'avance
[file name=T&a test1_20050426115620.zip size=6257]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/T&a test1_20050426115620.zip[/file]