XL 2016 Va remplacer un / par un espace

  • Initiateur de la discussion Initiateur de la discussion mcj1997
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mcj1997

XLDnaute Accro
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 aut😵pen()
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


 
Bonjour
La même chose en Vba
VB:
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
 
Re
Edit :Bonjour @pierrejean
Pas vu ta réponse

Et par macro

VB:
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
 
Bonjour le forum
Bonjour mcj1997, bonjour Phil, bonjour pierrejean

Je pense que l'on peux aussi mettre ceci :
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
3
Affichages
665
Réponses
3
Affichages
672
Retour