Problème de déclaration de variable

Bonjour,

Un problème de déclaration de variable plante (semble t-il) ma procédure.

Voici un extrait des déclarations ci-dessous (je n'ai indiqué que les variables concernées par le pb) :

Code:

---

1 2 3 4 5 6

Sub Recup_donnees_pour_TDB()   'Déclaration des variables ' Dim PO_Date As Variant Dim check_PO_Date As String

---

Petite précision : La variable "PO_Date" est une date. Elle peut cependant être vide. Au départ j'avais déclaré cette variable comme une date mais du fait de plantages j'ai dû la transformer en Variant.

Dans mon cas du moment, PO_Date est vide (cellule vide).

Lorsque j'exécute la macro, à un moment donné, je passe par ce qui est indiqué juste en dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

' '------PO_Date------ ' check_PO_Date = IsDate(Range("C9").Value) If check_PO_Date = "Vrai" Or check_PO_Date = "True" Then PO_Date = Range("C9").Value MsgBox ("check PO Date VRAI") Else MsgBox ("check PO Date FAUX") PO_Date = "" MsgBox ("PO_Date = ") & PO_Date End If '

---

En mode débugage pas à pas j'obtiens :
check PO Date Faux

Je clique sur "OK" et j'obtiens :
PO_Date = (vide)

Je clique à nouveau sur "OK" et j'obtiens :

Run time error 13
Type mismatch.

Après avoir cliqué sur "debugage" le programme m'affiche les lignes suivantes (ligne avec le "if" en fluo)

Code:

---

1 2 3 4 5 6 7 8 9 10

' '------PO_Date------La formulation ci-dessous permet d'éviter l'inversion jour / mois ' If IsDate(PO_Date) = "Vrai" Or IsDate(PO_Date) = "True" Then Range("E" & y).NumberFormat = "" Range("E" & y).Value = CDate(PO_Date) Else Range("E" & y).Value = PO_Date End If '

---

Je ne comprends pas mon erreur. Pouvez-vous éclairer ma lanterne ? Merci par avance.

Cdlt.
Jérôme.

Salut,

la fonction IsDate te retournera True ou False, donc ta ligne de test doit être modifiée de

Code:

---

1 2	check_PO_Date = IsDate(Range("C9").Value) If check_PO_Date = "Vrai" Or check_PO_Date = "True" Then

---

à

Code:

---

1 2	check_PO_Date = IsDate(Range("C9").Value) If check_PO_Date Then

---

voire même

Code:

---

1 2	check_PO_Date = IsDate(Range("C9").Value) If check_PO_Date Then

---

ou encore

Code:

---

If IsDate(Range("C9").Value) Then

---

(Re)bonjour,

Je ne vois pas de différence entre les deux premières propositions ??

Quand tu écris :

Code:

---

1 2	check_PO_Date = IsDate(Range("C9").Value) If check_PO_Date Then

---

If check_PO_Date then --> cela signifie t-il "si check_PO_Date est vrai alors" ?

Cdlt.
Jérôme.

Bonjour,
Lorsque l'on effectue un test logique comme par exemple ici pour tester si la cellule A2 contient une valeur <>0

Code:

---

=SI(A2;A2;"Rien")

---

Cela sous-entends

Code:

---

=SI(A2<>0;A2;"Rien")

---

En VBA c'est pareil comme par exemple pour une variable booléenne

Code:

---

If Flag then MsgBox "Test réussi")

---

Même chose que

Code:

---

If Flag = True then MsgBox "Test réussi")

---

pour tester l'inverse

Code:

---

If Not Flag then MsgBox "Test raté")

---

Identique à

Code:

---

If Flag = False Then MsgBox "Test raté"

---

Alors qu'en faisant ce test

Code:

---

If IsDate(PO_Date) = "Vrai" Or IsDate(PO_Date) = "True" Then

---

tu vérifies un texte et pas un booléen. (pour VBA uniquement True ou False et pas de guillemets qui sont réservés aux constantes alphanumériques

Re,

Un grand MERCI pour ces explications très claires. Je teste tout de suite....

Cdlt.
Jérôme.

Citation:

---

Envoyé par licpegpon

Je ne vois pas de différence entre les deux premières propositions ??

---

une erreur de recopie, :oops: la premiere des deux était

Code:

---

If check_PO_Date = True Then

---

Cette modification semble fonctionner. Je m'interroge sur la partie suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'------Deliv_Target_Date (H6)------ ' check_Deliv_Target_Date = IsDate(Range("H6").Value) MsgBox ("Deliv_Target_Date = ") & check_Deliv_Target_Date & Range("H6").Value If check_Deliv_Target_Date = "Vrai" Or check_Deliv_Target_Date = "True" Then Deliv_Target_Date = Range("H6").Value MsgBox ("VRAI") Else MsgBox ("FAUX") Deliv_Target_Date = "" MsgBox ("Deliv_Target_Date = ") & Deliv_Target_Date End If

---

Sachant que j'ai mis "17/03/2019" dans la cellule relative à "Deliv_Target_Date" et que la variable "Deliv_Target_Date" est déclarée comme Variant.

J'obtiens :
Deliv_Target_Date = True17/03/2019

Comment expliquer que je n'ai aucun plantage dans ce cas alors que j'ai conservé "If check_Deliv_Target_Date = "Vrai" Or check_Deliv_Target_Date = "True" Then" ??

Cdlt.
Jérôme

Bonjour,

Citation:

---

Comment expliquer que je n'ai aucun plantage dans ce cas alors que j'ai conservé "If check_Deliv_Target_Date = "Vrai" Or check_Deliv_Target_Date = "True" Then" ??

---

C'est en effet une de ces curiosités du VBA avec la version française d'excel (VRAI et FAUX dans excel sont des valeurs dont VRAI vaut d'ailleurs 1 et FAUX 0) et donc il interprète aussi bien VRAI que True et FAUX que False

Cependant si tu veux que ton application soit perenne et que tu ne souhaites pas passer des heures de recherche dans plusieurs mois quand tu auras oublié cette discussion, je ne peux que te conseiller de travailler selon les bonnes règles en utilisant True ou False car ta société peut demain t'imposer une version anglaise d'excel ou si tu partages ton programme avec des collègues qui eux ont une version anglaise d'excel et alors les problèmes vont commencer

De même, il faut bannir la propriété FormulaLocal et utiliser Formula

Evite aussi autant que possible de déclarer tes variables comme Variant

C'est toi qui voit

OK. Merci beaucoup !!

Cdlt.
Jérôme.