Code VBA pour cacher des lignes

Version imprimable

14/03/2017, 16h55
Exceleur

Code VBA pour cacher des lignes

Bonjour,

Je cherche un code VBA faisant cela :

Code:

Si la cellule W2 de la Feuil1 affiche le texte "N.A.", alors les lignes 32 à 34 de la Feuil2 doivent être cachées. Si la cellule n'affiche pas "N.A." les lignes doivent être visibles

Seul problème, la cellule W2 contient une fonction INDEX et ne fait qu'afficher le texte d'une autre cellule, mais elle ne contient pas de texte elle-même (si ce n'est le code de la fonction). C'est pour cela que mes essais jusqu'à maintenant ont été vains. Car s'il est vrai que la cellule W2 peut visuellement afficher N.A., Excel analyse uniquement son contenu réel, c'est-à-dire le code de la fonction, et ce code ne contient pas de N.A.

Je ne sais pas si c'est envisageable mais le code pourrait donc faire cela :

Code:

Si la cellule qui est pointée par la cellule W2 contient N.A., alors les lignes 32 à 34 de la Feuil2 doivent être cachées.

Avez-vous une idée de ce qu'il faut faire et comment le faire ? (je ne sais malheureusement pas écrire en VBA).

Votre aide me serait très précieuse car je suis perdu et désespéré.
14/03/2017, 17h20
joe.levrai

Bonjour,

la propriété .Text de la cellule te donnera le résultat de la formule "affichée dans la cellule", y compris si c'est une erreur

.Formula te donnera la formule

.Value te donnera la valeurs évaluée de la formule ... si la formule est en erreur, alors .Value plantera ... et dans ce cas on teste plutôt un IsError(MaCellule.Value)

Bonjour,

Merci !

J'ai adapté le code suivant qu'un forumeur m'avait donné en utilisant la propriété "Target.Text". Il permet de supprimer des lignes quand une certaine cellule contient "N.A.". Problème : même en utilisant "Text" (au lieu de Value), ça marche seulement si la cellule contient réellement N.A. mais pas si elle ne fait que l'afficher. Est-ce que vous avez une idée ?
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_Change(ByVal Target As Range) Dim lig As Integer Dim col As Integer lig = Target.Row col = Target.Column If Target.Row = 2 And Target.Column = 31 And Target.Text = "N.A." Then For i = 38 To 36 Step -1 Sheets("Feuil2").Cells(lig + i, col - 27).Delete shift:=xlUp Next i End If End Sub
D'autre part, je cherche aussi à modifier ce code pour faire en sorte qu'il ne supprime pas les lignes mais qu'il les cache simplement. Et de telle sorte aussi qu'il fasse réapparaitre les lignes pour tout texte différent de N.A. Est-ce possible ?

Merci beaucoup pour votre aide

Bonjour,

J'ai essayé de changer le "Delete" en "Rowheight". Quand il y a un N.A. l'idée serait que la ligne se réduise à zéro, ce qui donc la cacherait. Mais mon code ne marche pas, est-ce que vous voyez le problème ?

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lig As Integer
    Dim col As Integer
    lig = Target.Row
    col = Target.Column
    If Target.Row = 32 And Target.Column = 2 And Target.Text = "N.A." Then
        For i = 2 To 0 Step -1
            Sheets("2_Print").Cells(lig + i, col + 2).Selection.RowHeight = 0
        Next i
    End If
End Sub

16/03/2017, 09h18
joe.levrai

Bonjour,

peux-tu nous montrer un exemple de formule ?

parce que là, on ne sait toujours pas si tu parles du #N/A! (une vraie erreur) ou d'un texte "N.A." (un texte conditionné dans la formule), ce qui n'est absolument pas la même chose
16/03/2017, 09h24
Exceleur

Voici la formule d'une des cellules qui est susceptible d'afficher parfois N.A.

Code:

=+SI(INDEX(Tableau_Postes;'Feuil1'!$C$10;S1)<>0;INDEX(Tableau_Postes;'Feuil1'!$C$10;S1);"")

Le code que j'ai mis dans mon post précédent n'arrive pas à lire le N.A. affiché, il prend en compte seulement le texte écrit dans cette formule. Si ce n'est pas possible de contourner ce problème, il devrait aussi y avoir la possibilité de créer une étape supplémentaire : on copie la cellule contenant la formule dans une autre cellule, et à ce moment seul son texte affiché serait repris.

Merci pour votre aide
16/03/2017, 09h32
joe.levrai

donc ce "N.A" est bien la valeur qui existe dans les autres cellules, et on ne parle pas d'une erreur #N/A! ?

au passage, puisque Excel 2016, utilises SIERREUR() c'est plus simple

Code:

=+SIERREUR(INDEX(Tableau_Postes;'Feuil1'!$C$10;S1);"")

je maintiens :

- si "N.A." rapatrié depuis une autre cellule

Code:

MaCellule.Text = "N.A."

si tu es certain que c'est la valeur exact, sinon il faut utiliser Instr() pour vérifier que ta cellule contient au moins cette chaine ... voir l'opérateur Like (mais moins rapide)

- si "#N/A!" car résulte d'une erreur de formule (ne doit plus arriver avec SIERREUR())

Code:

IsError(MaCellule.Value)

tout autre comportement que celui attendu avec mes deux propositions, signifie que tu as mal expliqué le problème, ou que tu ne maîtrise pas le comportement de ton classeur
16/03/2017, 09h42
Exceleur

Merci pour votre réponse

En effet ce n'est pas une erreur, le N.A. est un texte que j'entre moi-même dans une cellule et qui est repris dans la cellule qui comporte la formule INDEX.

Le code que vous avez écrit ci-dessous :

Code:

MaCellule.Text = "N.A."

Ne s'agit-il pas déjà de ce que j'ai écrit dans mon code plus haut ?

Même avec le ".Text" ça ne fonctionne pas sur mon classeur. Par contre, dès que je supprime la formule de la cellule et que j'écrit N.A. en "texte brut" si je puis dire, là ça marche. Donc le problème vient bien du fait que ce code ne sait pas lire le N.A. affiché.

PS: Je précise qu'effectivement je débute sur excel et je suis bien loin de tout maîtriser, d'où ma demande d'aide.

Merci beaucoup pour votre aide.
16/03/2017, 09h49
joe.levrai

1 pièce(s) jointe(s)
Je ne suis pas non plus un expert de l'ultime connaissance absolue :aie:

mais pourtant :
Code:

1 2 3 Sub toto() MsgBox "La Cellule Active contient pour valeur : " & ActiveCell.Text End Sub
Pièce jointe 254625