impossible de donner un titre pour ce sujet

K

kjin

XLDnaute Barbatruc

• 31 Janvier 2009

• #2

Re : impossible de donner un titre pour ce sujet

Bonjour,

Florian53 à dit:

Comment puis je gérer ceci?

Cliquez pour agrandir...

Bin..., sans le fichier en question, on peut se poser la question aussi !
A+
kjin

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 31 Janvier 2009

• #3

Re : impossible de donner un titre pour ce sujet

C'est vraiment tout simple en fait je voudrais qu'a partir du jour ou j'ouvre le classeur il regarde les commandes qui sont "en attente" depuis un mois ou plus.

Est ce réalisable?

 

Pièces jointes

• test.xls

  17.5 KB · Affichages: 62
• test.xls

  17.5 KB · Affichages: 59
• test.xls

  17.5 KB · Affichages: 55

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 31 Janvier 2009

• #4

Re : impossible de donner un titre pour ce sujet

re,
Je n'ai pas dit que ce devait être compliqué non plus
Dans le module de ThisWorkBook et à adapter (attente au lieu de atentte entre autre)

Code:

Private Sub Workbook_Open()
Dim cel As Range, Compteur As Integer
Compteur = 0
With Sheets(1)
    For Each cel In .Range("E3:E" & .Range("E65000").End(xlUp).Row)
        If UCase(cel) = "EN ATTENTE" And CDate(cel.Offset(0, -2)) <= Date - 30 Then Compteur = Compteur + 1 'et non "En Atentte"
    Next
    'If Compteur > 0 Then 'enlève les quotes si tu ne veux pas le msg à chaque ouverture
    MsgBox "vous avez " & Compteur & " commandes en attente de plus de 30 jours"
    'End If
End With
End Sub

Edit :Bonjour abcd, tu m'as rappelé qu'il y avait le critère date😱

A+
kjin

 

Dernière édition: 31 Janvier 2009

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 31 Janvier 2009

• #5

Re : impossible de donner un titre pour ce sujet

Bonjour,

Par formule :
="Attention vous disposez de "&SOMMEPROD((E3:E7="En atentte")*(C3:C7<AUJOURDHUI()-30))&" commandes En attentes datant de 1 mois ou plus"

abcd

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 31 Janvier 2009

• #6

Re : impossible de donner un titre pour ce sujet

Merci a vous 2 pour vos réponses j'aurais une petite préférence à la solution en vba mais je voudrais incorporer la notion de date qu'il me prévienne que cela fais un mois ou plus que celle ci sont en attentes.

Merci a vous

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 31 Janvier 2009

• #7

Re : impossible de donner un titre pour ce sujet

Re,

Florian53 à dit:

Merci a vous 2 pour vos réponses j'aurais une petite préférence à la solution en vba mais je voudrais incorporer la notion de date qu'il me prévienne que cela fais un mois ou plus que celle ci sont en attentes.

Cliquez pour agrandir...

J'ai réédité le msg #4 parce que je me suis rendu compte de mon oubli
A+
kjin

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 31 Janvier 2009

• #8

Re : impossible de donner un titre pour ce sujet

Merci a toi j'aurais une petite question que veux dire ce passage là:


And CDate(cel.Offset(0, -2)) <= Date - 30

je ne comprends pas : cel.Offset(0, -2)


Et que veux dire enleves les quotes?


Merci à toi

 

Dernière édition: 31 Janvier 2009

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 31 Janvier 2009

• #9

Re : impossible de donner un titre pour ce sujet

Pour les quotes c'est bon j'ai trouvé et compris le principe.

 

Dernière édition: 31 Janvier 2009

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 31 Janvier 2009

• #10

Re : impossible de donner un titre pour ce sujet

J'ai essayer de modifier le fichier original pour déplacer certaine cellule en respectant la même logique est cela ne fonctionne plus.

Je ne comprend pas pourqu

 

Pièces jointes

• test.xls

  34.5 KB · Affichages: 40
• test.xls

  34.5 KB · Affichages: 42
• test.xls

  34.5 KB · Affichages: 49

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 31 Janvier 2009

• #11

Re : impossible de donner un titre pour ce sujet

Re,
Tu comprends peut-être mieux ma réponse sans doute un peu brute de ma première intervention !
Offset est l'equivalent de la fonction DECALER
Pour les quotes, je voulais dire que s'il n'y a pas de commandes en attente de plus de 30 jours, si tu actives ces 2 lignes tu n'auras pas de message
Pour ta modif, il y a une erreur à la ligne bleue

Code:

Private Sub Workbook_Open()
Dim cel As Range, Compteur As Integer
Compteur = 0
With Sheets(1)
    For Each cel In .Range("K8:K" & .Range("[COLOR="Blue"]K65000[/COLOR]").End(xlUp).Row)
        If UCase(cel) = "EN ATTENTE" And CDate(cel.Offset(0, -7)) <= Date - 30 Then Compteur = Compteur + 1
    Next
    'If Compteur > 0 Then 'enlève les quotes si tu ne veux pas le msg à chaque ouverture
    MsgBox "vous avez " & Compteur & " commandes en attente de plus de 30 jours"
    'End If
End With
End Sub

A+
kjin

 

Vote positif 0 Vote négatif