bug sur selection non contigue

[NANARD]

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@]

Bonsoir,

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]

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]

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

 

[Gérard DEZAMIS]

Re grain de sel ....

Ne faudrait-il pas remplacer le ',' par des ';'

Je risue le Zop mais tant pis ! c'est les vacances !

@+ GD

 

[NANARD]

Bonsoir Gérard,

Tu avais raison il fallait nommer cette plage, quelle usine à gaz...!!

merci pour ton aide

à charge de revanche 😉

@+

Nanard

 

[Bricofire]

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

 

[Bricofire]

Euh, j'ai mis un peu de temps à rédiger....

:whistle:

Bfr