Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Deux actions même cellule

Deux actions même cellule

6 réponses
Avatar
dadda
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et=20
cacher colonne C puis recliquer (ou re-doublecliquer)=20
dans la m=EAme cellule A1 et faire r=E9apparaitre la colonne C
Merci beaucoup.
dadda
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pascal Engelmajer
Salut,
pourquoi utiliser la cellule et pas un bouton ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"dadda" a écrit dans le message de news:
1b8dd01c45071$2eb49690$
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et
cacher colonne C puis recliquer (ou re-doublecliquer)
dans la même cellule A1 et faire réapparaitre la colonne C
Merci beaucoup.
dadda
Avatar
Jacky
Bonjour dadda

Quelque chose comme cela

'---------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
If Target = [a1] Then
If Columns("C:C").EntireColumn.Hidden = True Then
Columns("C:C").EntireColumn.Hidden = False
Else
Columns("C:C").EntireColumn.Hidden = True
End If
End If
End Sub
'---------------
Salutations
JJ

"dadda" a écrit dans le message de
news:1b8dd01c45071$2eb49690$
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et
cacher colonne C puis recliquer (ou re-doublecliquer)
dans la même cellule A1 et faire réapparaitre la colonne C
Merci beaucoup.
dadda
Avatar
michdenis
Bonjour Dadda,


Copie ceci dans le module feuille où l'action se déroule.

L'action se déroule suite à double-clic dans la cellule A1

'-------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = Range("A1").Address Then
With Range("C:C")
If .EntireColumn.Hidden = True Then
.EntireColumn.Hidden = False
Else
.EntireColumn.Hidden = True
End If
End With
End If

End Sub
'-------------------------------

Salutations!



"dadda" a écrit dans le message de news:1b8dd01c45071$2eb49690$
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et
cacher colonne C puis recliquer (ou re-doublecliquer)
dans la même cellule A1 et faire réapparaitre la colonne C
Merci beaucoup.
dadda
Avatar
Jacky
Bonjour Pascal

Ou Format/colonne/masquer....

Enfin.....
Salutations
JJ

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
pourquoi utiliser la cellule et pas un bouton ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"dadda" a écrit dans le message de news:
1b8dd01c45071$2eb49690$
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et
cacher colonne C puis recliquer (ou re-doublecliquer)
dans la même cellule A1 et faire réapparaitre la colonne C
Merci beaucoup.
dadda




Avatar
ChrisV
Ou encore...

(après avoir sélectionner la colonne C)
Données/Grouper et créer un plan/Grouper

;-)


ChrisV


"Jacky" a écrit dans le message de
news:
Bonjour Pascal

Ou Format/colonne/masquer....

Enfin.....
Salutations
JJ

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
pourquoi utiliser la cellule et pas un bouton ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"dadda" a écrit dans le message de
news:


1b8dd01c45071$2eb49690$
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et
cacher colonne C puis recliquer (ou re-doublecliquer)
dans la même cellule A1 et faire réapparaitre la colonne C
Merci beaucoup.
dadda








Avatar
Jacky
ou avec un seul clique sur A1
'-----------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = [a1] Then
If Columns("C:C").EntireColumn.Hidden = True Then
Columns("C:C").EntireColumn.Hidden = False
Else
Columns("C:C").EntireColumn.Hidden = True
End If
End If
End Sub
'-----------
JJ

"Jacky" a écrit dans le message de
news:%
Bonjour dadda

Quelque chose comme cela

'---------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel

As Boolean)
If Target = [a1] Then
If Columns("C:C").EntireColumn.Hidden = True Then
Columns("C:C").EntireColumn.Hidden = False
Else
Columns("C:C").EntireColumn.Hidden = True
End If
End If
End Sub
'---------------
Salutations
JJ

"dadda" a écrit dans le message de
news:1b8dd01c45071$2eb49690$
Bonjour tout le monde ;
Comment cliquer (ou double cliquer) dans cellule A1 et
cacher colonne C puis recliquer (ou re-doublecliquer)
dans la même cellule A1 et faire réapparaitre la colonne C
Merci beaucoup.
dadda