Select Case V
Case 1
Range("B3:B" & dl1).Value = Sheets("variable").Range("D3:D" & dl1).Value
Case 2
Range("B3:B" & dl2).Value = Sheets("variable").Range("E3:E" & dl2).Value
Case 3
Range("B3:B" & dl3).Value = Sheets("variable").Range("F3:F" & dl3).Value
Case 4
Range("B3:B" & dl4).Value = Sheets("variable").Range("G3:G" & dl4).Value
End Select
ooh oui vous avez bien raison, ça fonctionne parfaitBen oui , mais quand on travaille avec un autre onglet il faut le préciser à chaque fois qu'on a affaire avec !!
donc pour ici :
VB:Select Case V Case 1 Range("B3:B" & dl1).Value = Sheets("variable").Range("D3:D" & dl1).Value Case 2 Range("B3:B" & dl2).Value = Sheets("variable").Range("E3:E" & dl2).Value Case 3 Range("B3:B" & dl3).Value = Sheets("variable").Range("F3:F" & dl3).Value Case 4 Range("B3:B" & dl4).Value = Sheets("variable").Range("G3:G" & dl4).Value End Select