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

Microsoft 365 Array ClearContents ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Simon 1234
  • 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
S

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?
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Solution
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
 
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

Discussions similaires

S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
560
Dranreb
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
88
piga25
  • Question Question
XL 2010 Comment lire array dans item dictionnaire
2 3
Réponses
33
Affichages
2 K
cathodique
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
490
patricktoulon
  • Question Question
XL 2021 Transformer fichier zip en xlsm
2 3
Réponses
36
Affichages
1 K
patricktoulon
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
693
jurassic pork
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
342
Gestionnaire_rh
G
S
  • Question Question
XL 2021 LISTVIEW alimenté avec OptionButton + CheckBox
Réponses
3
Affichages
579
ChTi160
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
524
un internaute
U
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
723
halecs93
C
  • Résolu(e)
XL 2021 Alimenter Listbox si colonne 3 contient un mot précis
Réponses
5
Affichages
587
Claudinedu13
C
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
478
guiyom
G
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
669
un internaute
U
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
393
Phil69970
R
  • Résolu(e)
XL 2016 Erreur 1004 - Erreur définie par l'application ou par l'objet
2
Réponses
19
Affichages
1 K
ReneDav14000
R
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
831
Mody200
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…