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

ClearContents ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jim7963
  • 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
J

jim7963

XLDnaute Junior
Bonjour à tous,

je fais de nouveau appelle à vous car j'ai un bout de code qui commence à me faire criser.
J'ai écris:

Code: 
Dim DerColonne As Long
    DerColonne = Rows(12).Find("*", , , , xlByColumns, xlPrevious).Column
    
I = 2
    For I = 2 To 13
    For M = (DerColonne - 2) To 6 Step -5
            Sheets(I).Range(M & "12:" & M & "18").ClearContents
            Sheets(I).Range(M & "20:" & M & "26").ClearContents
            Sheets(I).Range(M & "28:" & M & "34").ClearContents
            Sheets(I).Range(M & "36:" & M & "42").ClearContents
            Sheets(I).Range(M & "44:" & M & "50").ClearContents
            Sheets(I).Range(M & "52:" & M & "58").ClearContents
    Next
    Next

Le problème c'est que lorsque je lance ma macro il n'y a aucun message d'erreur, sauf que les cellules ne se vident pas. J'ai fais plusieurs essais mais je n'arrive pas à comprendre où se situe le problème.

Quelqu'un aurait-il une idée pour m'aider?

Merci par avance pour votre aide.
 
Trier par date Trier par votes
Re : ClearContents ne fonctionne pas

Bonjour Pierrejean,

non, dans le cas de mon tableau actuel la DerColonne à pour valeur 23 (colonne W). Donc 23-2 = 21, ce que m'a confirmé le msgbox que tu m'as dis d'insérer.
 
Vote positif 0 Vote négatif
Re : ClearContents ne fonctionne pas

Bonjour

je suppose que le but de cette macro est d'effacer des plages
dans la lecture de votre code vous remplacez M par un entier dans ce cas ça ne peut pas fonctionner
M represente la colonne ! ! !
 
Vote positif 0 Vote négatif
Re : ClearContents ne fonctionne pas

Bonjour Gilbert,

effectivement vous avez raison.
Je n'avais pas pensé à la variable qui était un entier. Mais même en remplaçant par une variante ça ne fonctionne toujours pas.

Comme je débute, je ne serais pas contre un conseil pour savoir comment je dois corriger ce code pour qu'il fonctionne.
 
Vote positif 0 Vote négatif
Re : ClearContents ne fonctionne pas

Re

Salut Gilbert_RGI
Remplacer

Sheets(I).Range(M & "12:" & M & "18").ClearContents

Par

Sheets(I).Range(Cells(12,M).Address & ":" & Cells(18,M).Address).clearcontents
 
Vote positif 0 Vote négatif
Re : ClearContents ne fonctionne pas

Excellent, c'est exactement ce que je cherchais, merci beaucoup Pierrejean.

Merci également Gilbert, cette remarque m'a mis sur la piste pour utiliser la syntaxe avec les Cells. J'ai commencé à tester avant de voir le message de Pierrejean, mais ma macro buggait et s'arrêtait à la première feuille. Il me manquait effectivement le .Address.

Juste une petite question pour m'aider à progresser, à quoi sert exactement le: .Address ?
 
Vote positif 0 Vote négatif
Re : ClearContents ne fonctionne pas

Re

un petit tuyau:
Dans Visual Basic editor
cliquer sur Address et appuyer sur F1
Le debut:
[TABLE="width: 100%"]
[TR]
[TD="align: left"]Range.Address, propriété[/TD]
[/TR]
[/TABLE]

Cette propriété renvoie une valeur de type String qui représente la référence de la plage dans le langage de la macro.
 
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

  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
815
thunder23
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
824
patricktoulon
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
744
patricktoulon
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
D
  • Question Question
Microsoft 365 Application.WorksheetFunction.VLookup ne fonctionne pas au delà de 8500 lignes
Réponses
4
Affichages
798
DimiJuju
D
F
  • Question Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
1 K
job75
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
484
Anthony_51
A
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
922
AtTheOne
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
585
Phil69970
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
504
rebatte
R
J
  • Résolu(e)
XL 2021 Boucler sur un combobox d'une feuille Excel (Pas un Usf)
Réponses
8
Affichages
835
jozerebel
J
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
657
midovic
M
J
  • Question Question
Microsoft 365 Recherche conditionnelle VBA
2
Réponses
18
Affichages
2 K
sylvanu
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
595
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…