NANARD
XLDnaute Nouveau
Bonsoir à tous,
voici ma question :
sur un USF j'ai un CBT qui doit lorsque je clic dessus effacer une sélection de cellules non contigue, mais voilas,ça bug sur la sélection
je ne vois pas pourquoi !!
Voici ma macro
Private Sub CommandButton13_Click()
Sheets('Heures').Range('E4:J55,E58:J109,E112:J163,E165:J217,E220:J271') _
('E274:J325,E328:J379,E382:J433,E436:J487,E490:J541,E544:J595,E598:J649,E652:J703') _
('E706:J757,E760:J811,E814:J865,E868:J919,E922:J973,E976:J1027') _
('E1030:J1081,E1084:J1135,E1138:J1189,E1192:J1243,E1246:J1297') _
('E1300:J1351,E1354:J1405,E1408:J1459,E1461:J1513,E1515:J1567') _
('E1570:J1621,E1624:J1675,E1678:J1729,E1732:J1783,E1786:J1837') _
('E1840:1891,E1894:J1945,E1948:J1999,E2002:J2053,E2056:J2107') _
('E2110:J2161,E2164:J2215,E2218:J2269,E2272:J2323,E2326:J2377') _
('E2380:J2431,E2434:J2485,E2488:J2539,E2542:J2593,E2596:J2647') _
('E2650: J2701 , E2704: J2755 ').Select
Selection.ClearContents
Range('A1').Select
End Sub
merci d'avance pour votre aide
@+
Nanard
voici ma question :
sur un USF j'ai un CBT qui doit lorsque je clic dessus effacer une sélection de cellules non contigue, mais voilas,ça bug sur la sélection
je ne vois pas pourquoi !!
Voici ma macro
Private Sub CommandButton13_Click()
Sheets('Heures').Range('E4:J55,E58:J109,E112:J163,E165:J217,E220:J271') _
('E274:J325,E328:J379,E382:J433,E436:J487,E490:J541,E544:J595,E598:J649,E652:J703') _
('E706:J757,E760:J811,E814:J865,E868:J919,E922:J973,E976:J1027') _
('E1030:J1081,E1084:J1135,E1138:J1189,E1192:J1243,E1246:J1297') _
('E1300:J1351,E1354:J1405,E1408:J1459,E1461:J1513,E1515:J1567') _
('E1570:J1621,E1624:J1675,E1678:J1729,E1732:J1783,E1786:J1837') _
('E1840:1891,E1894:J1945,E1948:J1999,E2002:J2053,E2056:J2107') _
('E2110:J2161,E2164:J2215,E2218:J2269,E2272:J2323,E2326:J2377') _
('E2380:J2431,E2434:J2485,E2488:J2539,E2542:J2593,E2596:J2647') _
('E2650: J2701 , E2704: J2755 ').Select
Selection.ClearContents
Range('A1').Select
End Sub
merci d'avance pour votre aide
@+
Nanard