Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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:
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
820
Phil69970
  • Résolu(e)
Formule de calcul sur une date et demi-journée 0,5
Réponses
2
Affichages
588
HE_RA
O
  • Question
XL 2016 Problématique écritures comptables - formule Excel et Macro VBA simple
Réponses
9
Affichages
1 K
fanfan38
R
  • Résolu(e)
XL 2019 Fonction SI+Caractère spéciaux
Réponses
2
Affichages
484
RAC50
R
O
  • Question
XL 2019 copie de cellule en fonction d'un numéro de listing de référence
Réponses
1
Affichages
877
Jacky67
C
  • Question
Microsoft 365 Macro pour récupérer des données dans plusieurs fichiers identiques
2
Réponses
15
Affichages
4 K
merinos
Y
  • Question
XL 2016 Aide sur macro de date par rapport a une date de reference
Réponses
11
Affichages
1 K
yves03
Y
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
H
  • Question
XL 2016 Macro simple ou macro VBA ?
Réponses
4
Affichages
959
HaggarduNord
H
S
  • Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
6 K
Scorp0211
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…