Discussion :

[bull5587]

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 :

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

j'ai essayer de tout mettre ensemble ca ne marche pas et j'aimerais savoir comment je peut simplifier ce code

merci

[casefayere]

Bonjour,

sans analyser tes plages, élimines les "Select"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[casefayere]

avec les conseils de Antha, autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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