Discussion :

[barbeaua]

Bonjour,
Je cherche à lier 2 cellules lors de l'appui sur un bouton. Je m'explique:
J'ai un onglet avec des prix pour un produit global et un autre pour les parties spécifiques.
Je peux ajouter des parties spécifiques (nouvelle feuille) en appuyant sur un bouton. J'aimerai que les cases de cette nouvelle feuille se lient directement aux cases du produit global.
Voici mon code:

Code :

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

1
2
3
4
5
6
Sub duplique()
    Sheets("Debours").Range("A55").Value = Sheets("Debours").Range("A55").Value + 1
    Sheets("Page Vierge").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Site suivant"
    Sheets("Debours").Range("D11").FormulaLocal = "=  Sheets("Site suivant").Range("D11") "
End Sub

Evidemment la dernière ligne ne fonctionne pas..
Dans l'idéal, je voudrai créer une nouvelle colonne dans "Debours" qui contiendrait les infos de "site suivant" et ce, à chaque appui sur le bouton...
J'espère avoir été clair, merci d'avoir pris le temps de lire ce message et de m'aider si possible

[Menhir]

Tout simplement

Code :

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

    Sheets("Debours").Range("D11").FormulaLocal = "='Site suivant!D11"

[barbeaua]

Merci,

Est-il possible de décaler le résultat dans la feuille Débours?

J'ai déjà effectué un compteur, afin de savoir combien de pages ont été ajoutées, j'aimerai donc mettre l'info de la nouvelle page "site suivant" dans une nouvelle colonne de "Debours".

J'imagine quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
 
Sub duplique()
    Sheets("Debours").Range("A55").Value = Sheets("Debours").Range("A55").Value + 1
    Sheets("Page Vierge").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Site suivant"
    Sheets("Debours").Range("D11 +Sheets("Debours").Range("A55").Value").FormulaLocal = "='Site suivant!D11"
End Sub

Mais cela ne fonctionne pas

[Menhir]

Code :

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

    Sheets("Debours").Cells(11 + Sheets("Debours").Range("A55").Value, 4).FormulaLocal = "='Site suivant!D11"

[barbeaua]

Vous avez répondu exactement à ce que je recherchais, merci!

[Grosjul]

Bonjour barbeaua, Menhir, le forum,

Je profite de ce sujet tout frais pour apporter une question complémentaire.
Je suis novice dans l'utilisation des forums, j'espère bien m'y prendre et poster ma requête au bon endroit.

j'explique mon problème : je dispose d'un classeur excel avec une seule feuille au départ. L'idée serait que l'utilisateur puisse dupliquer la feuille à l'identique grâce à un bouton auquel j'aurais affecté une macro. la feuille devra se dupliquer en créant un nouvel onglet et en liant une cellule de la nouvelle feuille à la feuille précédente. voilà le code que j'ai réussi à faire pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub DupliquerOnglet()
 
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
Range("J26").Select
ActiveCell.FormulaR1C1 = "='Sheets(Sheets.Count-1)'!R[-2]C"
 
End Sub

Le début du code semble fonctionner comme je le veux cependant la dernière ligne pose problème car au lieu de lier la cellule J26 de la dernière feuille à la cellule J24 de l'avant dernière feuille, excel ouvre une fenêtre et me demande de : " Mettre à jour les valeurs : Sheets(Sheets.Count-1) ".

J'éspère avoir été clair,

Je vous remercie pour votre aide !