Problème pour vider le contenu des cellules

VBA
1

Bonjour à tous
J’utilise cette macro pour éviter de taper l’année dans une cellule (F8) qui fonctionne très bien
Le problème que j’ai c’est quand je clique sur le bouton sauvegarde
qui sauvegarde ma ligne dans un autre onglet et la vide automatiquement
Il me note 2023 07 0000 alors qui est sensés vider le contenu des cellules
je vous joins un ficher exemple
ficher exemple.xlsm (56,6 Ko)
merci

2

Ajoutez cette ligne a votre « change-event » macro

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim TSpl$(), An As Integer, Mois As Integer, Numéro As Integer
     If Len(Target.Value) = 0 Then Exit Sub  '<<<<<<<<<<<<<<<<<<<<<<< N O U V E A U
     If Intersect(Me.[f8], Target) Is Nothing Then Exit Sub
     Select Case VarType(Target.Value)
3

cela ne fonctionne pas
Il me mets une erreur de débogage

4

ficher exemple.xlsm (58,3 Ko)

J’ai revu ton module d’affichage du calendrier et j’ai juste mis une ligne en commentaire, il n’y a plus l’affichage des 2023 07 0000 qui gênait. A voir si dans ton utilisation normale du fichier, cette ligne de code servait à quelque chose ??

1 « J'aime »
5

c’est nickel
merci beaucoup
à bientôt

6

je me suis précipité dans ma réponse
cela fonctionne bien j’ai plus toutes les cases avec des 2023 07 0000
mais quand je note 07 0250 (exemple) il devrez me noté 2023 07 0250 et actuellement il note 70250
donc la macro ne fonctionne plus

7

Bonjour,
Si j’ai bien compris, tu veux juste ajouter l’année et le mois courant (actuellement 2023 07) avant le numéro de dossier quand tu sauvegardes ? Si c’est juste ça il y a moyen de faire beaucoup plus simple.

8

bonjour oui c’est bien cela mais que l’année en cours pas le mois
en sachant quand janvier on peux encore avoir des dossiers en 2023 12 0001 etc.
merci pour votre aide

9

ficher exemple.xlsm (55,7 Ko)

1 « J'aime »
10

ca fonction bien mais quand je copie la macro sur mon fichier original il me manque un 0
apparemment il y a une formule dans la cellule
je te joins mon fichier original
Gestion casier bis.xlsm (67,0 Ko)

11

J’avais mis le champ F8 au format texte, ainsi tu saisi 07 (pour le mois) + 1 espace + ton numéro de dossier et la macro ajoute l’année + 1 espace. Dis-moi si c’est ok pour toi ?

1 « J'aime »
12

c’est nickel
un grand merci
a bientôt sur le forum

1 « J'aime »
13

et si je veux enlever les espaces ou dois je faire la modif ?

14

Précise la question stp, les espaces où ?

15

les espaces automatique entre l’année le mois et le numéro de dossier
car si les gens ne mettes pas d’espace les résultats seront fausse donc a voir dans le temps si il y a beaucoup d’erreur ,je serait obliger de les enlever, donc autant savoir comment les enlever

16

Dans le script :

Sheets(onglet).Range(« F » & lignerecopie).Value = Format(Year(Now), « 0000 ») & " " & Range(« F8 »).Value

C’est
& " "
qui ajoute un espace après l’année, il faut supprimer cette petite partie dans les 2 lignes de codes
ce qui donne

Sheets(onglet).Range(« F » & lignerecopie).Value = Format(Year(Now), « 0000 ») & Range(« F8 »).Value

1 « J'aime »
17

super c’est nickel
merci

18

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.