Macro pour rechercher et copier une cellule
Bonjour,
Je souhaite créer une macro pour rechercher une cellule dans un onglet et copier son adresse dans une autre cellule et un autre onglet.
Concrètement j'ai 2 onglets :
- F06
- PARETO
Quand je clique sur un bouton dans l'onglet "PARETO" ça démarre une macro qui me charge des données et à un moment je veux qu'il me demande de sélectionner une cellule dans l'onglet "F06"
Pour l'instant j'ai réussi à faire ça :
Range("H2").Select
Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
ActiveCell.Value = "=" & Plage.Address
Cependant il me copie la valeur dans la cellule "H3" de l'onglet "PARETO" sous cette forme : "=$S$3"
Hors ce que je souhaite c'est avoir le lien avec la cellule de l'onglet "F06", donc cette forme là : "='F06'!S3"
Avez vous une idée pour transformer ma macro afin d'atteindre mon but ?
Bonne journée
Thibault
Bonsoir,
voici
ActiveCell.Value = "=" & Plage.Parent.Name & "!" & Plage.AddressBonjour,
Merci pour ta réponse h2so4.
Un dernier détail à régler :
J'ai comme résultat ça : "='F06'!$O$3"
Hors je souhaiterais ne pas avoir les "$", donc ça : "='F06'!O3"
Est-ce possible ?
Bonne journée
Thibault
bonjour,
voici
ActiveCell.Value = "=" & Plage.Parent.Name & "!" & replace(Plage.Address,"$","")Merci c'est parfait.