jerleswatt
XLDnaute Nouveau
Bonjour,
j'ai un macro pour afficher la date sur de nombreuse colonne, tous les 9 colonne à partir du 2 exactement seulement je but au bout de ma ligne dans mon macro!
Aurez-vous une solution pour abréger mon macro ?
je vous laisse un exemple pour vous donner une idée:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 2, 11, 20, 29, 38, 47, 56, 65, 74, 83, 92, 101, 110, 119, 128, 137, 146, 155, 164, 173, 182, 191, 200, 209, 218, 227, 236, 245, 254, 263, 272, 281, 290, 299, 308, 317, 326, 335, 344, 353, 362, 371, 380, 389, 398, 407, 416, 425, 434, 443, 452, 461, 470, 479, 488, 497, 506, 515, 524, 533, 542, 551, 560, 569, 578, 587, 596, 605, 614, 623, 632, 641, 650, 659, 668, 677, 686, 695, 704, 713, 722, 731, 740, 749, 758, 767, 776, 785, 794, 803, 812, 821, 830, 839, 848, 857, 866, 875, 884, 893, 902, 911, 920, 929, 938, 947, 956, 965, 974, 983, 992, 1001, 1010, 1019, 1028, 1037, 1046, 1055, 1064, 1073, 1082
If Target = "" Then Target = Date
End Select
End Sub
Cordialement Jérôme.
j'ai un macro pour afficher la date sur de nombreuse colonne, tous les 9 colonne à partir du 2 exactement seulement je but au bout de ma ligne dans mon macro!
Aurez-vous une solution pour abréger mon macro ?
je vous laisse un exemple pour vous donner une idée:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 2, 11, 20, 29, 38, 47, 56, 65, 74, 83, 92, 101, 110, 119, 128, 137, 146, 155, 164, 173, 182, 191, 200, 209, 218, 227, 236, 245, 254, 263, 272, 281, 290, 299, 308, 317, 326, 335, 344, 353, 362, 371, 380, 389, 398, 407, 416, 425, 434, 443, 452, 461, 470, 479, 488, 497, 506, 515, 524, 533, 542, 551, 560, 569, 578, 587, 596, 605, 614, 623, 632, 641, 650, 659, 668, 677, 686, 695, 704, 713, 722, 731, 740, 749, 758, 767, 776, 785, 794, 803, 812, 821, 830, 839, 848, 857, 866, 875, 884, 893, 902, 911, 920, 929, 938, 947, 956, 965, 974, 983, 992, 1001, 1010, 1019, 1028, 1037, 1046, 1055, 1064, 1073, 1082
If Target = "" Then Target = Date
End Select
End Sub
Cordialement Jérôme.