C'est pour mettre les Macros dans Feuille -> événement de la feuille -> assigner une feuille -> condition modifié
Voilà mon code
Code : Tout sélectionner
REM ***** BASIC *****
Option Explicit
Sub test_charpente(oevt As Object)
'xray oevt
Select case oevt.AbsoluteName
case "$Feuille1.$D$136"
Thiscomponent.Sheets(2).Rows.GetByIndex(38).IsVisible = oevt.Value
case "$Feuille1.$D$142"
Thiscomponent.Sheets(2).Rows.GetByIndex(39).IsVisible = oevt.Value
End select
End Sub
Sub test_plafond(oevt As Object)
'xray oevt
Select case oevt.AbsoluteName
case "$Feuille1.$D$227"
Thiscomponent.Sheets(2).Rows.GetByIndex(56).IsVisible = oevt.Value
case "$Feuille1.$D$233"
Thiscomponent.Sheets(2).Rows.GetByIndex(57).IsVisible = oevt.Value
case "$Feuille1.$D$240"
Thiscomponent.Sheets(2).Rows.GetByIndex(58).IsVisible = oevt.Value
End select
End Sub
Sub test_sols_scelles(oevt As Object)
'xray oevt
Select case oevt.AbsoluteName
case "$Feuille1.$D$173"
Thiscomponent.Sheets(2).Rows.GetByIndex(47).IsVisible = oevt.Value
case "$Feuille1.$D$180"
Thiscomponent.Sheets(2).Rows.GetByIndex(48).IsVisible = oevt.Value
case "$Feuille1.$D$187"
Thiscomponent.Sheets(2).Rows.GetByIndex(49).IsVisible = oevt.Value
case "$Feuille1.$D$194"
Thiscomponent.Sheets(2).Rows.GetByIndex(50).IsVisible = oevt.Value
case "$Feuille1.$D$203"
Thiscomponent.Sheets(2).Rows.GetByIndex(51).IsVisible = oevt.Value
End select
End Sub
Sub test_facade(oevt As Object)
'xray oevt
Select case oevt.AbsoluteName
case "$Feuille1.$D$24"
Thiscomponent.Sheets(2).Rows.GetByIndex(15).IsVisible = oevt.Value
case "$Feuille1.$D$32"
Thiscomponent.Sheets(2).Rows.GetByIndex(16).IsVisible = oevt.Value
case "$Feuille1.$D$40"
Thiscomponent.Sheets(2).Rows.GetByIndex(17).IsVisible = oevt.Value
case "$Feuille1.$D$48"
Thiscomponent.Sheets(2).Rows.GetByIndex(18).IsVisible = oevt.Value
case "$Feuille1.$D$56"
Thiscomponent.Sheets(2).Rows.GetByIndex(19).IsVisible = oevt.Value
case "$Feuille1.$D$64"
Thiscomponent.Sheets(2).Rows.GetByIndex(20).IsVisible = oevt.Value
case "$Feuille1.$D$72"
Thiscomponent.Sheets(2).Rows.GetByIndex(21).IsVisible = oevt.Value
case "$Feuille1.$D$80"
Thiscomponent.Sheets(2).Rows.GetByIndex(22).IsVisible = oevt.Value
case "$Feuille1.$D$88"
Thiscomponent.Sheets(2).Rows.GetByIndex(23).IsVisible = oevt.Value
End select
End Sub
Merci de m'aider.
Cordialement.