Bonsoir,

Il existe de nombreux posts à ce sujet mais malgré mes recherches je n'ai pas réussi à atteindre mon objectif :
J'essaie de remplir automatiquement une référence :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim aa As String
 aa = Left(Ccable, 6) 'Ref câble
 Dim bb As Variant
 bb = Cells(LigneUti + 1, ColUti - 2).Address 'Ref cellule 1
 Dim cc As Variant
 cc = Cells(Ligne1 + 3, Col1 + 9).Address 'Ref cellule 2
 
    MaPlage.Value = _
        "=  Code " & aa & "  - A  " & bb & " O " & cc & " E"
Cette formule me donne dans ma cellule Excel :
= Code 24 Fo - A $BW$124 - O $CH$126 E

J'ai une autre formule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
    MaPlage.Value = _
        "= ""Code ""& ""aa ""& ""- A""& bb &""- O""& cc& "" E"""
Qui donne :
= "Code "& "aa "& "- A"& bb &"- O"& cc& " E"


Or, ce que je voudrais obtenir, c'est :
= "Code "& "24 Fo "& "- A"& $BW$124 &"- O"& $CH$126 & " E"

En gros soit je n'arrive pas à insérer de guillemets dans ma formule, soit je perds les valeurs correspondant à mes variables

Il n'y a pas vraiment de formule mais l'important pour moi c'est de conserver la valeur de mes deux cellules en référence, car si l'utilisateur y effectue un changement il faut qu'il se répercute sur la référence de mon câble.

Je ne sais pas si je suis très claire, mais si quelqu'un a un piste je suis preneur!