Microsoft 365 Modifier formule pour simplifier un calcule de date et comptage categories

[teckmicro03]

Bonjour, je voudrais automatiser le calcul de date de mes forfaits.
FORFAIT possible = 7 jours - 14 jours - 21 jours - 1 mois - 2 mois - 3 mois

Je ne voudrais plus taper les dates des forfaits, je voudrais sélectionner dans une liste déroulante ou autre manière les forfaits correspondants et que les dates s'affichent automatiquement
Si forfait 7 jours : 20/02/25 au 26/02/25 …

Et je voudrais calculer le comptage des catégories vendues. Voir Tableau dans le fichier.

Merci de prendre du temps pour moi.
Bonne journée
Cordialement

Christophe

 

[Piment]

Bonjour le Forum,
Christophe, je te remets le fichier en pièce jointe, j'y ai rectifié quelques "beugs" (ComboBox Recherche par immatriculation).
Fais-moi un retour.
Merci.

 

[Piment]

Bonjour à tous,
N'ayant pas de retour de Christophe, pour tous ceux qui viendraient sur ce fil, je mets le fichier en pièce jointe.

Dans l'absolu, il est fonctionnel.

J'y ai apporté quelques modifications.

 

[Piment]

Re: Le fichier avec des modifications notoires.
Formulaire simplifié, les zones de saisies pour enregistrer une réservation sert également pour modifier une ligne du tableau.
Toutes les TextBox peuvent être modifiées.

 

[ChTi160]

Bonsoir Jacques Lol
Bonjour le Fil
Je me suis permis de modifier ces Procédures afin d’éviter des Boucles !
'********************** Alimenter et trier ordre croissant le comboBox"Cbx_Nom ****************

ListClients = Range("Tbl_ListClients").ListObject.DataBodyRange.Value
      With Me.Cbx_Nom 'avec le Combobox
             .ColumnCount = 2
             .ColumnWidths = "1;0"
             .AddItem Empty 'on ajoute la valeur vide au Combobox
             .List(.ListCount - 1, 1) = Empty
        For Ligne = 1 To UBound(ListClients) ' Pour chaque ligne du Tableau de la Base de Données
             .Text = ListClients(Ligne, 1) 'On affiche la valeur dans le Combobox
          If .ListIndex = -1 Then 'Si l'index du Combobox est à -1 (c'est que la valeur n'existe pas dans le Combobox
             .AddItem ListClients(Ligne, 1) 'Donc on l'ajoute à la Liste les élément du Combobox(vient d'une procédure de PatrickToulon)
             .List(.ListCount - 1, 1) = ListClients(Ligne, 5)
          End If
        Next Ligne
            .ListIndex = 0 'On affiche la valeur Vide
       End With
'Trier Cbx_Nom, True 'On utilise ce module "TrierCboAgent" pour trier le comboBox "CbNom"

'********************** Alimenter et trier ordre croissant le comboBox"Immatriculation ************

ListImat = Range("Tbl_List_Immatriculations").ListObject.DataBodyRange.Value
With Cbx_Immatriculation 'avec le Combobox
.ColumnCount = 3
.ColumnWidths = "1;0;0"
.AddItem Empty 'on ajoute la valeur vide au Combobox
.List(.ListCount - 1, 1) = Empty
.List(.ListCount - 1, 2) = Empty
For lign = 1 To UBound(ListImat) ' Pour chaque ligne du Tableau de la Base de Données
.Text = ListImat(lign, 1) 'On affiche la valeur dans le Combobox
If .ListIndex = -1 Then 'Si l'index du Combobox est à -1 (c'est que la valeur n'existe pas dans le Combobox
.AddItem ListImat(lign, 1) 'Donc on l'ajoute à la Liste les élément du Combobox(vient d'une procédure de PatrickToulon)
.List(.ListCount - 1, 1) = ListImat(lign, 2)
.List(.ListCount - 1, 2) = ListImat(lign, 3)
End If
Next lign
.ListIndex = 0 'On affiche la valeur Vide
End With

‘***************************modification des procédures des Combobox

Private Sub Cbx_Immatriculation_Change() ' Permet d'alimenter les TextBox "Marque" et Type après sélection dans Combobox
With Me.Cbx_Immatriculation
Me.Txt_Marque = Empty
Me.Txt_Type = Empty
If .ListIndex = -1 Then Exit Sub
Me.Txt_Marque = .List(.ListIndex, 1)
Me.Txt_Type = .List(.ListIndex, 2)
End With
End Sub

Private Sub Cbx_Nom_Change() ' Permet d'alimenter les TextBox "Prénom" et "N° Tél" après sélection dans Combox
With Me.Cbx_Nom
Me.Txt_NumTel = Empty
If .ListIndex = -1 Then Exit Sub
Me.Txt_NumTel = Format(.List(.ListIndex, 1), "0# ## ## ## ##")
End With
End Sub

Cordialement
jean marie

 

[Piment]

Bonjour Jean-Marie, Christophe,
Tu as très bien fait.
Au départ (post #15) je voulais juste lui donner une base saine (tableau structuré...) pour que les cadors de ce forum n'aient pas à tout faire.

Et puis je me suis pris au jeu quand j'ai vu qu'il n'y avait pas beaucoup de monde qui avait réagi.
Mais je savais que tout cela pouvait être amélioré, j'avais bon espoir que quelqu'un finirait par s'y intéresser : voir mon post 25 : " Les codes peuvent être améliorés, si les "cadors" habituels passent par là, ils se feront un plaisir d'apporter leurs contributions.)".

Et hier, tu l'as fait. Parfait. Du coup je m'améliore aussi.
Celles et ceux qui passeront par là auront à disposition un fichier qui fonctionne bien.
Merci à toi et passe une bonne journée.
Claude

 

[Piment]

Re:
Je remets le fichier modifié avec les propositions de Jean-Marie, et quelques améliorations donnant plus de fluidité dans l'utilisation.
Jean-Marie, merci encore pour ton intervention.