Microsoft 365 vba format date et N° automatique

soan à dit:

ok, je vais regarder ton nouveau sujet.

soan

Cliquez pour agrandir...

974RE à dit:

Dans l'attente, merci beaucoup. J'ai un peu progressé, mais pas suffisamment pour régler ces problèmes.

Cliquez pour agrandir...

soan à dit:

ok, j'en prends note.

soan

Cliquez pour agrandir...

soan à dit:

@974RE

Lis d'abord mon post #202 précédent. ajout important :

si tu fais toujours une facturation à partir d'un devis déjà existant, les éléments de la facturation ont déjà été calculés lors de la saisie du devis ; il suffit donc de les reprendre tels quels ; or dans ce cas, il me semble que ton tableau de la feuille "Facture" qui est en A21: D18 ne sert plus à rien : c'est inutile de saisir des éléments de facturation vu qu'on reprend les éléments du devis ; mais c'est peut-être plutôt ceci : le tableau en A21: D18 doit être rempli par la sub du bouton "Valider" ; comme ça, ensuite, si tu décides que la facture te convient, tu pourras choisir de l'imprimer ou non. (c'est donc un choix manuel, ça doit pas être automatique)

encore mieux : au lieu d'imprimer la facture, tu l'envoies par mail : ça évite de gaspiller du papier ! ​

soan

Cliquez pour agrandir...

974RE à dit:

bonjour Soan,
Tu ne dors jamais? Il est 4h00 du matin chez toi. Moi ici c'est l'heure de se lever.
La procédure concernant la facturation est la suivante:
1) choix du devis à facturer: le nouveau numéro de la facture s'affiche, bouton valider: l'ensemble des informations sont validées, Archiver: la facture est validée.
Les éléments de la facture doit être ceux du devis: il récupère les éléments de la feuille ADV et ALD.
Là, lors de l'ouverture de l'USF Facturation, le numéro s'affiche, tout est OK.
Puis choix du devis, le numéro disparaît, et les info s'affiche dans l'USF.
Bouton valider inactif.
Bien évidemment les autres bouton, hormis le bouton quitter ne fonctionne pas. Le bouton Archiver PDF m'envoi un message "veuillez choisir un numéro", normal puisqu'il n'y a pas de numéro de facture.
Bonne journée à toi

Cliquez pour agrandir...

soan à dit:

@974RE

attention : il y a 2 fichiers différents ! le 1er est la 2ème version de ton ancien "CL9.xlsm" ; le 2ème est la 2ème version de ton ancien "CL9 (4).xlsm" ; pour les 2 fichiers, le code VBA est le même pour ces 2 subs :​

VB:

Private Sub Rechercher_Click()
  If Me.Rechercher.ListIndex = -1 Then Exit Sub
  If Me.Rechercher.List(Me.Rechercher.ListIndex, 0) = "Aucun devis" Then Exit Sub
  Dim cel As Range, ref$, DerLgn&, Lgn&, lig&, n&
  lig = Tab_Devis_Filtre_Final(Me.Rechercher.ListIndex + 1, 11)
  With Worksheets("A.DV").Cells(lig, 1)
    'on remplit les champs avec les cellules de la feuille "A.DV"
    ref = .Value: NuméroDevis = ref
    Set cel = Worksheets("A.Fact").Columns(1).Find(ref, , -4163, 1, 1)
    If Not cel Is Nothing Then
      TextBox1 = cel.Offset(, 1) 'N° Facture d'un Devis déjà facturé
    Else
      lig = Worksheets("A.Fact").Cells(Rows.Count, 1).End(3).Row
      TextBox1 = "FACT" & Year(Date) & "-" & Format(lig, "000") 'nouveau N° Facture
    End If
    DateDevisInitial = .Offset(, 1): DateModif = .Offset(, 2): NOM = .Offset(, 3)
    ADRESSE = .Offset(, 4): Ville = .Offset(, 5): DateEvènement = .Offset(, 6)
    PriseEnCharge = .Offset(, 7): Trajet = .Offset(, 8): FinCourse = .Offset(, 9)
  End With
  Me.LigsDétail.Clear
  With Worksheets("A.LD")
    DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
    For Lgn = 2 To DerLgn
      If Trim(.Cells(Lgn, 1)) Like NuméroDevis Then
        LigsDétail.AddItem .Cells(Lgn, 2) 'Désignation
        n = LigsDétail.ListCount - 1
        LigsDétail.List(n, 1) = .Cells(Lgn, 3) 'Qté
        LigsDétail.List(n, 2) = Format(.Cells(Lgn, 4), "#,##0 €")  'lblPU
        LigsDétail.List(n, 3) = Format(.Cells(Lgn, 5), "#,##0 €")  'lblHT
        LigsDétail.Height = LigsDétail.ListCount * LigsDétail.Font.Size * 2
      End If
    Next Lgn
  End With
  Me.Repaint
