Discussion :

[debutVBA]

Bonjour à tous et à toutes


J'ai une macro dont le test ci dessous fonctionnent très bien sous excel 2003
et dès que je test celle-ci sous excel 2010 ,le test renvoie toujours FALSE même si le contenu des cellules testées sont pareils


Quelqu'un aurait une idée ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
x = 2
 
For Compteur = 1 To 5
 
    If ThisWorkbook.Worksheets("MaFEUILLE1").Cells(1, x) = ThisWorkbook.Worksheets("MaFEUILLE2").Cells(15, 4) Then
    ref_col = x
    Else
    x = x + 1
    End If
Next

Merci à tous et a toutes

[ZebreLoup]

Essaie en rajoutant un .Value sur les Cells. Peut-être qu'en 2010, il vérifie que tout est exactement pareil (le format...).

[debutVBA]

Bonjour et merci a toi pour ton aide


J'ai créé un fichier sous excel 2010 ,et saisit deux valeurs dans 2 cellules différentes.
les valeurs saisies sont identiques.

Donc j'ai fais un test et ca ne change pas grand chose le .Value ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Sub test()
 
Dim w As Workbook
Set w = Workbooks("TESSST.xlsm")
Dim maFeuille
Set maFeuille = w.Worksheets(1)
 
w.Activate
maFeuille.Activate
 
 
MsgBox "la valeur de la cellule Ligne 2 colonne 2 est de " & Cells(2, 2) - Cells(4, 1)
 
MsgBox "la valeur de la cellule Ligne 2 colonne 2 est de " & Cells(2, 2).Value - Cells(4, 1).Value
 
If Cells(2, 2) = Cells(4, 1) Then
MsgBox "le resultat est faux "
 
Else
MsgBox "le resultat est vrai "
 
End If
 
 
If Cells(2, 2).Value = Cells(4, 1).Value Then
MsgBox "le resultat est faux "
 
Else
MsgBox "le resultat est vrai  "
 
 
 
 
End If
 
 
End Sub

[ZebreLoup]

Les deux tests te donnent "Le résultat est vrai" ?

[Didier Gonard]

Bonjour,

Cells(2, 2) - Cells(4, 1)

si les deux valeurs sont identiques, comme annoncé retournera zéro, donc les test seront faux

didier

[debutVBA]

j'avoue ne pas avoir saisit

On va dire que dans Cells(2, 2) il y a la valeur 15

et dans Cells(4, 1) il y a la valeur 15 également

donc si je reprends le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
If Cells(2, 2) = Cells(4, 1) Then  'ici 15 est bien egale a 15 donc doit afficher
le resultat est faux mais affiche "EST VRAI"
MsgBox "le resultat est faux "
 
Else
MsgBox "le resultat est vrai "
 
End If
 
 
If Cells(2, 2).Value = Cells(4, 1).Value Then 'je mets le .VALUE ,donc 15 est bien egale a 15  donc doit m'afficher est faux mais m'affiche "est VRAI"
MsgBox "le resultat est faux "
 
Else
MsgBox "le resultat est vrai  "
 
 
 
 
End If

Donc dans les deux cas c'est la meme chose en faites pour lui ce n'est pas les memes valeur qu'on mette oui ou non le .VALUE


End Sub

[ZebreLoup]

Tu peux regarder dans le débuggeur ce que te donne Cells(2, 2).Value et Cells(4, 1).Value et nous donner quel est leur type ?

[Didier Gonard]

j'avoue ne pas avoir saisit

On va dire que dans Cells(2, 2) il y a la valeur 15

et dans Cells(4, 1) il y a la valeur 15 également

c'est toi qui a écrit :

MsgBox "la valeur de la cellule Ligne 2 colonne 2 est de " & Cells(2, 2) - Cells(4, 1)

donc dans ton message tu dis que la cellule qui a pour .value 15 est à zéro

vu que VBA = logique

Didiier