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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

teckmicro03

XLDnaute Nouveau
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
 

Pièces jointes

Solution
T
Piment à dit:
Bonjour Teckmicro03, Nathe,
Comme j'avais un peu de temps, je me permets de vous proposer le fichier ci-joint.
Nathe a raison : il faut tout reprendre !
Mais, si je peux me permettre, il faudrait que vous posiez bien vos besoins, ce qui évitera d'avoir à recommencer à chaque fois.
Le fichier que je vous propose est une base sur laquelle vous pourriez partir.
Dans le tableau, il y a certaines colonnes qui ne me paraissent pas nécessaires.
Le nombre de Forfaits "Valide" est une donnée qui pourrait apparaître sur une feuille "Tableau de Bord" qui serait gérée par TCD (Voir Feuille "Accueil). Bien d'autres infos pourrait s'afficher (le nombre fois que sort chaque véhicule...)
Cliquez pour agrandir...
Bonjour , je comprend j'aurais du l'explique avant pour...
Trier par date Trier par votes
Bonjour,
A essayer
Nathe
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim jours As Integer
    Dim i As Integer
    
    Set rng = Me.Range("I9:I100") ' Modifiez la plage si nécessaire

    If Not Intersect(Target, rng) Is Nothing Then
        For i = 1 To rng.Cells.Count
            If Target.Cells(i).Value <> "" Then
                Select Case Target.Cells(i).Value
                    Case "7 jours": jours = 7
                    Case "14 jours": jours = 14
                    Case "21 jours": jours = 21
                    Case "1 mois": jours = 30
                    Case "2 mois": jours = 60
                    Case "3 mois": jours = 90
                    Case Else: jours = 0 ' Pour gérer les valeurs non reconnues
                End Select
                
                ' Remplir J et K si elles sont vides
                If jours > 0 Then
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "J").Value) Then
                        Me.Cells(Target.Cells(i).Row, "J").Value = Date
                    End If
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "K").Value) Then
                        Me.Cells(Target.Cells(i).Row, "K").Value = Date + jours
                    End If
                End If
            End If
        Next i
    End If
End Sub
test1.gif
 

Pièces jointes

Vote positif 0 Vote négatif
Nathe à dit:
Bonjour,
A essayer
Nathe
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim jours As Integer
    Dim i As Integer
   
    Set rng = Me.Range("I9:I100") ' Modifiez la plage si nécessaire

    If Not Intersect(Target, rng) Is Nothing Then
        For i = 1 To rng.Cells.Count
            If Target.Cells(i).Value <> "" Then
                Select Case Target.Cells(i).Value
                    Case "7 jours": jours = 7
                    Case "14 jours": jours = 14
                    Case "21 jours": jours = 21
                    Case "1 mois": jours = 30
                    Case "2 mois": jours = 60
                    Case "3 mois": jours = 90
                    Case Else: jours = 0 ' Pour gérer les valeurs non reconnues
                End Select
               
                ' Remplir J et K si elles sont vides
                If jours > 0 Then
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "J").Value) Then
                        Me.Cells(Target.Cells(i).Row, "J").Value = Date
                    End If
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "K").Value) Then
                        Me.Cells(Target.Cells(i).Row, "K").Value = Date + jours
                    End If
                End If
            End If
        Next i
    End If
End Sub
Regarde la pièce jointe 1213360
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Nathe à dit:
Bonjour,
A essayer
Nathe
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim jours As Integer
    Dim i As Integer
   
    Set rng = Me.Range("I9:I100") ' Modifiez la plage si nécessaire

    If Not Intersect(Target, rng) Is Nothing Then
        For i = 1 To rng.Cells.Count
            If Target.Cells(i).Value <> "" Then
                Select Case Target.Cells(i).Value
                    Case "7 jours": jours = 7
                    Case "14 jours": jours = 14
                    Case "21 jours": jours = 21
                    Case "1 mois": jours = 30
                    Case "2 mois": jours = 60
                    Case "3 mois": jours = 90
                    Case Else: jours = 0 ' Pour gérer les valeurs non reconnues
                End Select
               
                ' Remplir J et K si elles sont vides
                If jours > 0 Then
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "J").Value) Then
                        Me.Cells(Target.Cells(i).Row, "J").Value = Date
                    End If
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "K").Value) Then
                        Me.Cells(Target.Cells(i).Row, "K").Value = Date + jours
                    End If
                End If
            End If
        Next i
    End If
