bug sur selection non contigue

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
 

@Christophe@

XLDnaute Occasionnel
Bonsoir,

Code:
Private Sub CommandButton13_Click() 
Sheets('Heures').Range('E4:J55,E58:J109,E112:J163,E165:J217,E220:J271, _
E274:J325')

Si tu mets _ en fin de ligne, c'est pour indiquer que ton code continue sur la ligne suivante, donc tu ne dois pas fermé avec ')

Bonne chance
 

NANARD

XLDnaute Nouveau
Bonsoir christophe,

j'ai déjà essayé cette façon et là tout est en rouge dans ma macro !!

voici modifiée :

Private Sub CommandButton13_Click()
Sheets('Heures').Select
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 pour l'aide qui sera apportée

@+
Nanard
 

Gérard DEZAMIS

XLDnaute Accro
Bonsoir Christophe et Nanard

Je me mêle de ce qui ne me regarde pas (comme d'hab ....)
Nanard n'aurait-il pas intérêt à 'nommer' ces cellules ? cela éviterait une écriture un peu 'touffue'... Un seul nom représenterait ainsi toutes ses cellules non contigues.


@+ GD
 

Bricofire

XLDnaute Impliqué
Bonsoir le fil, Nanard

Y a pas photo, Gérard à raison (pas étonnant...) Tu as intérêt à nommer tes cellules, soit par VBA, ce qui n'est pas plus complexe que ton code déjà écrit, mais avec les mêmes risques de syntaxe, ou directement dans la feuille , ce qui n'est pas plus compliqueé vu que tu dois bien les dénombrer pour mettre leurs adresses comme tu le fais, il faut juste penser à pouvoir modifier la plage, no pb en vba; en feuille, il faut faire :

Insertion - nom - définir - clik dans le bouton à droite de la ligne du bas , fait référence à - en maintenant Ctr appuyé et tu sélectionnes en plus ou tu en déselectionnes en poins - re click bouton et OK

nommer les cellules (et plages) c'est vraiment super confortable même si j' n'ai pas compris pendant longtemps à quoi ça servait
:)


Petite citation pour Gérard en passant ;)

'Les maîtres d'école sont des jardiniers en intelligences humaines.'
(c'est valable pour tous les niveaux d'enseignements à mon sens)
Victor Hugo

Bfr