Aide pour un code VBA

suistrop

XLDnaute Impliqué

• 21 Mai 2011

• #2

Re : Aide pour un code VBA

Salut,

Essai d'etre un peu plus précis.

Suistrop

 

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 21 Mai 2011

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2011

• #4

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)

VB:

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

 

Dernière édition: 21 Mai 2011

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 21 Mai 2011

• #5

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 21 Mai 2011

• #6

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 :

Code:

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.

 

Pièces jointes

• CaptaineJack_v01.xls

  35 KB · Affichages: 48

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2011

• #7

Re : Aide pour un code VBA

Bonsoir Robert

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

Staple1600 à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 22 Mai 2011

• #8

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

 

Pièces jointes

• Essai date 4.xls

  35.5 KB · Affichages: 41
• Essai date 4.xls

  35.5 KB · Affichages: 41
• Essai date 4.xls

  35.5 KB · Affichages: 43

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Mai 2011

• #9

Re : Aide pour un code VBA

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié.

 

Pièces jointes

• CaptaineJack_v02.xls

  35 KB · Affichages: 46

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 22 Mai 2011

• #10

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

 

Pièces jointes

• essai date 5.xls

  22 KB · Affichages: 40

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Mai 2011

• #11

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é.

 

Pièces jointes

• CaptaineJack_v03.xls

  23 KB · Affichages: 42

Vote positif 0 Vote négatif

captainejack

XLDnaute Occasionnel

• 22 Mai 2011

• #12

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

 

Vote positif 0 Vote négatif