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

Autres (RESOLU)Format d'une cellule (vba)

chaelie2015

XLDnaute Accro
Bonjour Forum
je souhaite afficher dans les cellules de la colonne (par exemple D) format d'un nombre "000/BEL/année de la cellule de colonne B"
exemple : j'ai une colonne B (date) et colonne D ( nombre)
si je saisi dans une cellule de D un nombre ( par exemple dans D6=9) il s'affiche automatiquement 009/BEL/2022
l'année 2022 c'est l'année dans la cellule B6=12/01/2022.
si B14= 12/11/2020 alors quand je sais une valeur dans la cellule D14 un chiffre par exemple 25 alos j'aurai automatiquement dans la cellule D14 = 025/BEL/2020.
et ainsi de suite ...

Merci par avance
 
Dernière édition:
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
Bonjour,
Essaye comme ceci
Le tout pour la ligne 6
Code: 
=TEXTE(D6;"000")&"/BEL/"&ANNEE(B6)

en vba, résultat en A6
VB: 
   [a6] = Format([d6], "000") & "/BEL/" & Year([b6])
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour à tous

Je te propose :
Non testé faute de fichier exemple..

VB: 
Sub Mon_Format()
Application.ScreenUpdating = False
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To Derlig
    Range("D" & i).Value = Format(Range("D" & i).Value, "000") & "/BEL/" & Year(Range("B" & i).Value)
Next i
End Sub

Edit code modifié vu le fichier fourni......

*Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
XL 2016 Calcul de date par rapport à un critère
Réponses
10
Affichages
219
JHA
J
J
  • Résolu(e)
XL 2021 Coloriser une cellule avec un click d'une colonne
Réponses
10
Affichages
207
TooFatBoy
N
  • Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
270
mapomme
U
  • Résolu(e)
Autres [RESOLU] Ajout dans macro mais où sans trop de casse!!!
Réponses
8
Affichages
445
crocrocro
C
T
  • Question
XL 2021 Intervalle entre deux des jours semaines
Réponses
4
Affichages
479
Jean-Eric
A
  • Résolu(e)
Microsoft 365 Formule : identifier si une date est dépassée par rapport à une autre date (sur TCD)
Réponses
2
Affichages
82
Alstroemeria
A
K
  • Question
Microsoft 365 Remplir automatiquement une cellule sous conditions
Réponses
4
Affichages
249
Kizito
K
U
  • Question
Autres [RESOLU] Dans quelle macro ThisWorkbook dois-je intervenir
Réponses
3
Affichages
276
un internaute
U
I
  • Résolu(e)
XL 2021 Somme cellule a droite du critère 1 ligne plusieurs colonnes
Réponses
5
Affichages
187
Idealnight
I
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
226
Olihoes
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…