Discussion :

[Yoooo]

Bonjour,
alors voila mon souci,
dans un tableau , j'ai une colonne "échéance" indiquant les valeurs comme telles: 1 an, 2 mois, 3 jours (en L5); 25 jours (en L6); 3 mois, 20jours (en L7)etc...
je aimerais qu'un MSGBOX indique le nombre de valeurs de la colonne L qui sont inférieur à 30 jours et indiquant ensuite l'intitulé du contrat relatif à la colonne A (exemple l'intitulé de L6, inférieur à 30 jours, se trouve en A6)

Quelqu'un pourrait-il m'aider, quelle variable définir...? merci

[COCONUT2]

J'ai l'impresion qu'il y a 2 questions contradictoires!

j'aimerais qu'un MSGBOX indique le nombre de valeurs de la colonne L qui sont inférieur à 30 jours

ca en fait une

et indiquant ensuite l'intitulé du contrat relatif à la colonne A (exemple l'intitulé de L6, inférieur à 30 jours, se trouve en A6)

Ca en fait 2

Q1: Nombre de valeurs?
Je comprend nombre de fois où il est noté "Inf à 30 jours"
donc variable N = NB("Inf à 30 jours) de la colonne
Ou alors passer par une formule excel et récupérer le résultat.

Puis dans la macro,
msgbox("Vous avez" & N & "valeurs inf à 30 jours")

Q2: C'est plus dur car tu demande de renvoyer la cellule de la 1ere colonne si il y a marqué "inf à 30 jours" dans la 12eme colonne.

Mais s'il y en a plusieures, tu souhaites quoi?

Je pense qu'il faut plus expliciter ta demande pour etre sur de ce que tu souhaites!

[Yoooo]

pour etre simple
premièrement que le MSGBOX indique le nombre de cellule dans la colonne L inférieur à 30jours.

[jfontaine]

Cette colonne L est calculé ou brut?
Si tu as la colonne qui contient la date d'échéance se serait plus pratique. Ca permettrait de calculer le nombre de jour en écart entre éhéance et date du jour.

[alsimbad]

tu ne pourras pas le faire si tes cases sont indiqués en mois année et jour.
tu pourras le faire su tu te base sur les cellules qui contienne la date d'échéance. ici, je suppose colonne 12 contient cette date et colonne 1 contient le dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub limite()
lastline = Cells(1, 12).End(xlDown).Row
For Each cel In Range(Cells(1, 12), Cells(lastline, 12))
If cel.Value - Date <= 30 And cel.Value - Date >= 0 Then
MsgBox "le dossier   " & cel.Offset(0, -11) _
& " a une échéance inferieure a 30 jours "
End If
Next cel
End Sub

[jfontaine]

Si la cellule est calculée, on peut partir sur l'idée que L contient une échéance en jour.
A toi de modifier comme tu désires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim i as long
dim compteur as long
 
do while not range("A" & i).value=vide
 
    if range("L" & i).value>30 then compteur=compteur+1
 
    i=i+1
 
loop
 
msgbox "Il y a " & compteur & " factures qui ont une échéance de plus de 30 jours",0,"Titre de la msgbox"

[Yoooo]

ce code est pas mal...
mais le msgbox indique un par un les dossiers inférieur à la date limite!
peut on faire en sorte que le MSGBOX s'affiche une fois en indiquant tous les dossiers inférieur à la date limite???