Discussion :

[anis.abbadi]

Bonjour,

voici le code que j'ai

Code :

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

1
2
3
4
 
Sub Btn_Intervenant()
Worksheets("feuil2").Copy Before:=Sheets("Feuil3")
End Sub

Je souhaite dupliquer la feuille "Feuil2" avant la Feuil3 mais je n'arrive pas à la clean avec ClearContent.
De plus je voudrais clean de E13:W24 et j'aurai un nombre indéterminé de copie de "Feuil2" à faire.

Merci d'éclairer ma lanterne

[a_diard]

Bonjour .

Code :

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

1
2
3
4
Sub btn_intervenant()
Worksheets("feuil2").Copy Before:=Sheets("Feuil3")
Worksheets("feuil2").Cells.ClearContents
End Sub

.................

[anis.abbadi]

Je voudrai seulement clear une certaine plage de cellule dans la nouvelle feuille en question, et non l'originale.

[Philippe Tulliez]

Bonjour,
Pour supprimer le contenu d'une plage de cellules, la syntaxe est NomClasseur.NomFeuille.Cellules.ClearContents

Exemple pour supprimer le contenu de la plage C8:H20 de la feuille nommée [db] du classeur où se trouve le code VBA (ThisWorkbook)

Code :

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

ThisWorkbook.Worksheets("db").Range("C8:H20").ClearContents

à toi donc d'adapter