efface cellule

Pierrot93

XLDnaute Barbatruc

• 6 Novembre 2008

• #2

Re : efface cellule

Bonjour,

modifies comme suit :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 6 Novembre 2008

• #3

Re : efface cellule

Salut,

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

A+🙂

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 6 Novembre 2008

• #4

Re : efface cellule

Salut,

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

🙂

 

Vote positif 0 Vote négatif

S

shuriken001

Guest

• 6 Novembre 2008

• #5

Re : efface cellule

Merci beaucoup

 

Vote positif 0 Vote négatif

S

shuriken001

Guest

• 6 Novembre 2008

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Novembre 2008

• #7

Re : efface cellule

Re, bonjour bigfish

pour effectuer une copie au préalable :

Code:

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)

 

Vote positif 0 Vote négatif

S

shuriken001

Guest

• 6 Novembre 2008

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Novembre 2008

• #9

Re : efface cellule

Re

comme ceci :

Code:

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

@+

 

Vote positif 0 Vote négatif