Titre en VBA

Bonjour à tous,

je reviens vers vous, car j'ai un code que je souhaite mettre en place, mais il bug ... je pense que c'est tout bete comme erreur ... mais bon quand on est pas doué ... et bin on l'ai pas !

Je souhaite ecrre sur la ligne 2 "Extract of VFU based on " et avoir le nom de le contenu de ma cellule nommée "non_VFU"

et sur la ligne 3, je souhaite "Product Code :" avec le contenu de ma cellule nommée "product_code" suivir de " - CCR Number : " avec le contenu de ma cellule "CCR".

Il bug au niveau de = ActiveCell.formularR1C1 = "Product code : " & Range("product_code").Value & " - CCR number : " & Range("CCR").Value

voici mon code

'titre de l'extract

Range("A2").Select

ActiveCell.FormulaR1C1 = "Extract of VFU based on " & Range("nom_VFU").Value

Range("A3").Select

ActiveCell.formularR1C1 = "Product code : " & Range("product_code").Value & " - CCR number : " & Range("CCR").Value

Range("A2:N3").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

With Selection.Font

.Name = "Calibri"

.Size = 16

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Selection.Font.Bold = True

Rows("2:3").Select

Selection.RowHeight = 21

Merci par avance pour votre aide

Laurent

Bonjour,

Il sert à quoi le petit "r" qui est venu s’insérer dans la formule ?

ActiveCell.formularR1C1 = "Product code : " & Range("product_code").Value & " - CCR number : " & Range("CCR").Value

A+

Bonjour Frangy,

je l'avais dit ... quand on est pas doué ...

En tout cas, merci pour ton aide ... t'es trop fort, ca marche nickel

bonne journée,

Laurent

Rechercher des sujets similaires à "titre vba"