Affichage sur action unique?

Version imprimable

28/04/2013, 19h01
MAHB34

Affichage sur action unique?

Je ne sais pas trop comment expliquer mon problème.

Pour un projet sur la gestion de parc automobile, je voudrait pouvoir afficher la valeur "0 km" dans une cellule à partir du moment où une date d'achat est rentré dans une autre cellule.

Tous les jour je doit pouvoir ensuite mettre à jour le kilométrage de la voiture.

Je cherche donc un code qui me permet d'afficher une valeur quand une cellule est rempli mais après cette cellule doit être "libre" de modification.

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim KeyCells As Range
 
 ' La variable KeyCells contient les cellules qui déclencheront une alerte si elles sont modifiées.
 Set KeyCells = Range("A1:A10")
 
 If Not Application.Intersect(KeyCells, Range(Target.Address)) _
 Is Nothing Then
 
 ' Affichage d'un message lorsque l'une des cellules désignées a été modifiée.
 ' Placez votre code ici.
If Cells(Target.Row, Target.Column)<>"" then sheets("feuil1").cells(target.row,target.column+1)="0 Kms"
 
 End If
 End Sub

Voila qui devrait faire l'affaire.
Inscrire une valeur en A1 jusque A10 provoque le declenchement de la macro qui inscrit 0 kms en B si A est different d'une valeur nulle.

28/04/2013, 19h17
BlueMonkey

Bonsoir,

Une autre solution, la mise en forme conditionnelle me paraît répondre au besoin :
- la cellule à mettre en forme : la cellule contenant la distance en km.
- la condition : si la cellule date est vide.
- la mise en forme : choisir une couleur de police identique à la couleur de fond.

voir mise en forme conditionnelle.

[edit] pour voir à l'affichage km à la suite de la valeur distance,
il suffit d'ajouter la mise en forme nombre personnalisé : 0" km"
28/04/2013, 19h46
MAHB34

Merci keygen08,

Ce code semble pouvoir résoudre mon problème mais je n'arrive pas à l'adapter à "mes" cellules.

Dans ma feuille, quand B4 passe de "" à rempli, je doit afficher 0 dans la cellule B6.

Bonsoir.

Code:

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [B4].Address And [B4] > "" And [B6] = "" Then [B6] = 0
End Sub

29/04/2013, 12h15
keygen08

Bonjour

Code:

Set KeyCells = Range("A1:A10")

Represente la plage de cellules dont le changement de valeur declenchera la macro

Code:

then sheets("feuil1").cells(target.row,target.column+1)="0 Kms"

Represente un offset (decalage de x ligne et x colonne par rapport a la cellule selectionné)

Donc un changement de valeur de b4 à d4

Code:

Set KeyCells = Range("b4:d4")

changerai les valeurs de b6 à d6 si on ecrit ceci

Code:

then sheets("feuil1").cells(target.row+2,target.column)="0 Kms"