Raccourcir code vba
Résolu/Fermé
JCB40
Messages postés
2924
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
26 septembre 2024
-
25 avril 2019 à 13:52
JCB40 Messages postés 2924 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 26 septembre 2024 - 25 avril 2019 à 14:35
JCB40 Messages postés 2924 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 26 septembre 2024 - 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
- Comment raccourcir un lien - Guide
2 réponses
jordane45
Messages postés
38241
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 septembre 2024
4 689
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
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
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
2924
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
26 septembre 2024
461
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.