Autres comment mettre macro sur 2 lignes

[un internaute]

Bonjour le forum
J'ai posté sur un autre forum on m'a trouvé une solution qui fonctionne mais je ne comprend pas pourquoi tout ce que l'on peut lire sur différents forums ne fonctionne pas.
Voici ma macro sur une ligne. La scinder à A99:C112,
Merci pour vos éventuels retours
je suis sous 2003

    .Range("E4:E9,A12:C16,E12:E16,A19:C31,E19:E31,A39:C43,E39:E43,A45:C58,E45:E58,A66:C70,E66:E70,A72:C85,E72:E85,A93:C97,E93:E97,A99:C112,E99:E112,F10,F37,F64,F91,G10,G19:I24,G26:I31,G45:I51,G52:I58,G72:I78,G79:I85,G99:I105,G106:I112,G115,G118,G120").SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[Compte Supprimé 979]

Bonjour l'internaute

Et quel est ton souhait exactement !?

 

[jmfmarques]

Bonjour
Ta question est "comment écrire cela sur 2 lignes"
Avant de penser à le faire, interroge-toi d'abord sur la validité de ta notation ...
Ce qui est en erreur sur une ligne ne devient pas fonctionnel par miracle en l'éclatant sur 2 lignes).

Même ceci génèrerait une erreur :

 Range("E4:E9, A12:C16").ClearContents

EDIT et efforce-toi de ne pas confondre "macro" avec "instruction" d'application d'une méthode

 

[un internaute]

Bonjour
Ta question est "comment écrire cela sur 2 lignes"
Avant de penser à le faire, interroge-toi d'abord sur la validité de ta notation ...
Ce qui est en erreur sur une ligne ne devient pas fonctionnel par miracle en l'éclatant sur 2 lignes).

Même ceci génèrerait une erreur :

 Range("E4:E9, A12:C16").ClearContents

Bonsoir jmfmarques
Comprend pas ma macro fonctionne bien sur une ligne.

 

[jmfmarques]

Comprend pas ma macro fonctionne bien sur une ligne.

J'en déduis que ta version office est merveilleuse ou que la mienne est nulle

 

[Dranreb]

Bonjour
On ne peut pas scinder une constante string, mais on peut la découper en plusieurs et concaténer les morceaux

    .Range("E4:E9,A12:C16,E12:E16,A19:C31,E19:E31,A39:C43,E39:E43,A45:C58,E45:E58,A66:C70,E66:E70,A72:C85,E72:E85,A93:C97,E93:E97" _ 
     & ",A99:C112,E99:E112,F10,F37,F64,F91,G10,G19:I24,G26:I31,G45:I51,G52:I58,G72:I78,G79:I85,G99:I105,G106:I112,G115,G118,G120").SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[un internaute]

Bonsoir Dranreb
Parfait c'est ce que je voilais et en plus des explications
Bonne fin de WE à toi
Cordialement