souci de syntaxe débutant

camarchepas

XLDnaute Barbatruc

• 14 Septembre 2014

• #2

Re : souci de syntaxe débutant

Bonsoir,

Comme ceci par exemple

Code:

sub Choix

if range("H3") <>0 then
  msgbox "Vérifier"
else
  call delpointé
end if

end sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Septembre 2014

• #3

Re : souci de syntaxe débutant

Bonjour à tous,

Peux-tu essayer ceci :

Option Explicit


Sub Vérification()
If Range("H3") <> 0 Then MsgBox "Merci de vérifier"
If Range("H3") = 0 Then Call Delpointé
End Sub

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

G

gilm

Guest

• 14 Septembre 2014

• #4

Re : souci de syntaxe débutant

Merci beaucoup pour votre réponse.

J'ai le même souci, la MsgBox s'ouvre dans les 2 cas. Je vais essayer de comprendre...Surement une erreur de ma part.
Mon fichier est trop gros pour le transmettre (932K).

Encore merci et bonne soirée.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Septembre 2014

• #5

Re : souci de syntaxe débutant

Bonjour à tous,
Salut Nono,

Merci de tester le fichier joint en mettant 0 et ensuite une autre valeur en H3 et en cliquant sur le bouton


A+ à tous

 

Pièces jointes

• JC Test Valeur H3.xlsm

  31 KB · Affichages: 27

Vote positif 0 Vote négatif

G

gilm

Guest

• 14 Septembre 2014

• #6

Re : souci de syntaxe débutant

Merci beaucoup.
Votre code fonctionne parfaitement sauf...sur mon fichier.
Ca marche si je prends une autre cellule que H3 en entrant manuellement une valeur.
La valeur de la cellule H3 est une valeur calculée (pourtant bien égale à 0) qui ne semble pas être reconnue.

En tout cas, merci pour votre complaisance
Bonne fin de soirée.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Septembre 2014

• #7

Re : souci de syntaxe débutant

Bonsoir ,

Est-ce un 0 ou un "0"

 

Vote positif 0 Vote négatif

G

gilm

Guest

• 14 Septembre 2014

• #8

Re : souci de syntaxe débutant

Re-bonsoir,
C'est bien un Zero (avec la cellule en format nombre).
La valeur est issue d'un calcul sur un autre feuille.
Si je mets le format de cellule en standard, le 0 devient -153477E-12

Merci si vous avez une explication
Bonne soirée

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Septembre 2014

• #9

Re : souci de syntaxe débutant

Bonjour à tous,

Et si tu joignais ton fichier anonymisé...

A+ à tous

 

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 15 Septembre 2014

• #10

Re : souci de syntaxe débutant

Bonjour à tous,


Si la propriété NumberFormat est du type Nombre, je propose ceci:

Code:

Sub Choix()

Set c = Range("H3")

c.ShrinkToFit = True
t = c.Text
c.ShrinkToFit = False

f = Replace(c.NumberFormat, ".", Format(0, "."))

If t = f Then
  MsgBox "Vérifier"
Else
 
  Call delpointé
End If
 
End Sub

Cordialement

Docmarti

 

Vote positif 0 Vote négatif