End Sub
Regarde la pièce jointe 1213360
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Je pense avoir compris:
A tester

test1.gif


Rajout de :

Code: 
Sub CompterOccurrences()
    Dim ws As Worksheet
    Dim countHebdo As Long
    Dim countMensuel As Long
    Dim countTroisSemaines As Long
    Dim countDeuxSemaines As Long
    Dim cell As Range
    Dim dateLimite As Date

    Set ws = ThisWorkbook.Sheets("FORFAITS PONCTUELS 2025 - formu")

    ' Initialiser les compteurs
    countHebdo = 0
    countMensuel = 0
    countTroisSemaines = 0
    countDeuxSemaines = 0

    ' Définir la date limite au 1er janvier de l'année en cours
    dateLimite = DateSerial(Year(Date), 1, 1)

    ' Parcourir chaque cellule de la colonne L jusqu'à la dernière cellule non vide
    For Each cell In ws.Range("L1:L" & ws.Cells(ws.Rows.Count, "L").End(xlUp).Row)
        If Not IsEmpty(cell.Value) Then ' Vérifier si la cellule n'est pas vide
            ' Vérifier si la date correspondante en colonne J est une date valide
            If IsDate(ws.Cells(cell.Row, "J").Value) Then
                ' Vérifier si la date en colonne J est supérieure au 1er janvier
                If ws.Cells(cell.Row, "J").Value > dateLimite Then
                    Select Case cell.Value
                        Case "Hebdomadaire"
                            countHebdo = countHebdo + 1
                        Case "Mensuel"
                            countMensuel = countMensuel + 1
                        Case "Trois_semaines"
                            countTroisSemaines = countTroisSemaines + 1
                        Case "Deux_semaines"
                            countDeuxSemaines = countDeuxSemaines + 1
                    End Select
                End If
            End If
        End If
    Next cell

    ' Afficher les résultats dans les cellules correspondantes
    ws.Range("O5").Value = countHebdo
    ws.Range("P5").Value = countMensuel
    ws.Range("Q5").Value = countTroisSemaines
    ws.Range("R5").Value = countDeuxSemaines
End Sub

et modification :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim jours As Integer
    Dim i As Integer
 
    Set rng = Me.Range("I9:I100") ' Modifiez la plage si nécessaire

    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False ' Désactiver les événements pour éviter les boucles

        For i = 1 To rng.Cells.Count
            If Target.Cells(i).Value <> "" Then
                Select Case Target.Cells(i).Value
                    Case "7 jours": jours = 7
                    Case "14 jours": jours = 14
                    Case "21 jours": jours = 21
                    Case "1 mois": jours = 30
                    Case "2 mois": jours = 60
                    Case "3 mois": jours = 90
                    Case Else: jours = 0 ' Pour gérer les valeurs non reconnues
                End Select
             
                ' Remplir J et K si elles sont vides
                If jours > 0 Then
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "J").Value) Then
                        Me.Cells(Target.Cells(i).Row, "J").Value = Date
                    End If
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "K").Value) Then
                        Me.Cells(Target.Cells(i).Row, "K").Value = Date + jours
                    End If
                End If
            End If
        Next i

        Application.EnableEvents = True ' Réactiver les événements après les modifications
     
        ' Appel à la fonction de comptage
        CompterOccurrences
    End If
End Sub


Nathe
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Nathe à dit:
Je pense avoir compris:
A tester

Regarde la pièce jointe 1213369

Rajout de :

