Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb code VBA

Pb code VBA

10 réponses
Avatar
Steve
Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une zone
verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden de la
classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.
Signaler un problème avec ce contenu

10 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
JLuc
*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une zone
verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden de la
classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
Steve
Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une zone
verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden de
la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS





Avatar
Michel Gaboly
Bonsoir,

Remplace

If Not intersect(Target, "$E$45:$E$47") Is Nothing Then

par

If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then


Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de new s:


*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir


Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné u ne zone
verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden de
la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de truc s et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS









--
Cordialement,

Michel Gaboly
www.gaboly.com



Avatar
JLuc
*Bonjour Steve*,
Mille excuses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
MsgBox "aaa"
End If
End Sub

Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une zone
verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden de
la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS



Avatar
Steve
Merci Michel, merci Jluc
ça fonctionne bien. Le code me fait bien"disparaitre" la zone, mais je
n'arrive pas à la faire
"réapparaitre" en re clikant la cellule."$E$45:$E$47"
Est ce possible ou non?
Merci de votr aide


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
Mille excuses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
MsgBox "aaa"
End If
End Sub

Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une
zone verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden
de la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS







Avatar
JLuc
*Bonjour Steve*,
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End if

Merci Michel, merci Jluc
ça fonctionne bien. Le code me fait bien"disparaitre" la zone, mais je
n'arrive pas à la faire
"réapparaitre" en re clikant la cellule."$E$45:$E$47"
Est ce possible ou non?
Merci de votr aide


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
Mille excuses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
MsgBox "aaa"
End If
End Sub

Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une
zone verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden
de la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS





Avatar
Steve
Super
Encore merci JLuc
Bonsoir;

"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End if

Merci Michel, merci Jluc
ça fonctionne bien. Le code me fait bien"disparaitre" la zone, mais je
n'arrive pas à la faire
"réapparaitre" en re clikant la cellule."$E$45:$E$47"
Est ce possible ou non?
Merci de votr aide


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
Mille excuses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
MsgBox "aaa"
End If
End Sub

Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de news:

*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une
zone verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété
hidden de la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.



-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS









Avatar
Michel Gaboly
Re,

De rien ;-))

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Canc el As Boolean)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
Range("GROUPES").EntireRow.Hidden = Not (Range("GROUPES").EntireRo w.Hidden)
End If
End Sub


*Bonjour Steve*,
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End if

Merci Michel, merci Jluc
ça fonctionne bien. Le code me fait bien"disparaitre" la zone, mais je
n'arrive pas à la faire
"réapparaitre" en re clikant la cellule."$E$45:$E$47"
Est ce possible ou non?
Merci de votr aide


"JLuc" a écrit dans le message de
news:

*Bonjour Steve*,
Mille excuses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
MsgBox "aaa"
End If
End Sub

Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de
news:

*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné
une zone verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriét é
hidden de la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,
Cancel As Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.




-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de
trucs et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de
trucs et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS









--
Cordialement,

Michel Gaboly
www.gaboly.com






Avatar
JLuc
*Bonjour Michel Gaboly*,
Genial ce code, on a beau savoir que ca existe, on le laisse toujours
de cote : c'est vraiment dommage :-Z
Re,

De rien ;-))

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
Range("GROUPES").EntireRow.Hidden = Not
(Range("GROUPES").EntireRow.Hidden)
End If
End Sub


*Bonjour Steve*,
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End if

Merci Michel, merci Jluc
ça fonctionne bien. Le code me fait bien"disparaitre" la zone, mais je
n'arrive pas à la faire
"réapparaitre" en re clikant la cellule."$E$45:$E$47"
Est ce possible ou non?
Merci de votr aide


"JLuc" a écrit dans le message de news:


*Bonjour Steve*,
Mille excuses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
MsgBox "aaa"
End If
End Sub

Merci Jean Luc mais le code me donne :
"Erreur de compilation imcompatibilité de type"


"JLuc" a écrit dans le message de news:


*Bonjour Steve*,
If Not intersect(Target, "$E$45:$E$47") Is Nothing Then
devrais convenir

Bonsoir,
J'aimerai en cliquant sur une cellule "$E$45:$E$47", sélectionné une
zone verticale nommée "GROUPES", pour
la faire "disparaitre" ou la faire "réapparaitre"
Le code qui suit me donne : "impossible de définir la propriété hidden
de la classe range"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Address = "$E$45:$E$47" Then
Application.Goto Reference:="GROUPES"
Selection.EntireRow.Hidden = True
End If
End Sub

Merci de votre aide.




-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS






-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS










--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS







Avatar
Michel Gaboly
;-))

*Bonjour Michel Gaboly*,
Genial ce code, on a beau savoir que ca existe, on le laisse toujours d e
cote : c'est vraiment dommage :-Z

Re,

De rien ;-))

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("$E$45:$E$47")) Is Nothing Then
Range("GROUPES").EntireRow.Hidden = Not
(Range("GROUPES").EntireRow.Hidden)
End If
End Sub





--
Cordialement,

Michel Gaboly
www.gaboly.com