Discussion :

[RAFFALE]

REBONJOUR A TOUS .

je voudrais pouvoir recopier en bva la feuille 1 et pouvoir REINITIALISER apres remplissage avec un bouton les collonnes B35,E35 et G35 .

merci de vos réponsesHEURE TEST.xlsmHEURE TEST.xlsm

[sebing]

Bonjour,

Je propose un code afin de copier la feuil1 et supprimer les valeurs des 3 colonnes

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
 
Private Sub copie_feuille()
'copie la feuil1 à la dernière position
Worksheets("Feuil1").Copy After:=Sheets(Sheets.Count)
 
'cherche la dernière ligne du tableau et supprime les valeurs dans les colonnes B, E et G
 der_lign = Range("B65536").End(xlUp).Row
 
 For i = 3 To der_lign
        Sheets(Sheets.Count).Range("b" & i).ClearContents
        Sheets(Sheets.Count).Range("e" & i).ClearContents
        Sheets(Sheets.Count).Range("g" & i).ClearContents
 
    Next i
 
End Sub

Bonne soirée

Sebing

[RAFFALE]

bonjour a tous je voudrais reinitialiser les colones
B3;B35
,E3;E35,
G3;G35 . après remplissage.

copier coller en vba la premiere feuille en comptant une feuilles par jour sur un mois .

merci a tous