Microsoft 365 Array ClearContents ?

Simon 1234 · 14 Mars 2024

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) · 14 Mars 2024

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

youky(BJ) · 14 Mars 2024

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 · 14 Mars 2024

youky(BJ) à dit:
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 · 14 Mars 2024

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 · 14 Mars 2024

Phil69970 à dit:
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 · 14 Mars 2024

Simon 1234 à dit:
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é · 15 Mars 2024

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

Simon 1234 · 15 Mars 2024

C'est intéressant aussi merci

Microsoft 365 Array ClearContents ?

Simon 1234

XLDnaute Nouveau

youky(BJ)

youky(BJ)

XLDnaute Barbatruc

Simon 1234

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Simon 1234

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Simon 1234

XLDnaute Nouveau

Discussions similaires