End Sub

VB:

Private Sub UserForm_Initialize()
  Dim Compteur&, Dico_Devis, Dico_Noms, Dico_Villes, Dico_Factures
  Set Dico_Noms = CreateObject("Scripting.Dictionary")
  Set Dico_Villes = CreateObject("Scripting.Dictionary")
  Set Dico_Devis = CreateObject("Scripting.Dictionary")
  Set Dico_Factures = CreateObject("Scripting.Dictionary")
  If Not Worksheets("A.Fact").Range("A2").Value = "" Then
    Tab_Devis = Worksheets("A.Fact").Range("A2:K" & Worksheets("A.Fact").Cells(Worksheets("A.Fact").Rows.Count, 1).End(3).Row).Value
    For Compteur = LBound(Tab_Devis, 1) To UBound(Tab_Devis, 1)
      If Not Dico_Factures.Exists(Tab_Devis(Compteur, 1)) Then Dico_Factures.Add Tab_Devis(Compteur, 1), Compteur + 1
    Next Compteur
  End If
  Tab_Devis = Worksheets("A.DV").Range("A2:L" & Worksheets("A.DV").Cells(Worksheets("A.DV").Rows.Count, 1).End(3).Row).Value
  For Compteur = LBound(Tab_Devis, 1) To UBound(Tab_Devis, 1)
    Tab_Devis(Compteur, 11) = Compteur + 1
    If Dico_Factures.Exists(Tab_Devis(Compteur, 1)) Then Tab_Devis(Compteur, 12) = Dico_Factures(Tab_Devis(Compteur, 1))
    If Not Dico_Noms.Exists(Tab_Devis(Compteur, 4)) Then Dico_Noms.Add Tab_Devis(Compteur, 4), Tab_Devis(Compteur, 4)
    If Not Dico_Villes.Exists(Tab_Devis(Compteur, 6)) Then Dico_Villes.Add Tab_Devis(Compteur, 6), Tab_Devis(Compteur, 6)
    If Not Dico_Devis.Exists(Year(Tab_Devis(Compteur, 2))) Then Dico_Devis.Add Year(Tab_Devis(Compteur, 2)), Year(Tab_Devis(Compteur, 2))
  Next Compteur
  ReDim Tab_Devis_Filtre_Final(LBound(Tab_Devis, 1) To UBound(Tab_Devis, 1), LBound(Tab_Devis, 2) To UBound(Tab_Devis, 2))
  Tab_Devis_Filtre_Final = Tab_Devis
  Dim lig&: lig = Worksheets("A.Fact").Cells(Rows.Count, 1).End(3).Row
  TextBox1 = "FACT" & Year(Date) & "-" & Format(lig, "000") 'N° Facture
  JourFre = Format(Date, "dd/mm/yyyy"): Rechercher.List = Tab_Devis
  FiltreNom.List = Dico_Noms.Keys: FiltreVille.List = Dico_Villes.Keys: FiltreDevis.List = Dico_Devis.Keys
  Re_Ini_Rechercher Me.FiltreNom.Text, Me.FiltreVille.Text, Me.FiltreDevis.Text
End Sub

pour cette 2ème sub, j'ai modifié seulement un peu la fin.

soan

Cliquez pour agrandir...

soan à dit:

@974RE

LOLLL ! tu m'as envoyé plusieurs versions différentes, et maint'nant, toi-même tu ne t'y retrouves plus !

sauf erreur de ma part, la seule différence entre les 2 fichiers, c'est que pour "CL9 (4).xlsm" fermer le USF ferme aussi Excel ; alors que pour "CL9.xlsm", fermer le USF ne ferme pas Excel.

c'est idem pour les versions 2, où j'ai fait le job que tu m'avais demandé. ​

soan

Cliquez pour agrandir...