VBA : Variable dans formule

[dionys0s]

Bonjour le forum (ou plutôt re...)

Je me tire les cheveux sur le code suivant :

Sub A()

Feuil1.Select
Dim SER As String

SER = Mid(Range("A18").Value, 19, Len(Range("A18").Value) - 18)
Feuil4.Visible = True
Feuil4.Select

Rows("1:1").Select
Selection.Find(What:=SER, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Offset(1, 0).Select

CodSER = ActiveCell.Value

Feuil1.Select

Range("E1").FormulaR1C1 = "=""BAR ""& Year(TODAY()) & Month(TODAY()) & "" - 01"""

End Sub

Ce code-ci marche. Traduite dans Excel, la formule en E1 donne ceci :
="BAR "& ANNEE(AUJOURDHUI()) & MOIS(AUJOURDHUI()) & " - 01"

Seulement j'aimerais remplacer "BAR" par ma variable CodSER (du texte) définie juste au dessus, et qui semble correcte, puisqu'à l'exécution pas par pas de la macro, elle annonce la bonne valeur. Mais impossible d'afficher ma variable dans ma cellule à la fin de l'execution. J'ai l'impression d'avoir tout essayé mais ça m'affiche soit #NOM, soit CodSER 201011 - 01...

Aurais-je mal défini ma variable CodSER ?

D'avance merci pour votre aide

 

[Etienne2323]

Re : VBA : Variable dans formule

Salut dionys0s,

à tester et adapter sur ton fichier.

Sub A()

Dim SER As String, CodSER As String

Application.ScreenUpdating = False

Sheets("Feuil1").Select
SER = Mid(Range("A18").Value, 19, Len(Range("A18").Value) - 18)

If Sheets("Feuil4").Visible = False Then Sheets("Feuil4").Visible = True
Sheets("Feuil4").Select

Set c = Rows("1:1").Find(What:=SER, LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
    CodSER = Cells(c.Row + 1, c.Column).Value
Else
    Exit Sub
End If

Sheets("Feuil1").Select

Range("E1").Formula = "=CONCATENATE(""" & CodSER & ""","" "",TEXT(DATE(YEAR(NOW()),MONTH(NOW()),1),""aaaa-mmm-jj""))"

End Sub

Cordialement,

Étienne

 

[Dan]

Re : VBA : Variable dans formule

Bonsoir,

Plus simple, essaie comme ceci :

Dim Codser as string, ref as string
codser = "BAR"
ref = Format(Date, "yyyymm") & " - 01"
Range("E1") = codser & " " & ref

Amicalement

 

[dionys0s]

Re : VBA : Variable dans formule

Ca marche avec la formule concatener.
Merci beaucoup Etienne.