Discussion :

[freeze305]

Bonjour, j'aimerais savoir si quelqu'un peux m'aider, j'ai besoin de faire en sorte que le code vérifie 3 possibilités et je n'arrive pas à faire fonctionner le code correctement si la variable me donne #N/A (En rouge).

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
    If Range("C7").Value = "#N/A" Then
        MsgBox "Erreur"
    Else
    
    End If
    
    If Range("C7").Value = "1" Then
        Columns("E").EntireColumn.Hidden = True
    Else
        Columns("E").EntireColumn.Hidden = False
    End If

    If Range("C7").Value = "2" Then
        Columns("D").EntireColumn.Hidden = True
    Else
        Columns("D").EntireColumn.Hidden = False
    End If
    
End Sub

Merci à l'avance pour votre aide

[unparia]

Bonjour
Intéresse-toi à la méthode WorksheetFunction.IsNA

Edit : si j'étais toi, j'en profiterais pour lire également la rubrique Range.SpecialCells, méthode de ton aide VBA. Il n'est pas impossible (sait-on jamais ...) que tu en trouves l'utilisation avec xlErrors en 2ème argument.

[freeze305]

Ok Merci, je fait des recherches

[Invité]

Bonjour,
En réalité ce qui t'intéresse c'est de masquer la colonne si la valeur est 1!..donc on ce prend pas la tête, on affiche systématiquement la colonne.

Tu pourras gérer le rafraîchissement de l'écran pour éviter un phénomène de scintillement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("E").EntireColumn.Hidden = False
 If Range("C7").text = "1" Then Columns("E").EntireColumn.Hidden = True