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