VBA texte et formule dans une même cellule

Bonjour à tous,

J'ai un léger problème... Pour remplir une cellule d'une feuille "Debours", j'utilise la fonction rechercheV (Vlookup en VBA) qui me donne un nom de ville.

J'aimerai dans une autre feuille (avec un nom sauvegardé dans la variable "resultat"), récupérer le nom de ville et le placer dans un texte dans une cellule.

Ce qui donnerait quelque chose du type: Lieu de destination: Amiens , ville européenne où Amiens serait tiré de la cellule dans debours


Voici un bout de mon code (avec la dernière ligne qui ne fonctionne pas)

Code:

---

1 2 3 4 5

Sheets("Debours").Cells(2, j) = WorksheetFunction.VLookup(resultat, Sheets("ListeIG").Range("A2:B2000"), 2, False) ' On va chercher dans la liste avec le code et on en ressort le nom du lieu Sheets("Debours").Cells(3, j).FormulaLocal = "= " & resultat & "!D1703"     Sheets(resultat).Cells(1, 1).FormulaLocal = "= Lieu de destination: " & Sheets("Debours").Cells(2, j).FormulaLocal

---

Si vous pouvez m'aider ça serait génial!

Merci d'avoir pris le temps de lire mon message

Pourquoi utiliser Formula alors qu'il n'y a pas de formule ?

Code:

---

Sheets(resultat).Cells(1, 1).Text = "Lieu de destination: " & Sheets("Debours").Cells(2, j).Text

---

L'erreur suivante s'affiche:

Impossible de définir la propriété Text de la classe Range

Alors essaye simplement :

Code:

---

Sheets(resultat).Cells(1, 1).Value = "Lieu de destination: " & Sheets("Debours").Cells(2, j).Value

---

ça fonctionne!
Un petit bout de code pour insérer un saut à la ligne entre le texte et le contenu de la case? :)

J'espère ne pas trop en demander

Bonjour,

Citation:

---

Un petit bout de code pour insérer un saut à la ligne entre le texte et le contenu de la case

---

Code:

---

Sheets("resultat").Cells(1, 1).Value = "Lieu de destination : " & Chr(10) & Sheets("Debours").Cells(2, j).Value

---

C'est parfait, merci!