Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Afiner un Proc. événementielle dble clic

Afiner un Proc. événementielle dble clic

4 réponses
Avatar
Emile63
Bonjour =E0 tous,
Je souhaite am=E9liorer la proc. ci-dessous, de telle sorte que quand je
dble-clic sur une cellule,
il ouvre le fichier que contient la cellule qui se trouve a droite de
celle que j'ai dble-cliqu=E9.
Avec cette proc. j'ouvre la cellule cliqu=E9e, mais je souhaite masquer
la colonne qui contient les chemins complets(cellule a droite de
target)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
Cancel =3D True
Workbooks.Open (Target.Value)
Application.WindowState =3D xlMaximized
ActiveWindow.WindowState =3D xlMaximized
End Select
End Sub

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

4 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
LSteph
Bonjour,

'....
Workbooks.Open Target.offset(0,1)
'....

sinon sans macro
mettre dans une cellule ='c:monrep[monfichier.xls]Feuil1'!A1
dans outils options enlever la coche à modification directe
dans ce cas quand on double-clique ça ouvre!

--
lSteph

On 29 juin, 08:50, Emile63 wrote:
Bonjour à tous,
Je souhaite améliorer la proc. ci-dessous, de telle sorte que quand je
dble-clic sur une cellule,
il ouvre le fichier que contient la cellule qui se trouve a droite de
celle que j'ai dble-cliqué.
Avec cette proc. j'ouvre la cellule cliquée, mais je souhaite masquer
la colonne qui contient les chemins complets(cellule a droite de
target)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
Cancel = True
            Workbooks.Open (Target.Value)
            Application.WindowState = xlMaximized
            ActiveWindow.WindowState = xlMaximized
    End Select
End Sub

Merci de votre aide,
Cordialement,


Avatar
Emile63
On 29 jun, 08:50, Emile63 wrote:
Bonjour à tous,
Je souhaite améliorer la proc. ci-dessous, de telle sorte que quand je
dble-clic sur une cellule,
il ouvre le fichier que contient la cellule qui se trouve a droite de
celle que j'ai dble-cliqué.
Avec cette proc. j'ouvre la cellule cliquée, mais je souhaite masquer
la colonne qui contient les chemins complets(cellule a droite de
target)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
Cancel = True
            Workbooks.Open (Target.Value)
            Application.WindowState = xlMaximized
            ActiveWindow.WindowState = xlMaximized
    End Select
End Sub

Merci de votre aide,
Cordialement,



Bonjour ISteph et merci pour ton aide. :-) Ça fonctionne!
Je tournais autour de l'Offset depuis hier, mais je n'utilisais pas la
bonne syntaxe...
Pourquoi est-ce qu'on n'a pas besoin de se référer à la "valeur" qui
se trouve dans la cellule correspondante au déplacement de
target.offset?
Heuuu, quelque chose comme ça (j'en étais là):
Workbooks.Open Target.(offset(0,1)).Value
Merci de m'éclairer par cette petite explication, pour ma meilleure
compréhension.

Cordialement,
Emile
Avatar
LSteph
Bonjour,

Pourquoi est-ce qu'on n'a pas besoin de se référer à la "valeur"



Explication toute personnelle:
En fait .value serait effectivement et plus proprement ce que l'on
veut récupèrer , toutefois..
comme on affecte un objet à un autre objet, il va en prendre
minimalement cette propriété.


Cordialement.

--
lSteph

On 29 juin, 17:31, Emile63 wrote:
On 29 jun, 08:50, Emile63 wrote:





> Bonjour à tous,
> Je souhaite améliorer la proc. ci-dessous, de telle sorte que quand j e
> dble-clic sur une cellule,
> il ouvre le fichier que contient la cellule qui se trouve a droite de
> celle que j'ai dble-cliqué.
> Avec cette proc. j'ouvre la cellule cliquée, mais je souhaite masquer
> la colonne qui contient les chemins complets(cellule a droite de
> target)

> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
> As Boolean)
> On Error Resume Next
> Cancel = True
>             Workbooks.Open (Target.Value)
>             Application.WindowState = xlMaximized
>             ActiveWindow.WindowState = xlMaximized
>     End Select
> End Sub

> Merci de votre aide,
> Cordialement,

Bonjour ISteph  et merci pour ton aide.   :-)   Ça fonctionne!
Je tournais autour de l'Offset depuis hier, mais je n'utilisais pas la
bonne syntaxe...
Pourquoi est-ce qu'on n'a pas besoin de se référer à la "valeur" qu i
se trouve dans la cellule correspondante au déplacement de
target.offset?
Heuuu, quelque chose comme ça (j'en étais là):
Workbooks.Open Target.(offset(0,1)).Value
Merci de m'éclairer par cette petite explication, pour ma meilleure
compréhension.

Cordialement,
Emile- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
Emile63
On 29 jun, 08:50, Emile63 wrote:
Bonjour à tous,
Je souhaite améliorer la proc. ci-dessous, de telle sorte que quand je
dble-clic sur une cellule,
il ouvre le fichier que contient la cellule qui se trouve a droite de
celle que j'ai dble-cliqué.
Avec cette proc. j'ouvre la cellule cliquée, mais je souhaite masquer
la colonne qui contient les chemins complets(cellule a droite de
target)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
Cancel = True
            Workbooks.Open (Target.Value)
            Application.WindowState = xlMaximized
            ActiveWindow.WindowState = xlMaximized
    End Select
End Sub

Merci de votre aide,
Cordialement,



Ok, j'ai compris.. Merci