Date butoir...

Excel-lent

XLDnaute Barbatruc

• 21 Décembre 2008

• #2

Re : Date butoir...

Bonsoir Lucas, le fil,

J'ai fais le nécessaire pour B3 et B4. Tu peux copier/coller vers le bas, c'est prévu pour.

Qu'ai-je fais :
-> utilisation de la formule si() pour l'affichage de ton message : "date dépasée"
-> utilisation de la MFC (mise en forme conditionnel), pour le coloriage ou non de la cellule en rouge.

Bref, tu avais déjà trouvé ces solutions, je me suis juste borné à corriger et simplifier.

Bonne fin de soirée

 

Pièces jointes

• Date butoir B3 et B4.xls

  13.5 KB · Affichages: 125

Vote positif 0 Vote négatif

L

Lucas

XLDnaute Occasionnel

• 21 Décembre 2008

• #3

Re : Date butoir...Merci!...

Merci beaucoup Excel-lent!...pour moi...tu as fais plus que "borné à corriger et simplifier".


C'est fort apprécié...Joyeuses Fêtes!...Lucas

 

Dernière édition: 22 Décembre 2008

Vote positif 0 Vote négatif

L

Lucas

XLDnaute Occasionnel

• 22 Décembre 2008

• #4

Message à Excel-lent...

Bonjour Excel-lent...

J'ai utilisé ta formule dans le fichier joint et pour une raison que j'ignore en E3, je ne peux indiquer une date butoir....Encore Merci!...

 

Pièces jointes

• Feuille date.xls

  37.5 KB · Affichages: 105

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 22 Décembre 2008

• #5

Re : Message à Excel-lent...

Bonsoir Lucas, Excel-lent,

C'est quoi ton fichier... ?

Pas trop la tête à réfléchir maintenant, mais on ne peut rien mettre en E3, entre autre...

Cela reste vide.... Je viens de tenter plein de truc et c'est toujours pareil....

Même après saisie d'une valeur, si l'on revient dans la barre de formule... elle est vide...

Le gag, là.... Mais bon, je n'avais pas tout regardé.....

Retire ton :

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 5 Or Target.Column = 8) And Target.Row > 2 And Target.Text <> vbNullString Then
Application.EnableEvents = False
Target = Numeroter(Target.Text)
Application.EnableEvents = True
End If
End Sub

dans le code de la feuille et tout rentre dans l'ordre...

Le gag, comme j'ai dit.

Bonne nuit maintenant.

Jean-Pierre

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 22 Décembre 2008

• #6

Re : Message à Excel-lent...

Re,

Les événementielles c'est bien, mais il faut que cela soit bien géré....

Point trop n'en faut...

En tous cas, tu m'a bien fait rigoler, même si j'ai eu quelques doutes un instant....

Allez, bonne nuit, j'y vais en ce qui me concerne mais je crois que je vais rêver à des cellules récalcitrantes.

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 22 Décembre 2008

• #7

Re : Date butoir...

Bonsoir,

Merci jeanpierre, tu me sauves un mal de tête, ça faisait 10 minutes que je cherchais et je ne voyais absolument rien.


Denis

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 22 Décembre 2008

• #8

Re : Date butoir...

Bonsoir Denis,

Valleyfield, c'est au Canada.. ?

Tu vas me dire, cherche dans google. Je n'utilise pas google, me demande pas pourquoi....

Ceci dit, j'aurais pu me prendre la tête aussi sur la chose...

Comme je n'ai pas d'alerte macro... (niveau de sécurité bas par habitude avec les problèmes que cela pose quelquefois surtout sur un forum), je n'avais donc pas connaissance de cela...

Le bol, comme on dit, peut-être, mais par principe je regarde toujours en VBE..... les feuilles, ThisWorkBook et les modules s'il y en a....

Bonne soirée à toi et bonne nuit bientôt...

Jean-Pierre

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 22 Décembre 2008

• #9

Re : Date butoir...

Rebonsoir Jean-Pierre,

Valleyfield c'est au Québec tout près de Montréal et présentement nous "subissons" une belle tempête de neige alors j'ai plus de temps pour XLD
mais sans ton intervention, j'aurais sûrement perdu beaucoup de temps sur ce fichier. Alors merci encore, je retiens la leçon.

@+

Denis

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 22 Décembre 2008

• #10

Re : Date butoir...

Bonsoir,
Reste quand même que si le code était présent, ce n'est pas un hasard, non ?!
Même si la fonction ne doit pas s'appliquer pas à cette colonne
A+
kjin

 

Vote positif 0 Vote négatif

L

Lucas

XLDnaute Occasionnel

• 22 Décembre 2008

• #11

Re : Date butoir...

Merci Jean-Pierre...

Comme le dit Klin...Je ne sais pas du tout d'où proviennent ces codes???...mais bon!...un gros gros Merci!....un mal de tête en moins!...Lucas

 

Vote positif 0 Vote négatif

L

Lucas

XLDnaute Occasionnel

• 22 Décembre 2008

• #12

Re : Date butoir...

Re-bonjour Jean-Pierre, Klin et Denis...

Voilà, j'ai enlevé les codes du fichier et ça fonctionne pour ajouter une date..

Toutefois, j'avais des codes qui me permettaient d'ajouter de la numérotation «automatique» dans la case résultat et décisions en appuyant sur ALT+retour...numérotation 1,2,3....

Est-il possible de récuper cette «commande»...Merci!....Lucas

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 22 Décembre 2008

• #13

Re : Date butoir...

Bonjour,
Je me disais bien aussi 🙄

Lucas à dit:

Est-il possible de récuper cette «commande»...Merci!....Lucas

Cliquez pour agrandir...

Le pb c'est que si tu souhaites conserver cette fonctionnalité pour la colonne E (Date butoir), tu risques d'avoir qq soucis pour comparer tes dates et valider ta MFC
Si la fonctionnalité ne concerne que les colonnes 4 et 7 comme dans ton fichiers, alors il faut le spécifier dans le code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = [COLOR="Red"]4[/COLOR] Or Target.Column = [COLOR="Red"]7[/COLOR] And Target.Row > 2 And Target.Text <> vbNullString Then
        Application.EnableEvents = False
        Target = Numeroter(Target.Text)
        Application.EnableEvents = True
    End If
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

L

Lucas

XLDnaute Occasionnel

• 22 Décembre 2008

• #14

Re : Date butoir...

Merci beaucoup Kjin..

Je vais essayé ta «commande»...penses-tu qu'il serait possible d'ajouter à la numérotation une sous numérotation. Par exemple :

1. Kjin
1.1 Lucas
1.2 exemple.....

Encore un fois un gros Merci!...Lucas

 

Vote positif 0 Vote négatif