Raccourcir code vba

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 25 avril 2019 à 13:52
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 25 avril 2019 à 14:35

Bonjour,
Est-il possible de raccourcir ce code il s'agit de plusieurs plages

Sub razrésultats()
'
' razrésultats Macro
'

'

Sheets("Calendrier").Activate
Range("E4:E9").Select
Selection.ClearContents
Range("G4:G9").Select
Selection.ClearContents
Range("E13:E18").Select
Selection.ClearContents
Range("G13:G18").Select
Selection.ClearContents
Range("E22:E27").Select
Selection.ClearContents
Range("G22:G27").Select
Selection.ClearContents
Range("E31:E36").Select
Selection.ClearContents
Range("G31:G36").Select
Selection.ClearContents
Range("E40:E45").Select
Selection.ClearContents
Range("G40:G45").Select
Selection.ClearContents
Range("E49:E54").Select
Selection.ClearContents
Range("G49:G54").Select
Selection.ClearContents
Range("E58:E63").Select
Selection.ClearContents
Range("G58:G63").Select
Selection.ClearContents
Range("E67:E72").Select
Selection.ClearContents
Range("G67:G72").Select
Selection.ClearContents
Range("E76:E81").Select
Selection.ClearContents
Range("G76:G81").Select
Selection.ClearContents
Range("E85:E90").Select
Selection.ClearContents
Range("G85:G90").Select
Selection.ClearContents
Range("E94:E99").Select
Selection.ClearContents
Range("G94:G99").Select
Selection.ClearContents
End Sub

Merci pour votre aide

Configuration: Windows / Firefox 66.0

A voir également:

Raccourcir code vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38170 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 9 mai 2024 4 661
25 avril 2019 à 14:09

Bonjour,

Pour commencer, à l'avenir, merci de poster ton code correctement sur le forum en utilisant les balises de code.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Ensuite, pour ton code, tu peux procéder ainsi

Sub razrésultas()
 Worksheets("Calendrier").Range("E4:E9,G4:G9,E13:E18,G13:G18,E22:E27,G22:G27,E31:E36,G31:G36,E40:E45,G40:G45,E49:E54").ClearContents
End Sub

Je n'ai pas mis toutes les plages.... je te laisse compléter la liste...

jordane45 Messages postés 38170 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 9 mai 2024 4 661
25 avril 2019 à 14:11

Concernant les balises de code, je viens d'avoir la mauvaise suprise de te l'avoir déjà dit...
https://forums.commentcamarche.net/forum/affich-35984094-probleme-avec-range#1
Donc, merci d'y penser à l'avenir.

Réponse 2 / 2

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
25 avril 2019 à 14:15

Bonjour,

A completer et supprimer les lignes entre end wtih et end sub:

Sub razr?sultats()
'
' razr?sultats Macro

With Sheets("Calendrier")
    .Range("E4:E9,G4:G9,E13:E18,ect,ect").ClearContents
End With
Range("G13:G18").Select
Selection.ClearContents
Range("E22:E27").Select
Selection.ClearContents
Range("G22:G27").Select
Selection.ClearContents
Range("E31:E36").Select
Selection.ClearContents
Range("G31:G36").Select
Selection.ClearContents
Range("E40:E45").Select
Selection.ClearContents
Range("G40:G45").Select
Selection.ClearContents
Range("E49:E54").Select
Selection.ClearContents
Range("G49:G54").Select
Selection.ClearContents
Range("E58:E63").Select
Selection.ClearContents
Range("G58:G63").Select
Selection.ClearContents
Range("E67:E72").Select
Selection.ClearContents
Range("G67:G72").Select
Selection.ClearContents
Range("E76:E81").Select
Selection.ClearContents
Range("G76:G81").Select
Selection.ClearContents
Range("E85:E90").Select
Selection.ClearContents
Range("G85:G90").Select
Selection.ClearContents
Range("E94:E99").Select
Selection.ClearContents
Range("G94:G99").Select
Selection.ClearContents
End Sub

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
25 avril 2019 à 14:35

Bonjour
Merci également pour ta réponse
Crdlt

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

code d'activation GTA 5 steam

Acces à snapchat temporairement désactivé

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters