Microsoft 365 Code VBA numéro de série

patricktoulon

XLDnaute Barbatruc

• 17 Mars 2022

• #2

bonjour
essaie simplement avec numberformat
un bouton sur ta feuille et par exemple en D13

dans l'event du bouton

VB:

Private Sub CommandButton1_Click()
    With [d13]
        .Value = .Value + 1
        .NumberFormat = "C" & Chr(34) & Format(Date, "yyyymmdd-") & Chr(34) & "0000000"
    End With
End Sub

démo


pour enregistrer avec ce code tes pdf tu utilise [D13].text et pas .Value

 

Vote positif 0 Vote négatif

J

JiCi

XLDnaute Nouveau

• 18 Mars 2022

• #3

Bonjour Patrick,

Désolé de ne pas avoir donner des nouvelles plutôt. Actuellement je suis en mode transfert de département a mon travail et préparatif pour formation extérieur du pays bientôt, donc je n'est malheureusement pas ue le temps de faire des essaies. Par contre c'est ce que je cherchais comme macro. Je te remercie énormément et d'ici quelques jours je te revient avec mes assaies sur ce macro.

À bientôt

 

Vote positif 0 Vote négatif

J

JiCi

XLDnaute Nouveau

• 19 Mars 2022

• #4

Bonjour Patrick,
Ca fonctionne bien pour la partie du numéro de série. Le seul bémol est au niveau de la date elle ne se met pas en date du jour.

Aurais-tu une idée de quoi que ca dépend ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2022

• #5

Bonjour JiCi
et comment pourrait il en être autrement

Private Sub CommandButton1_Click()
With [d13]
.Value = .Value + 1
.NumberFormat = "C" & Chr(34) & Format(Date, "yyyymmdd-") & Chr(34) & "0000000"
End With
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

J

JiCi

XLDnaute Nouveau

• 21 Mars 2022

• #6

Voici mon GIF qui démontre que la date ne ce met a la date d'aujourd'hui. Pour le numéro de certificat aucun problème de création d'un nouveau.

C20220320-0020054​

 

Pièces jointes

• MyVideo_1.gif

  564.1 KB · Affichages: 23

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Mars 2022

• #7

Bonjour JiCi
et comment voudrais tu qu'elle change quand tu clique une fois un 36 le jour c'est toujours le même
il faut tester plusieurs jours pour voir la différence

 

Vote positif 0 Vote négatif

J

JiCi

XLDnaute Nouveau

• 31 Mars 2022

• #8

Salut Patrick,

Cela fonctionne bien dans une feuille qui ne contient pas l'ensemble de la feuille.
Je vais devoir vérifier ce qui cause la non compatibilité avec mon VBA de recherche; nom entreprise, adresse, code postal, téléphone.

 

Vote positif 0 Vote négatif