macro événementielle

C

Cathy

Guest
Bonjour toutes les foromeuses et tous les foromeux

J'ai des petits problèmes dans ma programmation, pourquoi ça marche pas???

Merci les amis de m'aider, pasque là, j'ai m...é!

Alors là, tout est entièrement de ma fôt!!!

(c'est pourkoi je m'excuz de vous demander pardon!)

J'ai voulu aider oxygene sur sa question d'hier "date fixe par action de condition"


la question était :
"Si je mets B8 à 1 je veux mettre dans la cellule B9 une date fixe
j'ai essayé cette formule
=SI(B8=1;MAINTENANT();" ")
Le problème est qu'elle ne conserve pas la date fixe une fois la valeur
de la cellule B8 rempli par un 1."

et voilà, j'ai un bug! :

quand j'ai 1 en B8 je n'arrive plus à modifier B8!

D'ouksétiksavien?

Merci et ... sorry de vous zembété avec mes trucs qui marchent pas!

Saint-Cloud MénilMuche.

Cathy

Merci de m'aider, c'est pas seulement pour oxygene, c'est aussi pour ma culture personnelle (y'en a besoin!!!)
 

Pièces jointes

  • changeCellule.xls
    19.5 KB · Affichages: 48
Dernière modification par un modérateur:
T

Ti

Guest
Salut Cathy

Je crois que tu n'utilises pas le bon événement. Essaie cette macro, ça devrait aller mieux :
il faudra aussi que tu mettes ta cellule A9 au format Heures.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
With Target
If .Value = 1 Then
.Offset(1, 0).Value = Now()
'si tu veux vider A9 si sa valeur est <> de 1
'else
' .Offset(1, 0).Value = ""
End With
End Sub
 
C

Cathy

Guest
Merci Ti de voler encore une fois à mon secours.

Oh là là, j'en ai marre d'êt' bête! ça march'pas! (fichier joint) et en + quand on clique ailleurs qu'en B8 ça efface la date!

Bon, c'est pas gagné, y'a du boulot avant que j'maitriz!!!

c u soon

Cathy
 
T

Ti

Guest
normal que ça ne marche pas, d'une part tu l'as copié dans Thisworkbook alors qu'il aurait fallu le copier dans la Feuil1 et d'autre part, ma macro s'est retrouvée incomplète (il faut dire que j'ai rajouté un truc dedans directement depuis le forum). Voici donc ton fichier, qui marche !
Bon courage
 

Pièces jointes

  • changeCellule.xls
    17.5 KB · Affichages: 40
C

Cathy

Guest
Oui, j'ai vu, mille pardons, cé pa dans zisworkbook, gé fé tro vite, mais c'est aussi dans la feuille (worksheet).

Par contre, Ti, j'ai toujours ce satané problème de pièces jointes, tu peux m'envoyer to fichier dans ma bal perso sel te pli? Merci bôcoup.

Cathy
 

Discussions similaires

Statistiques des forums

Discussions
314 645
Messages
2 111 536
Membres
111 184
dernier inscrit
amiko