Code VBA

[gildas lechat]

Bonjour le forum,

Je cherche a appliquer le principe suivant sur une feuille à l'aide d'une macro:

Si Range("U21").= "Tartampion"
masquer la ligne 110

Merci de votre aide 😀

Gildas

 

[Pierrot93]

Re : Code VBA

Bonjour Gildas

essaye ainsi :

If Range("U21").Value = "Tartampion" Then Rows(110).Hidden = True

bon après midi
@+

 

[gildas lechat]

Re : Code VBA

Bonjour
Ci dessous le code que j'ai effectué.Ca ne semble pas fonctionner.
Le code contient il une erreur?

Sub masquageligne()
If Sheets("Contrôle final").Range("U21").Value = "Tartampion" Then Rows(111).Hidden = True
End Sub

 

[Pierrot93]

Re : Code VBA

Re,

quand tu dis le code ne semble pas fonctionner, c'est message d'erreur ou pas le résultat attendu, attention le test est sensible à la casse... Je vois d'autre part que tu précises le nom de la feuille de la cellule testée, il serait peut être également utile de présiser le nom de la feuille de la ligne 111 à masquer....

@+

 

[gildas lechat]

Re : Code VBA

Re,

Pas de massage d'erreur. Il ne se passe rien
@+
Gildas

Sub masquageligne()
If Sheets("Contrôle final").Range("U21").Value = "AIRBUS" Then Sheets("Contrôle final").Rows(111).Hidden = True
End Sub

 

[Pierrot93]

Re : Code VBA

Re,

et "AIRBUS" est bien en majuscule dans ta cellule, et c'est bien l'intégralité de ta cellule et non une partie ?

 

[gildas lechat]

Re : Code VBA

Pierrot93,

Tu trouvera ci dessous le fichier joint.
Merci de ton aide
Gildas

 

[Pierrot93]

Re : Code VBA

Re,

fonctionne chez moi, la ligne 111 est bien masquée.... A noter que j'aurais plutôt positionné le code dans un module standard plutôt que dans le module "thisworkbook". par contre si tu veux que la ligne s'affiche si U21 n'est pas "airbus", il faut modifier ainsi :

Sheets("Contrôle final").Rows(111).Hidden = Sheets("Contrôle final").Range("U21").Value = "AIRBUS"

@+

 

[gildas lechat]

Re : Code VBA

Hello,

OK, je ne suis pas expert mais là je ne comprend pas?
Est il possible de me renvoyer le ficher qui fonctionne?
Désolé et Merci
Gildas

 

[Pierrot93]

Re : Code VBA

Re

ton fichier en retour, j'ai positionné le code dans un module standard, créé un bouton qui lance la macro, code de ce bouton dans le module de la feuille concernée....

@+

Edition aarf, avec le fichier c'est mieux...

 

[gildas lechat]

Re : Code VBA

Merci,

Est il possible de faire la même chose, mais sans boutton d'action.
Des que la valeur de la cellule U21 est égal a AIRBUS, la ligne 111 se masque ( sans passer par un bouton action)?

Gildas

 

[Pierrot93]

Re : Code VBA

Re

tu places le code ci-dessous en lieu et place du code du bouton (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 = Target.Value = "AIRBUS"
End Sub

@+

 

[gildas lechat]

Re : Code VBA

Merci
c'est déjas beaucoup mieux, je devrai maintenant y arriver pour la suite.
Désolé de ne pas avoir été assez claire dès le début..
Gildas