Masquer des colonnes dans Excel

Version imprimable

14/12/2016, 07h54
line78

1 pièce(s) jointe(s)

Masquer des colonnes dans Excel

Bonjour à tous,

Je sollicite à nouveau vos connaissances pour masquer des colonnes dans un fichier Excel.

Les colonnes A,B,C,D restant fixes
J'aimerai si j'inscris P1 en "B2" seule la colonne E avec P1 s'affiche.
Si j'inscris P2 en "B2" seule la colonne F avec P2 s'affiche
Si j'inscris P3 en "B2" seule la colonne G avec P3 s'affiche
Ect...

Pouvez-vous m'aider à développer ce code?

Le fichier de travail se trouve en pièce jointe et un code existe déjà pour la sélection des lignes de résultats désirés correspondant à la sélection d'un ENEGE en A2.

Merci à vous+++

Pièce jointe 228386

Merci à vous pour votre aide précieuse:).

Bonne journée à tous

certe il y a mille fois mieux que ce code bricolé par un débutant en VBA :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim dercolonne As Long
Dim valerech As String
valerech = Range("B2").Value
Range(Columns(1), Columns(30)).Select
Selection.EntireColumn.Hidden = False
dercolonne = Cells(8, 30).End(xlToLeft).Column
    For i = 5 To dercolonne
    If Cells(8, i) <> valerech Then Columns(i).Hidden = True
    Next i
 Application.ScreenUpdating = True
 Range("B2").Select
End Sub

bon courage

Salut,

Voici ce que je te propose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
    If Target.Address = "$A$2" Then
        If [A2] = Empty Then
            Range("D9:D15").EntireRow.Hidden = True
            Exit Sub
        End If
        Set MyPlage = Range("D9:D15")
        For Each cell In MyPlage
            If UCase(cell.Value) <> UCase([A2]) Then
                cell.EntireRow.Hidden = True
            Else
                cell.EntireRow.Hidden = False
            End If
        Next
    End If
    If Target.Address = "$B$2" Then
        col = 5
        Do Until Cells(8, col).Value = ""
            If UCase(Cells(8, col).Value) = UCase(Target.Value) Then
                Cells(8, col).EntireColumn.Hidden = False
            Else
                Cells(8, col).EntireColumn.Hidden = True
            End If
            col = col + 1
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

J'ai laissé ton code de la macro sur changement et j'ai ajouté le code que tu cherchais.

Pour info, le ucase que j'ai ajouté permet que ton code soit bon pour "p1" comme "P1".

En espérant que c'est bien ce que tu cherchais. Si c'est le cas, pense au pouce en bas ...

14/12/2016, 20h17
line78

Bonsoir à tous les deux!!

Merci beaucoup les deux codes fonctionnent très bien.:)

ça va pouvoir me faire avancer à pas de géant dans mon analyse.

Merci +++