Format cellule : transformer 1 en 01

[Ken Hutchinson]

Bonjour Amis du forum !!

Voilà dans une cellule je fais une formule qui va mettre le numéro de la semaine correspondant à une date. Le problème est que quand la semaine est inférieure à 10 ça me renvoie un seul chiffre. En claire quand la semaine est 2 je voudrais avoir 02...

Voici le code que j'utilise :

    Range("E2").Select
    
        For i = 2 To nblignes
        Selection.FormulaR1C1 = "=NO.SEMAINE(RC[-4],2)"
    ActiveCell.Offset(1, 0).Select
    Next i

Comment dire qu'on veut systématiquement 2 chiffre dans la colonne E ?

 

[kjin]

Re : Format cellule : transformer 1 en 01

Bonjour,
Peut-être comme ça

        For i = 2 To nblignes
        Cells(i, 5).FormulaR1C1 = "=NO.SEMAINE(RC[-4],2)"
        Cells(i, 5).NumberFormat = "0#"
        Next i

A+
kjin

 

[Ken Hutchinson]

Re : Format cellule : transformer 1 en 01

Super ça marche !! merci !!

Le problème est que quand je CONCATENE ces données avec l'année pour avoir par exemple "200801" le format disparait...

   Range("G2").Select
           For i = 2 To nblignes2
           
        Selection.FormulaR1C1 = "=CONCATENATE(RC[-1],RC[-2])"
    ActiveCell.Offset(1, 0).Select
    Next i

RC[-2] étant le numéro de semaine...


Ya t'il quelque chose à faire pour garder le format ?

merci de votre aide

 

[kjin]

Re : Format cellule : transformer 1 en 01

Re,
Si la date en colonne A, N° semaine en colonne E et si F est la colonne concernée par les valeurs concaténées

        For i = 2 To nblignes
        Cells(i, 5).FormulaR1C1 = "=NO.SEMAINE(RC[-4],2)"
        Cells(i, 5).NumberFormat = "0#"
        Cells(i, 6) = Format(Cells(i, 1), "yyyy") & Format(Cells(i, 5), "0#")
        Next i

A adapter compte tenu du peu d'info
En outre, tu as remarqué que je supprime systématiquement les "Select" qui sont inutiles en VBA et peuvent poser des pb.
A+
kjin

 

[Ken Hutchinson]

Re : Format cellule : transformer 1 en 01

Super ça marche !!!

Merci beaucoup !!!