RECHERCHER

PASCAL · 2 Octobre 2004

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.

myDearFriend · 3 Octobre 2004

Re- Pascal,

Ci-joint l'exemple modifié pour répondre à ta nouvelle question...
(Pourquoi ne pas avoir précisé ça avant ?)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
'Mise à jour des feuilles 2 et 3
MAJDate Sheets(2), Target.Value
MAJDate Sheets(3), Target.Value
End If
End Sub

Private Sub MAJDate(Feuille As Worksheet, Valeur As Variant)
Dim L As Long
With Feuille
'Pour chaque ligne du tableau
For L = 4 To .Range("B65536").End(xlUp).Row
'Si le numéro d'article correspond
If .Cells(L, 2) = Valeur Then
'Mettre la date du jour dans la colonne 5 et sortir de la procédure
.Cells(L, 5) = Date
MsgBox "Date de vente enregistrée !", vbOKOnly, Feuille.Name
Exit Sub
End If
Next L
End With
MsgBox "Cet élément n'existe pas...", vbOKOnly, Feuille.Name
End Sub

Cordialement,
Didier_mDF

Jean-Marie · 3 Octobre 2004

Bonjour

Je viens de m'apercevoir que le fichier n'est pas passé. J'ai dû faire une boulette.

@+Jean-Marie

RECHERCHER

PASCAL

Guest

myDearFriend

Guest

Pièces jointes

Jean-Marie

Guest

Pièces jointes

Discussions similaires

RECHERCHER

PASCAL

Guest

myDearFriend

Guest

Pièces jointes

Jean-Marie

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency