Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres comment mettre macro sur 2 lignes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

un internaute

XLDnaute Impliqué
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

VB:
    .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
 
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 :
VB:
 Range("E4:E9, A12:C16").ClearContents

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

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



 
Bonjour
On ne peut pas scinder une constante string, mais on peut la découper en plusieurs et concaténer les morceaux
Code:
    .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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…