bonjour a tous,
dans un formulaire j'ai crée un bouton me permettant de supprimer les données contenue dans plusieurs cellules ce qui me donne le code suivant
j'ai essayer de tout mettre ensemble ca ne marche pas et j'aimerais savoir comment je peut simplifier ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Range("C12:C18,F12:F18,I12:I18,L12:L18,O12:O18").Select Selection.ClearContents Range("A3").Activate Range("F24: F30 , I24: I30 , L24: L30 , O24: O30").Select Selection.ClearContents Range("A3").Activate Range("F36: F42 , I36: I42 , L36: L42 , O36: O42 , R36: R42").Select Selection.ClearContents Range("A3").Activate Range("F48: F54 , I48: I54 , L48: L54 , O48: O54").Select Selection.ClearContents Range("A3").Activate Range("F60: F66 , I60: I66 , L60: L66 , O60: O66 , R60: R66").Select Selection.ClearContents Range("A3").Activate
merci
Partager