Discussion :

[lilemy]

Bonjour,
alors je vais commencer par le code et après je donne les explications :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "Vous avez double cliqué sur la cellule " & Target.Address
Cancel = True
If FeuilleExiste(ThisWorkbook, Target.Address) Then
    Sheets(Target.Address).Select
Else
    Sheets.Add.Name = Target.Address
    tableau
    Sheets("Prix").Select
    Range(Target.Address).Select
    ActiveCell.FormulaR1C1 = "='Target.Address'!R48C7"
End If
End Sub

Alors pour expliquer en gros le code, je dit que quand je double clique dans une cellule, je verifie si une feuile au nom de la cellule exsite si elle existe alors je l'ouvre.
Si elle n'existe pas je la crais et la rempli.
(Jusque là sa fonctionne)
L'erreur est dans le ligne ActiveCell. Je veux que sa me colle le contenu de la page du target. Au lieu de sa il me met VALEUR ds ma cellule car o lieu d'avoir par exemple '$h$12'!R48C7 il me met 'Target.Address'!R48C7 comment je peux faire pour qu'il prenne la valeur du target et non l'appelation.
J'espère que vous m'avait comprise.
merci d'avance

[illight]

Au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "='Target.Address'!R48C7"

le problème et que la il t'écris la chaine de caractère, car tu ne lui dit pas d'écrire ce qu'il y a dans la variable

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "='" & Target.Address & "'!R48C7"

[lilemy]

merci sa fonctionne