simplification d'un code

Version imprimable

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
Code:

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
j'ai essayer de tout mettre ensemble ca ne marche pas et j'aimerais savoir comment je peut simplifier ce code

merci

Bonjour,

sans analyser tes plages, élimines les "Select"

Code:

1
2
3
4
5
6
7
With Sheets("Feuil2") 'à changer par nom de feuille
  Application.Union(.Range("C12:C18,F12:F18,I12:I18,L12:L18,O12:O18"), _
  .Range("F24: F30 , I24: I30 , L24: L30 , O24: O30"), _
  .Range("F36: F42 , I36: I42 , L36: L42 , O36: O42 , R36: R42"), _
  .Range("F48: F54 , I48: I54 , L48: L54 , O48: O54"), _
  .Range("F60: F66 , I60: I66 , L60: L66 , O60: O66 , R60: R66")).ClearContents
End With

11/05/2014, 16h21
antha
Bonjour

Pas d'ordinateur sous la main, mais tu peux déjà éviter les select + sélection clear contents, en passant directement par range(xx).clearcontents.

Tu peux également passer par une boucle avec un pas de 12
Code:

1 2 3 For x = 12 to 60 step 12 Range(cells(x,colonne), cells(x+6,colonne)).clearcontents NeXT x
Soit tes colonnes sont toujours identiques et tu peux boucler sur les colonnes, soit tu peux mettre une conditions après le for pour filtrer les colonnes à effacer en fonction des lignes.

avec les conseils de Antha, autre solution

Code:

1
2
3
4
5
6
7
8
9
10
Dim x As Integer, y As Integer, Tcol
Tcol = Array("F", "I", "L", "O")
With Sheets("Feuil2") 'à changer par nom de feuille
  For y = 12 To 60 Step 12
    For x = 0 To 3
      .Range(.Cells(y, Tcol(x)), .Cells(y + 6, Tcol(x))).ClearContents
    Next x
  Next y
  Application.Union(.Range("C12:C18"), .Range("R36: R42"), .Range("R60: R66")).ClearContents
End With

11/05/2014, 20h38
bull5587

merci ca marche niquel j'avait tésté la premiere solution mais j'avais pas mis les . devant range et ca allait pas merci beaucoup