Microsoft 365 Array ClearContents ?

[Simon 1234]

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)]

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

 

[Simon 1234]

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

En effet, merci, c'est beaucoup plus simple ^^

 

[Phil69970]

Bonjour @Simon 1234
Edit Bonjour Bruno (Pas rafraichi )

Je te propose

Range("d6,e6,c6,h6,i6,j6,k6,m6").Delete

Merci de ton retour

 

[Simon 1234]

Bonjour @Simon 1234
Edit Bonjour Bruno (Pas rafraichi )

Je te propose


Merci de ton retour

Bonjour
Delete, tu es sûr?
Je ne veux pas supprimer la cellule, juste ce qu'elle contient sans toucher aux listes etc
J'utilise toujours Clear jusqu'ici ça fonctionne bien.

 

[Phil69970]

Je ne veux pas supprimer la cellule, juste ce qu'elle contient sans toucher aux listes etc

Alors effectivement la proposition de Bruno est bonne.

 

[Efgé]

Bonjour à tous
Si on veux conserver l'array pour autre chose :

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

 

[Simon 1234]

C'est intéressant aussi merci