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

T
  • Question
XL 2021 Intervalle entre deux des jours semaines
Réponses
4
Affichages
313
Jean-Eric
N
  • Question
XL 2021 RECHERCHEV table matrice dans un autre classeur fermé
Réponses
3
Affichages
372
nunizgb
N
H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
292
HANN
H
  • Résolu(e)
XL 2013 (RESOLU) Modification Manuelle et changement Automatique
Réponses
9
Affichages
484
job75
L
  • Question
XL 2019 afficher date maximum dans une colonne
Réponses
6
Affichages
496
sylvanu
A
  • Question
XL 2010 Macro VBA
Réponses
3
Affichages
571
sylvanu
  • Résolu(e)
XL 2013 Ajuster Automatiquement la Hauteur d'une Cellule Fusionnée en Fonction du Texte
Réponses
9
Affichages
457
TooFatBoy
F
  • Résolu(e)
XL 2016 Fonction SI et DATEDIF combinée
Réponses
3
Affichages
502
ALS35
A
  • Résolu(e)
XL 2013 (RESOLU) Classement par zone (de 01 - 50) selon la cellule D5
Réponses
12
Affichages
397
chaelie2015
A
  • Résolu(e)
XL 2013 Décomposer une Date avec VBA
Réponses
14
Affichages
567
azerty129
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…