[XL-2010] figer date du jour

[kreutzberg]

Bonjour,

je suis chargé de réaliser le suivi hebdomadaire du contrôle des cotes sur des pièces mécaniques. Ce contrôle est réalisé sur 12 éléments à l'aide de tampons de contrôle validant la conformité de cette pièce.
Pour le suivi, j'ai commencé à construire un fichier excel dans lequel la personne entre à l'aide d'une liste déroulante '1' en cas de conformité, '0' en cas de non conformité. Le fait d'activer la case génère sur la case du dessus la date à l'aide de la formule E36=SI(ESTVIDE(E37);"";AUJOURDHUI()). Le numéro de semaine est générée en E35=SI(E36="";"";ENT(MOD(ENT((E36-2+(JOUR(1)=2)*6)/7)+3/5+((JOUR(1)=2)*208);52+5/28))+1).

Cependant, la date change en fonction du temps, et ça n'aide pas à réaliser mes statistiques. Comment faire, à chaque saisie automatique de la date, pour figer celle-ci et qu'elle ne change pas en fonction de la date du système?

Merci par avance.

[Daniel.C]

Bonjour,

Deux choses :

1. Comment fais-tu changer la valeur de E37 ?
2. Si tu utilise XL2010, regarde la fonction NO.SEMAINE qui fournit maintenant le numéro de semaine à la norme ISO.

[jfontaine]

Bonjour,

pour figer la date de la cellule E36, tu peux utiliser le code ci dessous

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$E$37" And Target.Count = 1 Then
    If Target.Value = 1 Then
        Range("E36").Value = Format(Now, "dd/mm/yyyy")
    Else
        Range("E36").Value = ""
    End If
End If
 
End Sub

[Daniel.C]

Bonjour,

Oui, sauf si E37 contient une formule, d'où ma question.

[kreutzberg]

Merci pour ces premiers éléments.

@Daniel:
j'ai créé une liste déroulante avec comme valeurs 0 & 1. Les opérateurs n'ont qu'à cliquer sur la flèche permettant de faire le choix.

@jfontaine:
Merci pour ce code, ça me parait être le bon. Mais, tu ne fais afficher que la date lorsque la pièce est bonne, soit quand la valeur est à 1. Or, j'aimerais également que la date s'affiche lorsque la pièce est mauvaise, soit à 0. Comment rajoutes tu la condition dans cette boucle:

Code :

1
2
3
4
5
6
If Target.Address = "$E$37" And Target.Count = 1 Then
    If Target.Value = 1 Then
        Range("E36").Value = Format(Now, "dd/mm/yyyy")
    Else
        Range("E36").Value = ""
    End If

Enfin, j'aimerais créer un deuxième onglet, où je viens récupérer les numéros de semaines pour chaque mesure et pour chaque pièce en cliquant sur un bouton pour assurer la mise à jour de mes stats. Pouvez-vous me donner une piste s'il vous plait?

Jfontaine, le code que tu m'as fourni ne fonctionne t-il que pour la case E36? Comment vont se compléter les dates lorsque les case F,G,H,I, etc 36 se compléteront?

[Daranc]

je ne comp^rends pas trop ton principe de stat de contrôle
si tu as 12 pièces à vérifier tu dois normalement avoir 12 cellules à remplir soit douze colonne + la date + le n° de semaine soit 15 colonne
tu peut même en avoir une 16 qui valide les 12 saisies

Code :

=SI(NBVAL(c3:n3)=12;1;0)

ceci évite le recours aux formules matricielles
en colonne B une formule genre

Code :

=NO.SEMAINE(a5)

modifier le code de JP.Fontaine ( avec la 16éme colonne)

Code :

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, 14).Offset(-1, 1).Value = 1 Then
           Cells(ActiveCell.Row - 1, 1).Value = Date
End If
End Sub

rapidement les douze saisie étant faite la dernière est validé par entrée donc la date doit etre rentée dans la ligne au dessus en supposant que Entré envoie vers la cellule du bas
si entrée envoi vers la cellule de droite supprimer les offsets

Code :

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, 14).Value = 1 Then
           Cells(ActiveCell.Row , 1).Value = Date
End If
End Sub

a tester

[kreutzberg]

Hello Daranc,
je viens de joindre la dernière version du fichier avec les premières mesures afin que tu comprennes mieux ce que je souhaite faire. Il y a en effet 12 diamètres à contrôler. Donc pour chaque diamètre, l'opérateur clique au fur et à mesure sur les cases surlignées en jaune et remplis par 0 ou 1 en fonction du contrôle. A chaque fois qu'une valeur est saisie, la date et le numéro de semaine doivent être renseignés.

[Daranc]

bon ça à été laborieux
un problème de boucle sans fin

en premier lieu , dans le code de la feuille

Code :

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = 1 Or ActiveCell.Value = 0 Then
dateur
End If
End Sub

et dans un module

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub dateur()
Dim L, C
L = ActiveCell.Row
C = ActiveCell.Column
With Sheets("Mesures")
.Unprotect
.Cells(L, C).Offset(-1, 0).Activate
.Cells(L, C).Offset(-1, 0).Value = Date
.Protect
End With
Cells(L, C + 1).Select
End Sub

j'espère que ceci répondra à ton problème
il y a surement quelque chose de moins bricolé mais je n'ai pas trouvé