Message box

[vark]

Bonjour
J'ai crée un userform dedans on entre un chiffre jusque la tout va bien
je voudrais quand la cellule M2 et egale a 0 avoir un message qui me le signale et mettre L2 a 0
Voila mon bout de code
Private Sub TextBox1_Change()
Sheets("Feuil1").Range("L2").Value = TextBox1.Value
End Sub
Merci

 

[Pierrot93]

Re : Message box

Bonjour,

pas tout compris, regarde cela si ca peut t'aider :

If Range("M2").Text = "0" Then MsgBox "0": Range("L2") = "0"

bon après midi
@+

 

[vark]

Re : Message box

Ca a l'air d'etre la bonne formule mais j'arrive pas a la faire fonctionner

 

[vark]

Re : Message box

Sinon est ce qu'on peut le faire apres ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E3:E65536")) Is Nothing Then
Target.Value = IIf(Target.Value = "X", "", "X")
[E2].Select
End If
End Sub

J'ai essayer mais erreur de compilation

 

[Pierrot93]

Re : Message box

Re,

ceci fonctionne chez moi :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E3:E65536")) Is Nothing Then
    Target.Value = IIf(Target.Value = "X", "", "X")
    Range("E2").Select
    Cancel = True
End If
End Sub

mais placé dans le module d'une feuille de calcul, en l'état pas utilisable dans le module de l'USF....

 

[vark]

Re : Message box

Re
on peut pas le faire automatique quand M2 = 0 alors le message compte bon et mettre L2 a 0 ??

 

[Pierrot93]

Re : Message box

Re,

essaye ceci, dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$M$2" And Target.Text = "0" Then MsgBox "0": Range("L2") = "0"
End Sub

bonne soirée
@+

 

[vark]

Re : Message box

non ca ne fonctionne pas j'ai deja Private Sub Worksheet_Change(ByVal Target As Range)
dans mon code
Voici mon code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Or Target.Column = 7 Then
Call test1
End If
End Sub

 

[Pierrot93]

Re : Message box

Bonjour,
il y a lieu de regrouper les codes dans une seule et même procédure :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Or Target.Column = 7 Then Call test1:Exit Sub

If Target.Count > 1 Then Exit Sub
If Target.Address = "$M$2" And Target.Text = "0" Then MsgBox "0": Range("L2") = "0"
End Sub

maintenant, comme je ne sais pas ce que fait ta procédure "test1" et la finalité de tout ceci, peux pas t'en dire plus....

bonne journée
@+

 

[vark]

Re : Message box

Re:
Excuse moi pour la reponse tardive et merci de m'aide
J'ai joint un fichier peut etre plus facile et avec les macros