1 ou 0 si ligne masquée

[zumye]

bonjour le forum
est t-il possible dans une celulle d'avoir 0 ou 1 si une ligne est masquée?
ex: ligne 18 masquée cellule AV=1
ligne 18 non masquée cellule AV=0
merci

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

Bonjour,

par ce code, par exemple :

[AV1] = IIf(Rows(18).Hidden = True, 1, 0)

 

[zumye]

Re : 1 ou 0 si ligne masquée

tu peux me dire ou je dois placer ce code : [AV1] = IIf(Rows(18).Hidden = True, 1, 0)
merci

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

Re-,
En faisant un essai, je me suis aperçu d'une chose quelque peu bizarre...
J'ai voulu diminuer le code avec :

[AV1] = (Rows(18).Hidden = True) * 1

et j'obtiens -1 si la ligne est masquée

si on fait :

x = Rows(18).Hidden = True

on obtient bien Vrai
Je pensais qu'en multipliant Vrai par 1, on obtenait 1, mais non....

donc, on peut mettre :

[AV1] = (Rows(18).Hidden = True) * -1

Pourquoi?

J'ai trouvé quelques questions semblables sur le net, et en VBA, TRUE = -1, En Excel, VRAI = 1

CQFD

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

Re-,
pour répondre à ta deuxième question, tu peux la mettre n'importe où, dans une sub ou un évènement de feuille.
Par exemple :

Dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[AV1] = IIf(Rows(18).Hidden = True, 1, 0)
End Sub

 

[zumye]

Re : 1 ou 0 si ligne masquée

merci ca marche
et maintenant l'inverse si dans la case G3 j'ai le mot "connex" comment automatiquement masquée la ligne18 ?
merci

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

Re,
essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
    Rows(18).Hidden = IIf(Target = "connex", True, False)
End If
End Sub

si la cellule est entrée à la main
si la cellule est le résultat d'une formule, tu mets ceci :

Private Sub Worksheet_Calculate()
    Rows(18).Hidden = IIf([G3] = "connex", True, False)
End Sub

 

[zumye]

Re : 1 ou 0 si ligne masquée

j'ai essayer les 2 : la premiere ne marche pas a cause de : Private Sub Worksheet_Change(ByVal Target As Range

et la deuxième ne marche pas non plus, elle recherche pendant au moins dix seconde et rien, c'est un peu pénible ce temps de recherche

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

RE-,
Euh, tu les mets où, les codes?
Clic droit sur le nom de l'onglet, visualiser le code,colle le ou les codes
Maintenant, tu as peut-être deux Worksheet_Change(ByVal Target As Range)
Il n'en faut qu'un, sinon, bug
Pour le Calculate, tu dois avoir autre chose, mais sans voir.....

 

[zumye]

Re : 1 ou 0 si ligne masquée

oui c'est ca j'en ai 2 si je met le code Worksheet_Change(ByVal Target As Range.
comment faire pour en avoir q'un?

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

RE-,

je pense que je t'avais donné une piste...

mais sans voir.....

Mets ici ton code de la feuille

 

[zumye]

Re : 1 ou 0 si ligne masquée

merci tout marche je l'ai mis a la suite

 

[zumye]

Re : 1 ou 0 si ligne masquée

Tout Marche Et La Meme Chose Mais Le Mot Connex Est Pris Dans Un Menu Deroulant
Merci

 

[zumye]

Re : 1 ou 0 si ligne masquée

Ca y est ca marche avec le calcul mais j'ai le problème que c'est trop long, entre 5 et 10s, ai je trop de formule ou devrai je placer le programme ailleurs?

Private Sub Worksheet_Calculate()
Rows(18).Hidden = IIf([G3] = "connex", True, False)
End Sub

 

[Cousinhub]

Re : 1 ou 0 si ligne masquée

RE-,
si cela fonctionne avec Worksheet_Change, vaut autant l'utiliser
Par contre, je ne comprends pas pourquoi c'est si long....
peut-être en plaçant ceci :

Private Sub Worksheet_Calculate()
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
Rows(18).Hidden = IIf([G3] = "connex", True, False)
[COLOR="Red"]Application.EnableEvents = True[/COLOR]
End Sub

Mets bien les DEUX