Code VBA pour masquer et faire aparaître ligne

[gildas lechat]

Bonjour le forum,

Ci dessous le code VBA pour masquer une ligne
Rows(N° de la ligne).Hidden

Je cherche le code pour faire aparaître la ligne
Merci d'avance
Gildas😉

 

[Pierrot93]

Re : Code VBA pour masquer et faire aparaître ligne

bonjour Gildas

essaye ainsi :

Rows(N° de la ligne).Hidden = false

bonne journée
@+

 

[gildas lechat]

Re : Code VBA pour masquer et faire aparaître ligne

Bonjour Pierrot 93,

Et oui encore moi😀

En fait mon problème est le suivant sur l'exemple ci joint:

La ligne 111 doit être présente dans la feuille "Contrôle final" lorsque U21 de cette même feuille est égal à "AIRBUS".
Dans tout les autre cas la ligne 111 est masquée.

L'activation de la macro s'éffectue lorsque U21 est egal a "AIRBUS" ou "xxx" ou "yyy".... ( en fait à chaque changement de valeur de la cellule U21)

Merci
Gildas

 

[Pierrot93]

Re : Code VBA pour masquer et faire aparaître ligne

Re

aarf, hier j'avais compris l'inverse....

modifie comme suit le code placé dans le module de la feuille "controle final" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$U$21" Then _
    Rows(111).Hidden = Not Target.Value = "AIRBUS"
End Sub

@+

 

[Guest]

Re : Code VBA pour masquer et faire aparaître ligne

Bonjour Gildas,

If Target.Address = "$U$21" Then  Rows(111).[SIZE=3][COLOR=red]Hidden[/COLOR][/SIZE] = Target.Value [SIZE=3][COLOR=red]<>[/COLOR][/SIZE] "AIRBUS"

Hidden veut dire 'caché'
donc Hidden doit être à True(vrai) si les valeurs sont différente de "AIRBUS"

A+

 

[gildas lechat]

Re : Code VBA pour masquer et faire aparaître ligne

Merci.
J'ai saisi le code de Pierrot93. Ca fonctionne

Dernier point:
Sur la macro, la ligne 111 est visigle si U21 = "AIRBUS".

Dans le cas ou je vroudrais la ligne 111 visible si U21="AIRBUS" ou U21="Tartampion" et masquer pour U21= tout autre valeur, comment dois je modifier la macro?

Gildas

 

[Pierrot93]

Re : Code VBA pour masquer et faire aparaître ligne

Re, bonjour Hasco

essaye ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$U$21" Then _
    Rows(111).Hidden = Not Target.Value = "AIRBUS" And Not Target.Value = "Tartampion"
End Sub

@+

 

[gildas lechat]

Re : Code VBA pour masquer et faire aparaître ligne

Merci
Ca fonctionne correctement..
@+
Gildas