Raccourcir code vba

Résolu

JCB40 Messages postés 3014 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3014 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Raccourcir code vba
Code ascii - Guide
Code puk bloqué - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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 17277 Date d'inscription Statut Membre Dernière intervention 1 715

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 3014 Date d'inscription Statut Membre Dernière intervention 463

Bonjour
Merci également pour ta réponse
Crdlt

Discussions similaires

sertissage des cables rj45

Votre réponse

Discussions similaires