Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Format cellule : transformer 1 en 01

Créer une discussion

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 !

S'inscrire
K

Ken Hutchinson

XLDnaute Occasionnel
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 :

Code: 
    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 ?
 
Trier par date Trier par votes
Re : Format cellule : transformer 1 en 01

Bonjour,
Peut-être comme ça
Code: 
        For i = 2 To nblignes
        Cells(i, 5).FormulaR1C1 = "=NO.SEMAINE(RC[-4],2)"
        Cells(i, 5).NumberFormat = "0#"
        Next i
A+
kjin
 
Vote positif 0 Vote négatif
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...

Code: 
   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
 
Vote positif 0 Vote négatif
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
Code: 
        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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

W
  • Résolu(e)
XL 2016 Lignes vba "Saut de page" qui empêchent l'ouverture des Userform sur toutes les feuilles
Réponses
8
Affichages
133
Webperegrino
W
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
139
Eric 888
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
882
piga25
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
608
snoopy07
S
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
854
Lu76Fer
N
  • Résolu(e)
Microsoft 365 Transformer le résulta d'une formule en Date
Réponses
2
Affichages
494
Nathan027
N
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
364
Cédric06400
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
825
KRUG WOO
K
F
  • Résolu(e)
Microsoft 365 comptage de cellules
Réponses
3
Affichages
440
FRB78
F
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
785
filiph79
F
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
935
crocrocro
C
M
  • Résolu(e)
XL 2019 [Résolu] VBA test sur une cellule en format [hh]:mm
Réponses
4
Affichages
768
miloo
M
R
  • Résolu(e)
XL 2016 Ecrire dans deux cellules de feuilles différentes en même temps
Réponses
6
Affichages
853
ReneDav14000
R
S
  • Résolu(e)
Microsoft 365 Trouver une valeur en fonction de plusieurs critères de recherche dont certains sont approximatifs
Réponses
10
Affichages
1 K
sgas
S
V
  • Question Question
Microsoft 365 copie de couleur d'une cellule à une autre sous condition
2 3
Réponses
35
Affichages
3 K
virdg
V
O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
1 K
Oko
O
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…