Code: 
Sub CompterOccurrences()
    Dim ws As Worksheet
    Dim countHebdo As Long
    Dim countMensuel As Long
    Dim countTroisSemaines As Long
    Dim countDeuxSemaines As Long
    Dim cell As Range
    Dim dateLimite As Date

    Set ws = ThisWorkbook.Sheets("FORFAITS PONCTUELS 2025 - formu")

    ' Initialiser les compteurs
    countHebdo = 0
    countMensuel = 0
    countTroisSemaines = 0
    countDeuxSemaines = 0

    ' Définir la date limite au 1er janvier de l'année en cours
    dateLimite = DateSerial(Year(Date), 1, 1)

    ' Parcourir chaque cellule de la colonne L jusqu'à la dernière cellule non vide
    For Each cell In ws.Range("L1:L" & ws.Cells(ws.Rows.Count, "L").End(xlUp).Row)
        If Not IsEmpty(cell.Value) Then ' Vérifier si la cellule n'est pas vide
            ' Vérifier si la date correspondante en colonne J est une date valide
            If IsDate(ws.Cells(cell.Row, "J").Value) Then
                ' Vérifier si la date en colonne J est supérieure au 1er janvier
                If ws.Cells(cell.Row, "J").Value > dateLimite Then
                    Select Case cell.Value
                        Case "Hebdomadaire"
                            countHebdo = countHebdo + 1
                        Case "Mensuel"
                            countMensuel = countMensuel + 1
                        Case "Trois_semaines"
                            countTroisSemaines = countTroisSemaines + 1
                        Case "Deux_semaines"
                            countDeuxSemaines = countDeuxSemaines + 1
                    End Select
                End If
            End If
        End If
    Next cell

    ' Afficher les résultats dans les cellules correspondantes
    ws.Range("O5").Value = countHebdo
    ws.Range("P5").Value = countMensuel
    ws.Range("Q5").Value = countTroisSemaines
    ws.Range("R5").Value = countDeuxSemaines
End Sub

et modification :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim jours As Integer
    Dim i As Integer
 
    Set rng = Me.Range("I9:I100") ' Modifiez la plage si nécessaire

    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False ' Désactiver les événements pour éviter les boucles

        For i = 1 To rng.Cells.Count
            If Target.Cells(i).Value <> "" Then
                Select Case Target.Cells(i).Value
                    Case "7 jours": jours = 7
                    Case "14 jours": jours = 14
                    Case "21 jours": jours = 21
                    Case "1 mois": jours = 30
                    Case "2 mois": jours = 60
                    Case "3 mois": jours = 90
                    Case Else: jours = 0 ' Pour gérer les valeurs non reconnues
                End Select
             
                ' Remplir J et K si elles sont vides
                If jours > 0 Then
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "J").Value) Then
                        Me.Cells(Target.Cells(i).Row, "J").Value = Date
                    End If
                    If IsEmpty(Me.Cells(Target.Cells(i).Row, "K").Value) Then
                        Me.Cells(Target.Cells(i).Row, "K").Value = Date + jours
                    End If
                End If
            End If
        Next i

        Application.EnableEvents = True ' Réactiver les événements après les modifications
     
        ' Appel à la fonction de comptage
        CompterOccurrences
    End If
End Sub


Nathe
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Bonjour , résolu super ca fonctionne tres bien , j'ai trouvé pour debloquer la macro !
peut on ajouter si possible , car si mon client veux reserve ca place en avance .
exemple il viens a ce jour : forfait 7 jours pour le 24/02/25 au 02/03/25
Je sais je vous en demande ! si vous pouvez et si vous m avez compris .
Merci a vous
Bonne journée
Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Nathe à dit:
A tester,
mais modifier la date manuellement en colonne "J"
Nathe
Cliquez pour agrandir...
Nathe à dit:
Bonjour, si résolu marqué comme résolu
Nathe
Cliquez pour agrandir...
Bonjour, déjà super boulot de votre part ! Cela va nous changer la vie.
comme vous êtes super efficace sur Excel :
à temps perdu :
Auriez vous une solution ? , pour rendre notre fichier au Top Du Top
Pour la partie, Nom, prénom, téléphone, immatriculation, marque, type. c'est des clients qui viennent 3 à 4 fois ou plus dans l'année.
Lorsque nous retrouvons les mêmes clients : aurez-vous une solution pour éviter de retaper les mêmes infos du client ?
mais faut que l'on ait la possibilité d'ajouter de nouveaux clients ?

Quand vous pouvez . Je vous souhaite une excelente Journée .
Et Merci Beaucoup
Cordialement
 
Vote positif 0 Vote négatif
teckmicro03 à dit:
Bonjour, déjà super boulot de votre part ! Cela va nous changer la vie.
comme vous êtes super efficace sur Excel :
à temps perdu :
Auriez vous une solution ? , pour rendre notre fichier au Top Du Top
Pour la partie, Nom, prénom, téléphone, immatriculation, marque, type. c'est des clients qui viennent 3 à 4 fois ou plus dans l'année.
Lorsque nous retrouvons les mêmes clients : aurez-vous une solution pour éviter de retaper les mêmes infos du client ?
mais faut que l'on ait la possibilité d'ajouter de nouveaux clients ?

