Ouverture feuil avec double clic sur une cellule

Bonjour à tous,

Voici mon problème; je souhaiterai à partir de la Feuil1 et en faisant un double clic sur l'une des cellule B6 à B19, ouvrir la Feuil2.

Et avec si possible recopier la valeur de la cellule où il y a au le double clic.

Quelqu'un pourrait-il me venir en aide svp.

Voici le seul code que j'ai réussi à faire:

Private Sub worksheet_BeforeDOubleClick(ByVal Target As Range, Cancel As Boolean)

Sheets("controle").Visible = xlSheetVisible

Sheets("controle").Select

End Sub

Merci d'avance

Guillaume

Bonjour,

Un essai :

Private Sub worksheet_BeforeDOubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B6:B19")) Is Nothing Then 'Restreindre l'exécution à cette plage uniquement
    With Sheets("controle")
        .Visible = xlSheetVisible
        .Activate
        .Range("A1") = Target.Value 'Cellule de destination à adapter
    End With
    Cancel = True 'Annuler double clique
End If

End Sub

Salut,

Tu peux tester ça :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B6:B19")) Is Nothing Then
Sheets("Feuil2").Range("A1") = Selection.Value
Sheets("Feuil2").Activate
End If

End Sub

Edit : Salut Pedro, tu as été plus rapide et plus complet que moi

Bon courage,

Girodo

Super merci beaucoup à vous 2, cela fonctionne super bien .

Une dernière question.

Sur la feuil1, est ce qu'il est possible de faire un double clic sur les cellules sans pouvoir modifier les valeurs de ces cellules?

Super merci beaucoup à vous 2, cela fonctionne super bien .

Une dernière question.

Sur la feuil1, est ce qu'il est possible de faire un double clic sur les cellules sans pouvoir modifier les valeurs de ces cellules?

En protégeant la plage concernée ?

J'avais mi ce code la avant:

'Bloquer le défilement des fenêtres, le 12/02/2020 par Guillaume

ThisWorkbook.Sheets("accueil").ScrollArea = "C6:C19"

Mais le problème c'est je ne peux pas cliquer sur les cellules B6:B19.

J'avais mi ce code la avant:

'Bloquer le défilement des fenêtres, le 12/02/2020 par Guillaume

ThisWorkbook.Sheets("accueil").ScrollArea = "C6:C19"

Mais le problème c'est je ne peux pas cliquer sur les cellules B6:B19.

Je ne comprend pas ce que vous souhaitez faire ! Si les valeurs ne doivent pas être modifiables, il suffit simplement de protéger la plage...

Oui mais connaissez-vous un code pour cela?

Ok merci pour l'info

Ok merci pour l'info

Rechercher des sujets similaires à "ouverture feuil double clic"