Discussion :

[MikeThe7]

Bonjour,

J'ai un tableau ("E5:BE30").
Dans celui-ci il n'y a que des cellules faisant référence à d'autres feuilles (='Feuil1'!$D$2 par exemple).
La cellule servant pour la recherche est "C3".
Ce que j'aimerais, c'est que lorsque je tape "Papillon" en "C3" puis "Entrée", la macro se déclenche.
Son action serait la suivante :
- Rechercher si dans la colonne "E", une cellule CONTIENT la VALEUR "Papillon".
-> si c'est le cas, passer a la colonne "F" pour le même test.
-> si aucune cellule de la colonne "E" ne CONTIENT la VALEUR "Papillon", masquer la colonne "E" et passer à la colonne "F" pour le même test.
... et ainsi de suite jusqu'à la fin du tableau colonne "BE"

- Ensuite dans le même esprit, commencer par la ligne "5" jusqu'à la ligne "30".

Je retourne ça depuis quelques jours sans trouver de solution.
Je vous remercie par avance de me faire profiter de vos connaissances.

[Minick]

Salut,

Dans un Module standard:

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
Option Explicit
 
Sub MasqueColonnes(ValeurRecherchee As String)
    Dim Rech As Range
    Dim Colonne As Byte
 
    Application.ScreenUpdating = False
        Columns("E:BE").Hidden = False
        If ValeurRecherchee <> "" Then
            For Colonne = 5 To 57
                Set Rech = Range(Cells(5, Colonne), Cells(30, Colonne)).Find(What:=ValeurRecherchee, LookIn:=xlValues, lookat:=xlPart)
 
                If Not Rech Is Nothing Then
                    Rech.EntireColumn.Hidden = True
                    Set Rech = Nothing
                End If
            Next Colonne
        End If
    Application.ScreenUpdating = True
End Sub

Dans le code de la feuille concernee:

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        MasqueColonnes (Target.Value)
    End If
End Sub

[MikeThe7]

Bonjour Minick,

Pour commencer, un grand merci pour ta réponse rapide.
Il doit y avoir quelque chose que je ne comprends pas parce que la macro ne fait que cacher la colonne "E", peu importe ce que je rentre dans la cellule "C3".

Que signifie "Option Explicit" mentionné avant le début de la macro ?
Pourquoi la macro "MasqueColonnes" n'apparait pas dans la liste lorsque je veux l'affecter à un bouton ?

Je suis désolé de poser de telles questions, mais je débute en VBA et l'aide ne m'est pas d'un grand secours.

[Minick]

Re,

Ooops desole j'ai inverse le test:
remplace

Code :

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

1
2
If Not Rech Is Nothing Then
    Rech.Entirecolumn.Hidden=True

par

Code :

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

1
2
                If Rech Is Nothing Then
                    Columns(Colonne).Hidden = True

Option Explicit sert a imposer la declaration des variables

Tu ne vois pas la procedure MasqueColonnes car elle a un argument (ValeurRecherchee).

Mais il n'est pas necessaire de l'assossier a un bouton vu que tu disais:

Ce que j'aimerais, c'est que lorsque je tape "Papillon" en "C3" puis "Entrée", la macro se déclenche.

Et c'est ce que fais:

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" Then
        MasqueColonnes (Target.Value)
    End If
End Sub

[MikeThe7]

J'ai maintenant le code erreur suivant :

Erreur d'exécution '91' :
Variable objet ou variable de bloc With non définie

L'erreur m'envoie sur la ligne :

Code :

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

Rech.EntireColumn.Hidden = True

Pour ce qui est de Option Explicit, je l'ai inséré avant la macro, comme indiqué, ce qui fait que cette ligne ne fait pas partie des 2 macros.

Je sais je suis pas très doué...

[Minick]

Desole, decidement je fais n'importe quoi.

J'ai edite mon precedent message parce que j'avais ecris une enorme betise.

Pour Option Explicit, il doit etre en tete de chaque Module.