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

Executer macro si valeur supprimée

  • Initiateur de la discussion Initiateur de la discussion iStarOSX
  • 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 !

I

iStarOSX

Guest
Bonjour à tous.

Voila j'ai fais une macro qui s'execute en fonction de la valeur saisie dans la cellu D23.

Elle fonctionne très bien, hors mis que si l'utilisateur supprime la valeur de cette cellule, la macro ne s'execute pas, car cela n'est pas détecter comme une valeur inferieur ou égal a 0.


Code:
If Target.Address = Range("D23").Address Then

If Sheets("Sélection").Range("D23").Value <= 0 Then ' (j'avais essayé avec en plus Or Sheets("Sélection").Range("D23").Value ="")

'Mon code si valeur inferieur ou égale a 0

Else

If Sheets("Sélection").Range("D23").Value > 0 Then

'Mon code si valeur superieur a 0


End if
End if


J'aimerai que si la valeur de cette cellule est supprimer, la macro de condition si <= 0, s'execute.

Merci a ceux qui peuvent m'aider.
 
Re : Executer macro si valeur supprimée

Bonjour,

devrait fonctionner ainsi :
Code:
If Target.Value <= 0 Then

si code placé dans le module de la feuille concernée, événement "change" de celle-ci..

bon après midi
@+

Edition : bonjour Dull🙂
 
Dernière édition:
Re : Executer macro si valeur supprimée

Salut iStarOSX, le Forum

Pas sur d'avoir compris mais peut-être comme cela
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D23").Address Then
If Sheets("Sélection").Range("D23").Value = "" Then Sheets("Sélection").Range("D23").Value = 0
If Sheets("Sélection").Range("D23").Value <= 0 Then ' (j'avais essayé avec en plus Or Sheets("Sélection").Range("D23").Value ="")
'Mon code si valeur inferieur ou égale a 0
Else
'If Sheets("Sélection").Range("D23").Value > 0 Then
'Mon code si valeur superieur a 0
End If
End If
End Sub

A tester
EDITION: Salut Pierrot 🙂

Bonne Journée
 
Re : Executer macro si valeur supprimée

Bonjour le fil, bonjour le forum,

peut-être en résumant le tout :
Code:
If Target.Address = "$D$23" Then
     If Target.Value <= 0 Then
          'Mon code si valeur inferieur ou égale a 0
     Else
          'Mon code si valeur superieur a 0
     End If
End If
 
Re : Executer macro si valeur supprimée

Bonjour et merci de vos réponses.

En faite il semble que mon code ainsi que les votres fonctionnent, mais sur mon projet la macro ne s'execute pas du fait que la cellule D23 et fusionnée avec la cellule E23 (Pour des raison de présentation de mon application).

Comment faire pour que ma macro prenne en compte le fait que ma cellule est fusionné.
 
Re : Executer macro si valeur supprimée

Re le fil

Arfff.... les cellules Fusionnées c'est pas Glop préfère lui le centrage sur plusieurs colonnes
Click droit sur les cellule fusionnées/Format de cellules et



EDITION: Salut Robert🙂

Bonne Journée
 

Pièces jointes

  • iStar.jpg
    57.3 KB · Affichages: 58
  • iStar.jpg
    57.3 KB · Affichages: 62
  • iStar.jpg
    57.3 KB · Affichages: 59
  • iStar.jpg
    64.3 KB · Affichages: 83
  • iStar.jpg
    64.3 KB · Affichages: 80
Re : Executer macro si valeur supprimée

Merci Dull pour ta réponse, mais cela ne conviens pas dans mon cas, car les cellules fusionnées sont un champs que les utilisateurs doivent remplir. Donc si elles ne sont pas fusionnées cela ne marchera pas non plus.

Mais j'ai réussi a faire a peu près ce que je voulais en utilisant les mise en forme conditionnelles, même si ce n'est pas parfait, cela conviendra.

Merci a tous pour votre aide encore une fois.

Cordialement.
 
- 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
4
Affichages
732
Réponses
5
Affichages
909
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…