Ligne trop longue

[kadelmalin]

Bonjour ,
Je voudrai que vous m'aidiez à couper une ligne vba trop longue en recourant à un underscore, j'ai essayé par tous les moyens en déplaçant le sous-tiret mais c'était impossible. Avec tous mes remerciements anticipés voici la ligne à couper en 3 : Sheets("GTS1").Range("AF71:AR72,AF74:AR75,AE77:AS78,U88:X89,AC88:AG89,AT88:AX89,BB88:BE89,G91:Q92,U91:AE92,AM91:AW92,BA91:BK92,U107:X108,AC107:AG108,AT107:AX108,BB107:BE108,G110:Q111,U110:AE111,AM110:AW111,BA110:BK111").Select

 

[Lone-wolf]

Bonjour kadelmalin

Tu veux faire quoi au juste avec toutes ces cellules, par-ce que écrit comme ça ce n'est pas bon du tout.

 

[Hieu]

Salut tous,

Une solution :

Sheets("GTS1").Range("AF71:AR72,AF74:AR75,AE77:AS78," & _
"U88:X89,AC88:AG89,AT88:AX89,BB88:BE89,G91:Q92,U91:AE92," & _
"AM91:AW92,BA91:BK92,U107:X108,AC107:AG108,AT107:AX108," & _
"BB107:BE108,G110:Q111,U110:AE111,AM110:AW111,BA110:BK111").Select

Une autre,

p1 = "AF71:AR72,AF74:AR75,AE77:AS78,U88:X89,AC88:AG89,AT88:AX89,BB88:BE89,"
p2 = "G91:Q92,U91:AE92,AM91:AW92,BA91:BK92,U107:X108,AC107:AG108,AT107:AX108,"
p3 = "BB107:BE108,G110:Q111,U110:AE111,AM110:AW111,BA110:BK111"
Sheets("GTS1").Range(p1 & p2 & p3).Select

Mais je rejoins la question de lone qui est : quel est l'intéret ? + le .select, ça devrait être banni ^^

 

[TooFatBoy]

Bonjour,

Je pense qu'il n'est pas possible de couper un même "texte" (suite de caractères entre deux guillemets), donc il faut couper ce texte en plusieurs morceaux.

Sheets("GTS1").Range("AF71:AR72,AF74:AR75,AE77:AS78,U88:X89,AC88:AG89,AT88:AX89," _
& "BB88:BE89,G91:Q92,U91:AE92,AM91:AW92,BA91:BK92,U107:X108,AC107:AG108,AT107:AX108," _
& "BB107:BE108,G110:Q111,U110:AE111,AM110:AW111,BA110:BK111").Select

 

[kadelmalin]

Merci pour vos réponses, Maitres. C'est pour la commande : Selection.ClearContents

 

[Hieu]

Ah,
Et bien tu peux mettre directement :
Sheets("toto").Range("titi").Clearcontents

Ca t evitera une ligne de commande

 

[kadelmalin]

Ce sont des plages de cellules non contigües que je voulais réinitialiser. J' ai essayé le "ClearContents" sans le select mais ça n'a pas marché.

 

[Hieu]

Ça m'étonne...
Envoie nous ta ligne de commande ?