code pour effacer le contenu d'une plage de données

[ventesprivee]

bonjour

j'ai actuellement un code qui me permet de mettre des temps sur une plage de données.

code : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F100,G5:G100,J5:J100,K5:K100,N5:N100,O5:O100,R5:R100,S5:S100,V5:V100,W5:W100,Z5:Z100,AA5:AA100,AD5:AD100,AE5:AE100,AH5:AH100,AI5:AI100,AL5:AL100,AM5:AM100,AP5:AP100,AQ5:AQ100,AT5:AT100,AU5:AU100,AX5:AX100,AY5:AY100")) Is Nothing Then ActiveCell.Value = Now()
End Sub


cependant j'ai fait un bouton macro pour effacer d'un coup ces données, comment faire ? merci

 

[Papou-net]

Re : code pour effacer le contenu d'une plage de données

Bonjour ventesprivee,

Tu peux écrire :

Range("F5:F100,G5:G100,J5:J100,K5:K100,N5:N100,O5:   O100,R5:R100,S5:S100,V5:V100,W5:W100,Z5:Z100,AA5:A   A100,AD5:AD100,AE5:AE100,AH5:AH100,AI5:AI100,AL5:A   L100,AM5:AM100,AP5:AP100,AQ5:AQ100,AT5:AT100,AU5:A   U100,AX5:AX100,AY5:AY100").ClearContents

Mais il serait peut-être plus simple de donner un nom à cette plage, surtout si tu dois l'utiliser à plusieurs endroits dans ton code.

Cordialement.

 

[ventesprivee]

Re : code pour effacer le contenu d'une plage de données

merci bien pour l'efficacité

et alors comment nommer une plage de données ?

cordialement

 

[MJ13]

Re : code pour effacer le contenu d'une plage de données

Bonjour VP, Papou

et alors comment nommer une plage de données ?

Tu sélectionnes tes plages avec Ctrl et shift. Puis tu indiques le nom à gauche de la barre de formules.