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

aide pour macro

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

jean23

XLDnaute Nouveau
Bonsoir tous le monde,

Dans mon tableau, je voudrais effacer le contenu d'une plage de cellule à l'aide d'un bouton.

Pour cela j'ai cette macro

Sub Nettoyage()
Sheets("FacturierEntrer").Select
Range("b6:r7").ClearContents
Selection.ClearContents
Range("b7").Select

End Sub

Le problème elle efface aussi toutes les formules

Que faire pour éviter cela?

Merci de vos réponses

jean
 
Re : aide pour macro

Bonsoir jean23,

Essaie avec :

Range("b6:r7").Cells.SpecialCells(xlCellTypeConstants).ClearContents

et supprimer : Selection.ClearContents

A te lire et bonne soirée.

Jean-Pierre

Edit : Attention, pas d'espace dans Constants
 
Re : aide pour macro

Re,

Merci jeanpierre pour la réponse avec les discussions similaires, mais je pense que cela n'a rien avoir avec mon problème, je voudrais simplement effacer les chiffres contenu dans chaque cellule, mais surtous pas les formules.

jean
 
Re : aide pour macro

Re,

Je ne sais si j'ai compris, mais si tu parles des valeurs issues du résultat des formules, je ne vois pas d'autres solutions que de traiter et de vider les cellules appelées dans tes formules.

Pour les discussions similaires ?????, ce n'est pas le titre de ton fil qui permet de grandes fantaisies.

Bonne soirée.

Jean-Pierre
 
Re : aide pour macro

Re,

Super cela marche, je souhaiterais aussi recopier les cellules f34 et g34 dans les cellules f5 et g5 en sachant que f34 et g34 contiennent elles aussi une formules qui ne doit pas être recopier dans f5 et g5.

Merci pour une solution .
jean
 
Re : aide pour macro

Re,

Essaie avec :

Sub CopieCellules()

Range("F34:G34").Copy

Range("F5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

End Sub

Jean-Pierre
 
Re : aide pour macro

Re,

je ne vois pas le fichier joint peut être suis je trop fatigué mais cela n'est pas grave car tous marche super bien, si j'ai un autre probème, c'est sûr que je revient faire un tour.
En tous cas un grand merci pour ton aide et je te souhaite une bonne nuit ainsi quà tous le forum
A+ jean
 
- 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 Code VBA
Réponses
10
Affichages
773
Réponses
11
Affichages
460
Réponses
25
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…