P
Pitou
Guest
Bonsoir
Qui aurait la gentillesse de me modifier cette macro pour que je puisse faire 300 lignes (De A1 à A300)?
Merci d'avance
Pitou
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
Select Case Target.Value
Case Is = 1: Range("D1") = Range("A1") * Range("B1")
Case Is = 2: Range("E1") = Range("A1") * Range("B1")
Case Is = 3: Range("F1") = Range("A1") * Range("B1")
Case Is = 4: Range("G1") = Range("A1") * Range("B1")
End Select
End If
End Sub
Qui aurait la gentillesse de me modifier cette macro pour que je puisse faire 300 lignes (De A1 à A300)?
Merci d'avance
Pitou
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
Select Case Target.Value
Case Is = 1: Range("D1") = Range("A1") * Range("B1")
Case Is = 2: Range("E1") = Range("A1") * Range("B1")
Case Is = 3: Range("F1") = Range("A1") * Range("B1")
Case Is = 4: Range("G1") = Range("A1") * Range("B1")
End Select
End If
End Sub