Raccourcir code vba
Résolu/Fermé
JCB40
Messages postés
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
-
25 avril 2019 à 13:52
JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 - 25 avril 2019 à 14:35
JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 - 25 avril 2019 à 14:35
A voir également:
- Raccourcir code vba
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
2 réponses
jordane45
Messages postés
38429
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 février 2025
4 735
25 avril 2019 à 14:09
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
Je n'ai pas mis toutes les plages.... je te laisse compléter la liste...
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...
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
25 avril 2019 à 14:15
25 avril 2019 à 14:15
Bonjour,
A completer et supprimer les lignes entre end wtih et end sub:
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
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
464
25 avril 2019 à 14:35
25 avril 2019 à 14:35
Bonjour
Merci également pour ta réponse
Crdlt
Merci également pour ta réponse
Crdlt
25 avril 2019 à 14:11
https://forums.commentcamarche.net/forum/affich-35984094-probleme-avec-range#1
Donc, merci d'y penser à l'avenir.