• Initiateur de la discussion Initiateur de la discussion SRBIJA
  • 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

SRBIJA

Guest
Bonjour,

En fait, j'ai un probleme avec cette macro. Je voudrais tout d'abord que la macro puisse supprimer toutes les données de la colonne A et C puis qu'elle passe à l'element suivant (en rouge)

Sub coderéf_dans_onglet_total()
ligne = 4
For n = 1 To Sheets.Count
If Sheets(n).Name = "armoire" Or Sheets(n).Name = "lit" Then
For m = 8 To Sheets(n).Range("A65536").End(xlUp).Row
Sheets("total").Cells(ligne, 1) = Sheets(n).Range("A" & m)
ligne = ligne + 1
Next m
End If
Next n


J'ai essayé avec :

Range("A:A,C:C").ClearContents

mais cela ne marche pas.

Merci d'avance pour votre aide.
 
Dernière modification par un modérateur:
Re : Problème macro

Bonjour SRBIJA,

Voici une solution :
Columns("A:A").ClearContents
Columns("C:C").ClearContents

Merci cbea,

J'ai testé la macro en ajoutant ce que tu as écrit et c'est bon.

J'avais essayé :

Columns ("A:A,C:C").ClearContents

mais cela ne marchait pas.

J'aurais dû faire comme toi c'est-à-dire en le subdivisant pour chaque colonne mais je pensais qu'en les regroupant dans un même argument cela marcherait.

Merci encore cbea.
 
Re : Problème macro

Bonjour à tous,

en une seule ligne, je ne vois que ça :

Range("A1:A65536,C1:C65536").ClearContents


ah ben si : je viens d'essayer

Range("A:A,C:C").ClearContents

et ça marche ...

bonjour, c'est bizarre, chez moi
Code:
Range("A:A,C:C").ClearContents
ce code fonctionne.
@+

EDIT PENSEZ À LA BALISE CODE, LE BOUTON #. Merci


J'ai fait Range("A:A,C:C").ClearContents dans un fichier Excel vierge et cela fonctionnait.

Cependant, dans mon fichier avec lequel je travaille, cela ne marche pas.

C'est bizarre mais c'est çà aussi les beugs de VBA.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
912
Réponses
15
Affichages
788
Retour