Quand vous pouvez . Je vous souhaite une excelente Journée .
Et Merci Beaucoup
Cordialement
Cliquez pour agrandir...

Il y a tout à reprendre, j'essaie de voir dans la journée.
Nathe
 
Vote positif 0 Vote négatif
Bonjour Teckmicro03, Nathe,
Comme j'avais un peu de temps, je me permets de vous proposer le fichier ci-joint.
Nathe a raison : il faut tout reprendre !
Mais, si je peux me permettre, il faudrait que vous posiez bien vos besoins, ce qui évitera d'avoir à recommencer à chaque fois.
Le fichier que je vous propose est une base sur laquelle vous pourriez partir.
Dans le tableau, il y a certaines colonnes qui ne me paraissent pas nécessaires.
Le nombre de Forfaits "Valide" est une donnée qui pourrait apparaître sur une feuille "Tableau de Bord" qui serait gérée par TCD (Voir Feuille "Accueil). Bien d'autres infos pourrait s'afficher (le nombre fois que sort chaque véhicule...)
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
489
dysorthographie
dysorthographie
A
  • Question Question
XL 2016 Exclure une période des calcule de jours entre 2 dates (Datedif)
Réponses
2
Affichages
688
job75
job75
J
  • Résolu(e)
XL 2019 Besoins d'aide pour 2 formules = 1 formule à modifier et 1 formule à créer pour calculer un temps moyen
Réponses
3
Affichages
508
goube
goube
L
  • Résolu(e)
Microsoft 365 Recherche dans un tableau en fonction de 2 critères et fonction compter valeur texte en nombre
Réponses
4
Affichages
1 K
AC045364
A
V
  • Question Question
XL 2019 Calculer cadence sur excel pour planning de production
Réponses
0
Affichages
6 K
Vanhoove
V
M
  • Question Question
XL 2016 CRÉATION FORMULAIRE DE SAISIE ET CALCUL DE DATE
Réponses
4
Affichages
2 K
ChTi160
ChTi160
J
  • Question Question
XL 2013 Rechercher une valeur suivant 2 critères dont un est trouvé suivant une plage de date
Réponses
4
Affichages
1 K
Jean-christophe
J
C
  • Question Question
XL 2010 Probleme de filtre tcd avec une macro
Réponses
4
Affichages
2 K
cerb_r
C
F
  • Question Question
formule pour extraire une date dans une chaîne et ajout d'un nombre de jour
Réponses
1
Affichages
787
JHA
J
C
  • Question Question
Probleme macro pour ouverture et formatage de mise en forme d un fichier txt
Réponses
0
Affichages
1 K
Cerealkiller57
C
D
  • Question Question
Mise en forme conditionnelle samedis et dimanche du mois en cours
Réponses
5
Affichages
2 K
ROGER2327
ROGER2327
almas
  • Question Question
formule pour calcule jour/semaine paire
2
Réponses
24
Affichages
10 K
MELANIE92
MELANIE92
J
  • Question Question
Comment faire une recherche sur une date calculée ?
Réponses
1
Affichages
965
kingfadhel
kingfadhel
S
  • Question Question
Répartition mensuelle nb jours : Simplification formule et cumul de conditions
Réponses
13
Affichages
4 K
Stephdeumonac
S
L
  • Question Question
Formule somme et concatener en fonction de la date
Réponses
2
Affichages
2 K
mapomme
mapomme
belga
  • Question Question
Statistiques concernant la vente de terrains et de terres
Réponses
11
Affichages
2 K
Modeste geedee
Modeste geedee
C
  • Question Question
need aide pour calculer le nombre de date répondant au numero de semaine svppp
Réponses
1
Affichages
978
Victor21
Victor21
bigeart
  • Question Question
Affichage et calcul de semaine
Réponses
12
Affichages
3 K
bigeart
bigeart
K
  • Question Question
Nombre de jours recencés sur un mois
Réponses
4
Affichages
662
kix
K
S
  • Question Question
La fonction SI et le dernier jour de février inclu dans une période donnée
Réponses
4
Affichages
2 K
Silmeria
S
Retour