Ajout numero semaine

bonjour,

est il possible par macro d'ajouter le numéro de la semaine en cours a toutes les cellules d'une colonne si celle ci ont moins de 6 caractères ?

cordialement

Supposons qu'en A1,A2,A3 tu aies tes données.

En B1 tu mets:

=SI(NBCAR(A1)>6;NO.SEMAINE(AUJOURDHUI()) & "-" & A1;A1)

Puis tu tires

bonjour EngueEngeu,

merci de ta réponse,

mon fichier étant déjà une usine a gaz , je ne souhaitais pas ajouter de colonne faire une validation par données et supprimer ensuite la colonne.

si je ne parviens pas a le faire directement par macro j'utiliserais une formule comme ci dessous.

donc si quelqu'un a une solution par macro je suis preneur

merci

Change le nom de ton sheet et ta colonne

Sub test()
    Dim NumSem As Byte
    Dim i As Long
    NumSem = DatePart("ww", Date, 2, 2)
    With Sheets("Lenomdetonsheet")
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            If Len(.Range("A" & i)) < 6 Then
                .Range("A" & i) = NumSem & "-" & .Range("A" & i)
            End If
        Next i
    End With
End Sub

ca c'est juste parfait

merci de ton aide!!