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

[aredo]

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

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

 

[pierrejean]

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

Bonjour aredo

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

Teste:

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

 

[mécano41]

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...

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

 

[aredo]

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

bonjour,

Merci à vous deux, les deux méthodes fonctionnent parfaitement.
Effectivement, j'aurai pu penser au regroupement des colonnes, bien joué Mécano.Par hasard, vous n'auriez pas une petite idée sur ce fil.
https://www.excel-downloads.com/thr...s-une-cellule-sans-la-remettre-a-zero.178767/
merci encore et bonne continuation