problème sur workbook_open

mikepers · 2 Décembre 2006

Bonsoir à tous, merci pour votre aide.
Pouvez vous me dire pourquoi l'évènement workbook_open ne semble t'il pas apprécier le code :
_____________________________________
Sub workbook_open()

sheets("feuille 1").Select
If Range("A5").Value = "SANS DP" Then
Rows("27:49").Select
Selection.EntireRow.Hiden = True
Else
If Range("A5").Value = "AVEC DP" Then
Rows("27:49").Select
Selection.EntireRow.Hiden = False

End If
End If
End Sub
______________________________________
???????J'ai du mal à saisir, merci si vous pouvez m'aider.
@+

Dan · 2 Décembre 2006

Re : problème sur workbook_open

re,

ah ben, lol ! c'est pas la même chose là.
Mais puisque cela fonctionne, pourquoi se tracasser.

Bonne nuit

Gorfael · 2 Décembre 2006

Re : problème sur workbook_open

mikepers à dit:
bon, pour le fun :
il semble que j'ai trouvé.
En fait le code fait référence à un cellule qui contient une formule :
=SI (B27="";"SANS DP";"AVEC DP")

visiblement ça perturbe le code.
Tout bêtement, j'ai fait référence directement à la cellule B27, j'ai donc le nouveau code :
_______________________________________________
If range ("B27").Value= "" then
Rows("27:49").EntireRow.Hidden = true
Else
If range("B27").Value <> "" then
Rows("27:49").EntireRow.Hidden = false
End if
End if
End sub
_______________________________________________
Ca marche !!!!!!!!
damned, 1000 fois merci à vous tous.
@+

Salut
Pourquoi faire un 2me test ? Si B27 est différent de "", il n'est donc pas égal à "" ce qui est le propre de la partie gérée par else
A+

problème sur workbook_open

mikepers

XLDnaute Occasionnel

Dan

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires

problème sur workbook_open

mikepers

XLDnaute Occasionnel

Dan

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency