Bonjour,

J'ai écrit ce petit programme :

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
Private Sub ToggleButton34_Click()
 
Dim v As String
 
 
v = InputBox( _
    Prompt:="What is the name of the task")
 
For i = 80 To 147
 
    If Cells(11, i) = v Then
 
    Range(Columns("K:K"), Columns(i - 1)).Hidden = Not Range(Columns("K:K"), Columns(i - 1)).Hidden
    'Selection.EntireColumns.Hidden
                        Else
    End If
 
Next
 
End Sub
Cependant j'ai un petit souci, lorsque j'appuie sur mon bouton bascule :

-Le code demande bien le nom de la tâche
-Les colonnes sont bien cachées

Cependant quand je veux re-cliquer sur le bouton bascule pour que les colonnes réapparaissent, le code se relance du début et me redemande le nom de la tâche.

Une idée pour que lors de la deuxième pression sur le bouton bascule, les colonnes réapparraissents ?