Discussion :

[licpegpon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voire même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[licpegpon]

(Re)bonjour,

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

Quand tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A2;A2;"Rien")

Cela sous-entends

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Flag then MsgBox "Test réussi")

Même chose que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

pour tester l'inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Flag then MsgBox "Test raté")

Identique à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Flag = False Then MsgBox "Test raté"

Alors qu'en faisant ce test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[licpegpon]

Re,

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

Cdlt.
Jérôme.

[Jean-Philippe André]

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

une erreur de recopie, la premiere des deux était

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If check_PO_Date = True Then

[licpegpon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

[licpegpon]

OK. Merci beaucoup !!

Cdlt.
Jérôme.