Macro Excel

Bonjour

petite problème je début dans le codage macro

J'aimerais savoir command rajouter la condition "0" en "C23" pour ouvrier tous les onglet en le rajoutant a ce qui existe déjà

TETE_144FO_M12,Module 144FO_M12,Tiroir 6x24FO_M12,TETE12FO_A_48FO _M12,IMIO - 36FO_M3,Module 48FO_48F0_M12

MERCI cordimane

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("C23") = 144 Then

Sheets("TETE_144FO_M12").Visible = True

Sheets("Module 144FO_M12").Visible = True

Sheets("Tiroir 6x24FO_M12").Visible = True

Sheets("TETE12FO_A_48FO _M12").Visible = False

Sheets("IMIO - 36FO_M3").Visible = False

Sheets("Module 48FO_48F0_M12").Visible = False

Else

Sheets("TETE_144FO_M12").Visible = False

Sheets("Module 144FO_M12").Visible = False

Sheets("Tiroir 6x24FO_M12").Visible = False

Sheets("TETE12FO_A_48FO _M12").Visible = True

Sheets("IMIO - 36FO_M3").Visible = True

Sheets("Module 48FO_48F0_M12").Visible = True

End If

End Sub

Bonjour Huter, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("TETE_144FO_M12").Visible = Range("C23").Value = 144 Or Range("C23").Value = 0
Sheets("Module 144FO_M12").Visible = Range("C23").Value = 144 Or Range("C23").Value = 0
Sheets("Tiroir 6x24FO_M12").Visible = Range("C23").Value = 144 Or Range("C23").Value = 0
Sheets("TETE12FO_A_48FO _M12").Visible = Range("C23").Value = 144 Or Range("C23").Value = 0
Sheets("IMIO - 36FO_M3").Visible = False = Range("C23").Value = 144 Or Range("C23").Value = 0
Sheets("Module 48FO_48F0_M12").Visible = Range("C23").Value = 144 Or Range("C23").Value = 0
End Sub

Merci de ton aide

bon dimanche cordialement