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

Microsoft 365 Array ClearContents ?

Simon 1234

XLDnaute Junior
Bonjour
Je tente ceci:
Effacer = Array("d6", "e6", "c6", "h6", "i6", "j6", "k6", "m6") 'la liste des cellules dont je veux effacer le contenu
'on efface en masse
For i = 0 To UBound(Effacer) ' Les tableaux commencent en 0, Ubound donne la fin
Range(Effacer(i)).ClearContents
Next

Mais ça ne veut pas... Problème de syntaxe?
 

youky(BJ)

XLDnaute Barbatruc
Bonjour,
La macro fonctionne et est correct
tu peux la remplacer par ceci
Range("d6,e6,c6,h6,i6,j6,k6,m6").ClearContents
A verifier car la macro efface sur la page active sinon faut spécifier quel onglet
Bruno
 

Efgé

XLDnaute Barbatruc
Bonjour à tous
Si on veux conserver l'array pour autre chose :
VB:
Sub test()
Dim Effacer As Range
With ActiveSheet 'a modifier suivant nom de feuille
    Set Effacer = Union(.Range("d6"), .Range("e6"), .Range("c6"), .Range("h6"), .Range("i6"), .Range("j6"), .Range("k6"), .Range("m6"))
End With
Effacer.ClearContents
End Sub

Cordialement
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…