macro événementielle

  • Initiateur de la discussion Initiateur de la discussion Cathy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière modification par un modérateur:
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
 
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
 
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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
786
  • Question Question
Microsoft 365 Macro
Réponses
12
Affichages
1 K
Réponses
10
Affichages
937
Réponses
1
Affichages
779
Réponses
6
Affichages
1 K
Retour