Executer macro si valeur supprimée

[iStarOSX]

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.

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.

 

[Pierrot93]

Re : Executer macro si valeur supprimée

Bonjour,

devrait fonctionner ainsi :

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🙂

 

[Dull]

Re : Executer macro si valeur supprimée

Salut iStarOSX, le Forum

Pas sur d'avoir compris mais peut-être comme cela

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

 

[Robert]

Re : Executer macro si valeur supprimée

Bonjour le fil, bonjour le forum,

peut-être en résumant le tout :

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

 

[iStarOSX]

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é.

 

[Robert]

Re : Executer macro si valeur supprimée

Bonjour le fil, bonjour le forum,

En pièce jointe un fichier exemple avec des cellules fusionées et ça fonctionne correctement...

 

[Dull]

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

 

[iStarOSX]

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.