Programmation de mon 1er USF / MULTIPLE FONCTIONS

Public Sub ListeNoms_OrdreFeuilles()
    
    Dim NomPlage As Name
    Dim PlageNom As Range
    Dim Boucle As Integer
    Dim NumLigne As Integer
 
    NumLigne = 1
    On Error Resume Next
 
    For Boucle = 1 To Worksheets.Count
        
        For Each NomPlage In Worksheets(Boucle).Parent.Names
            Set PlageNom = Nothing
            Set PlageNom = NomPlage.RefersToRange
 
            If Not PlageNom Is Nothing Then
                If Worksheets(Boucle).Index = PlageNom.Worksheet.Index Then
                    Cells(NumLigne, 1).Value = NomPlage.Name
                    Cells(NumLigne, 2).Value = NomPlage.RefersToRange.Value
                    Cells(NumLigne, 3).Value = NomPlage.RefersToRange.Address
                    
                    Worksheets(1).Hyperlinks.Add Anchor:=Cells(NumLigne, 4), _
                        Address:="", SubAddress:=NomPlage.RefersToRange.Address(external:=True)
                    NumLigne = NumLigne + 1
                End If
            End If
 
        Next NomPlage
        
    Next Boucle
    
End Sub

Private Sub InitCombo_10()

    Dim PlageNomme As String
    Dim Cellule As Range
    Dim DateSelectionne As Date
    
    For Each Cellule In Sheets("DATA").Range("ListeDate")
        DateSelectionne = Cellule.Value
        If (DateSelectionne <> "00:00:00") Then
            cbxDateReception.AddItem CStr(DateSelectionne)
        End If
    Next Cellule
    
End Sub

Private Sub ComboBox12_Change()
ComboBox12.Value = CDate(ComboBox12.Value)

Option Explicit
'

Public Function DateDuJour() As String

    Dim DateJour As Date
    Dim ChaineDate As String
    
    Application.Volatile
    
    DateJour = Now
    
    ChaineDate = Format(DateJour, "yyyy-MM-dd")
    
    DateDuJour = ChaineDate

End Function
'

Option Explicit
'

Public Function DateDuJour() As String

    Dim DateJour As Date
    Dim ChaineDate As String
    Dim Mois As String
    Dim Jour As String
    
    Application.Volatile
    
    DateJour = Now
    
    Mois = CStr(Month(DateJour))
    If (Len(Mois) = 1) Then
        Mois = ("0" & Mois)
    End If
    Jour = CStr(Day(DateJour))
    If (Len(Jour) = 1) Then
        Jour = "0" & Jour
    End If
    
    ChaineDate = (Year(DateJour) & "-" & Mois & "-" & Jour)
    
    DateDuJour = ChaineDate

End Function
'

Option Explicit

'
' Décrlaration de type
'

Public Type StReception
            AfficherDateReception As String
            CalculDateReception As Date
End Type

Public Type StDevis
            AfficherDateDevis As String
            CalculDateDevis As Date
End Type

Public Type StFacture
            AfficherDateFacture As String
            CalculDateFacture As Date
            Montant As Double
End Type


Public Type StructureGlobal
            DtReception As StReception
            DtDevis As StDevis
            DtFacture As StFacture
End Type
'

'
' Déclaration de variable globale
'

Public Traitement As StructureGlobal

Public Function CalculMontant(ByRef zStruc As StructureGlobal) As StructureGlobal

    Dim NbrJours As Integer
    Dim DateDeb As Date
    Dim DateFin As Date
    
    DateDeb = zStruc.DtDevis.CalculDateDevis
    DateFin = zStruc.DtReception.CalculDateReception
    
    NbrJours = 0
    
    While DateDeb < DateFin
        NbrJours = (NbrJours + 1)
        DateDeb = DateAdd("d", 1, DateDeb)
    Wend
    
    zStruc.DtFacture.Montant = NbrJours * (Montant * 0.5)

    CalculMontant = zStruc

End Function
'

Private Sub Combobox10_Change()
    
    DATA.Range("e10").Value = Fonctions.DeterminerDateArriveeSansStructure(ComboBox10.Text)
    
    DATA.Range("e13").Value = ListBox2.Value      'transfert nombre de jours "arrivée" dans feuille DATA
    DATA.Range("f13").Value = ListBox3.Value      'transfert délai de traitement dans feuille DATA

End Sub
'

Public Function DeterminerDateArriveeSansStructure(ByVal zDate As String) As Date

    Dim Valeur As String
    Dim DateReel As Date
    
    Valeur = zDate
    DateReel = CDate(Valeur)
    DeterminerDateArriveeSansStructure = DateReel
    
End Function
'

Private Sub Combobox10_Change()
    
    Traitement.DtReception.AfficherDateReception = ComboBox10.Text
    Traitement = Fonctions.DeterminerDateArriveeAvecStructure(Traitement)
    DATA.Range("e10").Value = Traitement.DtReception.CalculDateReception
    
    DATA.Range("e13").Value = ListBox2.Value      'transfert nombre de jours "arrivée" dans feuille DATA
    DATA.Range("f13").Value = ListBox3.Value      'transfert délai de traitement dans feuille DATA

End Sub
'

Public Function DeterminerDateArriveeAvecStructure(ByRef zStruc As StructureGlobal) As StructureGlobal

    Dim Valeur As String
    Dim DateReel As Date
    
    Valeur = zStruc.DtReception.AfficherDateReception
    DateReel = CDate(Valeur)
    zStruc.DtReception.CalculDateReception = DateReel
    DeterminerDateArriveeAvecStructure= zStruc
    
End Function
'