Discussion :

[barbeaua]

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 :

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

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

[Menhir]

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

Code :

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

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

[barbeaua]

L'erreur suivante s'affiche:

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

[Menhir]

Alors essaye simplement :

Code :

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

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

[barbeaua]

ç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

[casefayere]

Bonjour,

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

Code :

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

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

[barbeaua]

C'est parfait, merci!