Macro sur onglet défini

[AlphaOne]

Bjr à tous,

J'aimerai savoir ce qui déconne sur cette macro !!

Sub Effacer_Joueurs()
Dim ws As Worksheet
For Each ws In Worksheets
If Not (ws.Name = "Saison" Or ws.Name = "Liste" Or ws.Name = "Base" _
    Or ws.Name = "Commentaire" Or ws.Name = "Données") Then
    ws.Range("D7:F12,D17:F22").Select
    Selection.ClearContents
End If
Next ws
End Sub

merci d'avance
Slt

 

[Papou-net]

Re : Macro sur onglet défini

Bonjour AlphaOne, le Forum,

Ce sont tout simplement les parenthèses, et il faut remplacer Or par And :

Sub Effacer_Joueurs()
Dim ws As Worksheet
For Each ws In Worksheets
If Not ws.Name = "Saison" And Not ws.Name = "Liste" And Not ws.Name = "Base" _
    And Not ws.Name = "Commentaire" And Not ws.Name = "Données" Then
    ws.Select
    Range("D7:F12,D17:F22").Select
    Selection.ClearContents
End If
Next ws
End Sub

Cordialement.

 

[Papou-net]

Re : Macro sur onglet défini

RE :

Autre solution plus simple :

Sub Effacer_Joueurs()
Dim ws As Worksheet
For Each ws In Worksheets
  If InStr("Saison,Liste,Base,Commentaire,Données", ws.Name) = 0 Then
    ws.Range("D7:F12,D17:F22").ClearContents
  End If
Next ws
End Sub

Cordialement.

 

[AlphaOne]

Re : Macro sur onglet défini

Nickel merci Papou !!

 

[AlphaOne]

Re : Macro sur onglet défini

Bjr Papou,
finalement j'ai un bug en ligne:
ws.Range("D7:F12,D17:F22").ClearContents
que faire ??
@+

 

[AlphaOne]

Re : Macro sur onglet défini

non c bon, une simple histoire de cellules fusionnées !!
@+