Format de cellule dans VBA

Résolu/Fermé

qaywsx Messages postés 5 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 19 février 2015 - 17 nov. 2014 à 23:57
qaywsx Messages postés 5 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 19 février 2015 - 18 nov. 2014 à 09:53

Bonjour,

Je souhaite imposer un format de cellule basé sur la date du jour avec un chiffre complémentaire.
J'ai essayé "00000000-0" mais ce n'est pas satisfaisant.

Je m'explique par un exemple:

Si nous sommes le 17.11.2014, je souhaite pouvoir saisir un texte(nombre) composé de la date en sens inverse 20141117 suivi d'un chiffre entre 1 et 9 soit au final 20141117-1 par exemple.

J'aimerais qu'il ne soit pas possible de saisir que partiellement la date inversée, car si je saisis les 5 premiers chiffres uniquement ça me donne 00002014-1.

Quelqu'un peut-il m'aider ? Je débute dans VBA et là je suis arrivé à la limite de mes capacités.

D'avance merci pour votre aide

A voir également:

Format de cellule dans VBA
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Aller à la ligne dans une cellule excel - Guide
Format apfs - Guide
Excel compter cellule couleur sans vba - Guide

3 réponses

Réponse 1 / 3

redaiwa Messages postés 351 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 119
18 nov. 2014 à 09:32

Salam qaywsx.

Essaye ce code :


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
j = Mid(Target, 1, 2)
m = Mid(Target, 4, 2)
a = Mid(Target, 7, 4)
n = 1
Target = a & m & j & "-" & n
Application.EnableEvents = True
End Sub

Quand on saisit "17/11/2014" dans une cellule, le contenu est automatiquement modifié pour devenir "20141117-1"

J'espère avoir aidé :)

Réponse 2 / 3

qaywsx Messages postés 5 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 19 février 2015 1
18 nov. 2014 à 09:53

Bonjour redaiwa,

Ta solution fonctionne très bien et c'est celle que je vais utilisé.

J'ai également trouvé une autre possibilité, sans passer par VBA:

Soit la Date sous forme jj.mm.aaaa

=JOUR(Date)+MOIS(Date)*100+ANNEE(Date)*10000 & " - " & n

Merci pour ton aide !

Réponse 3 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
18 nov. 2014 à 08:40

bonjour,

je souhaite pouvoir saisir un texte(nombre) Dans quoi, une cellule, une textebox ou .... ...????????????????????

Discussions similaires

Menace "Interpol" après webcam coquine

Excel VBA : Récupérer la valeur d'une cellule

[Excel VBA] Formater une cellule en texte

Excel si cellule contient texte alors...

Formaté mais pas de connexion Internet ?

Discussions similaires

Newsletters