RECHERCHER

[PASCAL]

N°ARTICLE DESIGNATION VENDU

1 CLE
2 VELO
3 VOITURE

Bonjour à tous.

Je débute et j'ai un petit souci. Avec la fonction "RECHERCHE" je fais rentrer un N° d'article et la désignation correspondante s'affiche.Comment je pourrais en même temps mettre la date du jour dans la colonne VENDU.

Merci d'avance.

 

[Dugenou]

dans la case correspondante de la colonne vendu (pour la ligne 2 si vendu est dans la colonne c) :
=si(estvide(b2);"";aujourdhui()) te met la date mais si tu r'ouvre le fichier demain ce sera la date de demain !

un autre solution : tu sélectionne la cellule "vendu" et tu appuies simultanément sur ctrl et ;

Salut

 

[PASCAL]

merci pour ton aide
Le souci est que je suis en train de "bidouiller" un programme de gestion style "dépôt vente" et dans la case vendu je ne veux pas de mise à jour quotidienne.

 

[PASCAL]

encore moi....

je vais être plus explicite: lorsque la recherche est concluante et uniquement dans ce cas alors la date du jour se met dans la colonne C.
Ensuite elle ne doit plus jamais changer.


merci

 

[Bernard]

Bonsoir Le forum, bonsoir Pascal et Dugenou

Une application par macro.
Le tableau inventaire de la feuille"DONNEES" est pris en compte même si le nombre d'article augmente.
La date de vente inscrite est la date du jour de la vente puis ne bougera plus.
Pour remettre le tableau à zéro, il faut utiliser le bouton RAZ dans données.

Cordialement

Bernard

 

[Gérard Dezamis]

Bonsoir le Forum Pascal et Dugenou

Bernard, heureux papa du petit VentesArticles.zip, peux-tu jeter un oeil compatissant sur mes demandes concernant ce nouveau-né.
Beau bébé certes mais qui ne correspond pas en partie à mes attentes.
Je me permets de renvoyer l'enfant vers son géniteur afin qu'il puisse m'indiquer comment transformer le ch'tiot !
C'est dans ces moments là que l'on se rend compte des ses lacunes immenses.
Merci par avance

@+ GD

 

[Bernard]

Bonsoir Gérard

Voila le fichier modifié.

A+

Bernard

 

[Gérard Dezamis]

MERCI Bernard

C'est exactement ce que j'attendais,
Maintenant je vais faire l'echographie du bébé pour voir comment il fonctionne. Encore une 1/2 heure et c'est dimanche alors
Bonne fin de W-E et

Merci encore

@+
GD

 

[Bernard]

Re

bonne fin de soirée à toi aussi.

Bernard

 

[PASCAL]

J'aurai du être plus explicite la 1ère fois.
Si vous avez encore un peu de patience pour moi regardez le fichier joint.
Merci encore pour vos qualités d'écoute et de compréhension.

 

[Gérard Dezamis]

Hou Hou Pascal

C'est le matin !
Pas de fichier joint !

 

[PASCAL]

Je suis un vrai bleu je n'avais pas zippé le fichier désolé........

 

[Jean-Marie]

Bonjour

Une solution en cellule, "c'est plus une étude de style" et pour montrer les possibilité de calcul d'Excel avec l'option d'itération cochée.
Cette option d'itération est trop volatile pour permettre une utilisation viable.

Il y a une macro dans le fichier pour fixer cette option.

La résolution de ton problème passe forcément par une macro VBA.

@+Jean-Marie

 

[myDearFriend]

Bonsoir tout le monde,


Comme dans l'exemple ci-joint, la procédure ci-dessous devrait répondre à ton problème Pascal :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
With Sheets(2)
For L = 4 To .Range("B65536").End(xlUp).Row
If .Cells(L, 2) = Target.Value Then
.Cells(L, 5) = Date
MsgBox "Date de vente enregistrée !"
Exit Sub
End If
Next L
End With
MsgBox "Cet élément n'existe pas..."
End If
End Sub


Cordialement,
Didier_mDF

 

[PASCAL]

merci infiniment d'avoir pris la peine de me répondre (2 Heures du mat en plus....)
Pour un novice comme moi la procédure que tu m'as envoyé c'est du nectar!!!

une derniére question : comment faire pour effectuer cette même opération sur la feuille 2 et sur la feuille 3 (autre tableau sur feuille 3)

merci