XL 2016 Va remplacer un / par un espace

[mcj1997]

Bonjour,

La macro ci-dessous me permet d’afficher les semaines sous ce format s01/2022, j’aimerai remplacer par s01 2022

Merci d’avance,

Sub autpen()
Dim datetest As Date
Dim semaine As Integer
Dim i As Integer
Dim texte As String
Dim sem As String
Range("A:A").Clear
datetest = Now()
semaine = Format(datetest, "ww", vbMonday, vbFirstFourDays)
For i = 1 To semaine
If i < 10 Then sem = CStr(0) + CStr(i)
If i > 9 Then sem = CStr(i)
texte = "s" + Replace$(sem + "/" + Str(Year(datetest)), " ", "")
Cells(1 + i, 1).Value = texte
Next i
End Sub

 

[Phil69970]

Bonjour @mcj1997

Pourquoi du VBA alors qu'une simple formule suffit :
(Dans l'exemple les données sont en A2)

=SUBSTITUE(A2;"/";" ")

@Phil69970

 

[pierrejean]

Bonjour
La même chose en Vba

Sub auto_Open()
Dim datetest As Date
Dim semaine As Integer
Dim i As Integer
Dim texte As String
Dim sem As String
Range("A:A").Clear
datetest = Now()
semaine = Format(datetest, "ww", vbMonday, vbFirstFourDays)
For i = 1 To semaine
If i < 10 Then sem = CStr(0) + CStr(i)
If i > 9 Then sem = CStr(i)
texte = "s" + Replace$(sem + "/" + Str(Year(datetest)), " ", "")
texte = Replace(texte, "/", " ")
Cells(1 + i, 1).Value = texte
Next i
End Sub

 

[mcj1997]

J’ai besoin de macro tel que, merci d’avance

 

[Phil69970]

Re
Edit :Bonjour @pierrejean
Pas vu ta réponse

Et par macro

Sub auto_Open()
Dim datetest As Date
Dim semaine As Integer
Dim i As Integer
Dim texte As String
Dim sem As String
Range("A:A").Clear
datetest = Now()
semaine = Format(datetest, "ww", vbMonday, vbFirstFourDays)
For i = 1 To semaine
    If i < 10 Then sem = CStr(0) + CStr(i)
    If i > 9 Then sem = CStr(i)
    texte = "s" & Replace$(sem & Str(Year(datetest)), "", " ")
    Cells(1 + i, 1).Value = texte
Next i
End Sub

@phil69

 

[mcj1997]

C’est partiellement OK, en effet je n’ai plus la barre, mais je n’ai pas d’espace à la place, pour avoir au final s01 2022.

Merci d’avance

 

[Phil69970]

Re

Avec mon code il y a qu'un seul espace

@Phil69970

 

[Eric C]

Bonjour le forum
Bonjour mcj1997, bonjour Phil, bonjour pierrejean

Je pense que l'on peux aussi mettre ceci :

texte = "s" + (sem) & Str(Year(datetest))
'texte = "s" + (sem) & " " & Str(Year(datetest)) 'Avec espace supplémentaire
'texte = "s" + Replace$(sem + "/" + Str(Year(datetest)), " ", "")

Bonne journée à toutes & à tous
@+ Eric c

 

[mcj1997]

Parfait, merci à tous les trois.