efface cellule

[shuriken001]

Bonjour comment éviter un codage pareille :

Private Sub CommandButton1_Click()
Range("C10:C11").Select
Selection.ClearContents
Range("D1011").Select
Selection.ClearContents
Range("E10:E11").Select
Selection.ClearContents
Range("F10:F11").Select
Selection.ClearContents
Range("G10:G11").Select
Selection.ClearContents
Range("H10:H11").Select
Selection.ClearContents
Range("J10:J11").Select
Selection.ClearContents
Range("K10:K11").Select
Selection.ClearContents
Range("L10:L11").Select
Selection.ClearContents
Range("G16").Select


End Sub

Pouvais vous me le simplifier s'il vous plaid

 

[Pierrot93]

Re : efface cellule

Bonjour,

modifies comme suit :

Range("C10:H11, J10:L11").ClearContents

bon après midi
@+

 

[Bigfish]

Re : efface cellule

Salut,

Private Sub CommandButton1_Click()
Range("C10:H11,J10:J11").ClearContents
Range("G16").Select
End Sub

A+

 

[Bigfish]

Re : efface cellule

Salut,

Pas assé rapide... poste croisé désolé Pierrot93

 

[shuriken001]

Re : efface cellule

Merci beaucoup

 

[shuriken001]

Re : efface cellule

e t'il possible avant qu'elle s'efface d'envoyer les valeurs dans une autre feuille pour faire une sauvegarde des truc effacer

 

[Pierrot93]

Re : efface cellule

Re, bonjour bigfish

pour effectuer une copie au préalable :

With Sheets("Feuil1").Range("C10:H11,J10:L11")
    .Copy Sheets("Feuil2").Range("A1")
    .ClearContents
End With

@+

Edition : copie les données de Feuil1 vers Feuil2 (noms des feuilles à adapter)

 

[shuriken001]

Re : efface cellule

super!!!
Et si je veux remettre des infos quand je les rééface je veux qu'elle se sauvegarde à la suite de l'autre

 

[Pierrot93]

Re : efface cellule

Re

comme ceci :

With Sheets("Feuil1").Range("C10:H11,J10:L11")
    .Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
    .ClearContents
End With

@+