Aide pour un code VBA

[captainejack]

Bonsoir le Forum

Peut on m'aider à résoudre ce problème
Je n'arrive pas à trouver le code en VBA
Ci joint le fichier et d'autres explication

En vous remerciant

Dan

 

[suistrop]

Re : Aide pour un code VBA

Salut,

Essai d'etre un peu plus précis.

Suistrop

 

[captainejack]

Re : Aide pour un code VBA

Bsr Suistrop
Dans le tableau joint, quand je mets "En Vente" dans les cellules de la Colonne B, la date du jour se met automatiquement en C:
Ex:si je mets "en vente" en B3, la date du jour s'affiche automatiquement en C3 et ainsi de suite
Slts et merci
Dan

 

[Staple1600]

Re : Aide pour un code VBA

Bonsoir capitainejack, suistrop, le fil, le forum


Si j'ai bien compris la demande

A mettre dans le code de la feuille (pas dans un module)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 And Target.Row < 3 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1) = IIf(Target.Value = "En vente", Date, vbNullString)
Application.EnableEvents = True
End Sub

PS: Attention aux effets de bord de Application.EnableEvents=False

 

[captainejack]

Re : Aide pour un code VBA

Merci de ton aide
J'aai inséré le code dans la feuille et rien ne se produit

Slts
Dan

 

[Robert]

Re : Aide pour un code VBA

Bonsoir le fil, bonsoir le forum,

Captainejack, tu l'as mis où le code de JM ? Il faut impérativement qu'il soit dans l'onglet concerné, enfin dans le composant VBA de l'onglet concerné.
En pièce jointe ton fichier et le code que j'ai un peu modifié de JM :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row < 3 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Target.Offset(0, 1) = IIf(Target.Value = "En vente", Date, vbNullString)
End Sub

En rempaçant And par Or on peut se passer de Application.EnableEvents toujours dangereux... La condition If Target.Column<>2 then Exit Sub sortira de la boucle sur la procédure quand la date s'inscrira en colonne C.

 

[Staple1600]

Re : Aide pour un code VBA

Bonsoir Robert

Merci d'avoir pris le relais
Comme toi je me méfie

A mettre dans le code de la feuille (pas dans un module) (pourtant je l'avais bien écrit 😉 )
PS: Attention aux effets de bord de Application.EnableEvents=False

 

[captainejack]

Re : Aide pour un code VBA

Bjr Staple 1600 & Robert

Désolé de vous répondre seulement maintenant
J'ai inséré le code et il fonctionne
En ajoutant 1 collonne, D, qu'est ce qu'i faudrait ajouter au code ,si je remplace "en vente" par "vendu" , et que la date de " en vente" reste et la date "vendu" s'affiche
Ci joint le fichier ooù j'ai ajouté le code et la colonne suplémentaire
Merci pour votre patience et du temps passé
Slts

 

[Robert]

Re : Aide pour un code VBA

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié.

 

[captainejack]

Re : Aide pour un code VBA

Bjrs Robert

Merci pour ton code

je l'ai introduit dans le tableau final et j 'ai l'impression qu'il y une différence dans les positions des cellules par rapport au fichier précedent
J'ai fait copier/coller du tableau final en m'assurant de la bonne position des cellules
J'aurais du le joindre en premier , cela m'aurais évité de déranger à nouveau
Serait il possble aussi de m'expliquer le code
Encore merci de ta patience et de ton aide, ainsi qu'à tous les membres du forum pour le travail formidable que vous faites.....
Slts
dan

 

[Robert]

Re : Aide pour un code VBA

Bonsoir le fil, bonsoir le forum,

Oui tu as raison Captainejack. C'est bien chiant de refaire trois fois les mêmes choses parce que tu as eu la flemme de donner les bonnes explications au départ... En pièce jointe une version 3 avec le code commenté.

 

[captainejack]

Re : Aide pour un code VBA

Bsr Robert

Merci pour tes explications et pour ton aide
Désolé , mais je n'arrive toujours pas à mettre le code dans le tableau final; suis vraiment nul.....
Je vais essayé encore demain et te fairait part du résultat

En te remerciant et désolé pour avoir pris sur ton temps

Slts