Copiage d'une page à une autre
Bonjour,
alors je vais commencer par le code et après je donne les explications :
Code:
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
