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

Problème avec la méthode "Range et "ClearContents"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aredo
  • Date de début Date de début

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 !

S'inscrire
A

aredo

XLDnaute Occasionnel
bonjour,

Voici une macro qui efface les colonnes C,D,I et J en discontinuité. Elle ne fonctionne pas. Quand j'enlève quasiment la moitié des colonnes dans "range", ça fonctionne.
Voyez-vous quelque chose d'anormal.
merci à tous
Code: 
With Range("C3:C52,D3:D52,C67:C116,D67:D116,C130:C179,D130:D179,C193:C242,D193:D242,C256:C305,D256:D305,C319:C368,D319:D368,C382:C431,D382:D431,C445:C494,D445:D494,C508:C557,D508:D557,C571:C620,D571:D620,I3:I52,J3:J52,I67:I116,J67:J116,I130:I179,J130:J179,I193:I242,J193:J242,I256:I305,J256:J305,I319:I368,J319:J368,I382:I431:J382:J431,I445:I494,J445:J494,I508:I557,J508:J557,I571:I620,J571:J620")
.ClearContents
.Font.ColorIndex = xlAutomatic
End With
End Sub
 
Trier par date Trier par votes
Re : Problème avec la méthode "Range et "ClearContents"

Bonjour aredo

Je n'ai pas d'explication mais peut-etre une solution:

Teste:
Code: 
Sub essai()
x = Split("C3:C52,D3:D52,C67:C116,D67:D116,C130:C179,D130:D179,C193:C242,D193:D242,C256:C305,D256:D305,C319:C368,D319:D368,C382:C431,D382:D431,C445:C494,D445:D494,C508:C557,D508:D557,C571:C620,D571:D620,I3:I52,J3:J52,I67:I116,J67:J116,I130:I179,J130:J179,I193:I242,J193:J242,I256:I305,J256:J305,I319:I368,J319:J368,I382:I431:J382:J431,I445:I494,J445:J494,I508:I557,J508:J557,I571:I620,J571:J620", ",")
Set zone = Range(x(0))
For n = 1 To UBound(x)
 Set zone = Union(zone, Range(x(n)))
Next n
zone.ClearContents
zone.Font.ColorIndex = xlAutomatic
End Sub
 
Vote positif 0 Vote négatif
Re : Problème avec la méthode "Range et "ClearContents"

Bonjour à tous,

Probablement nombre de "sous-range" dans un range trop important. En regroupant ainsi, je n'ai plus d'erreur...

Code: 
With range("C3:D52,C67:D116,C130:D179,C193:D242,C256:D305,C319:D368,C382:D431,C445:D494,C508:D557,C571:D620,I3:J52,I67:J116,I130:J179,I193:J242,I256:J305,I319:J368,I382:J431,I445:J494,I508:J557,I571:J620")

Cordialement
 
Vote positif 0 Vote négatif
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…