Discussion :

[debutVBA]

Bonjour à tous et à toutes


Donc le morceau de code ci dessous est utilisé sous excel 2003 et fonctionne très bien...maintenant cette macro est utilisée sous excel 2010 ,il y a eu aucune modification de code mais le test passe toujours dans le ELSE depuis la migration 2003 vers 2010 malgré qu'un moment donné des valeurs sont identiques..

Qu'est ce qui pourrait faire lors d'une migration de macro que celle-ci ne fonctionne plus?

Le code changerait-il sous office 2010 ? doit -il y avoir une petite "modif" quelque part ??

Merci pour votre aide .

Code :

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

1
2
3
4
5
6
7
8
9
 
i = 2
For k = 2 To 6
    If ThisWorkbook.Worksheets("Mafeuille").Cells(1, i) = ThisWorkbook.Worksheets("Mafeuille2").Cells(35, 3) Then
   maReference = i
    Else
    i = i + 1
    End If
Next

[jfontaine]

Bonjour,

A tu essayé de spécifier la propriété à tester

Code :

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

ThisWorkbook.Worksheets("Mafeuille").Cells(1, i).Value = ThisWorkbook.Worksheets("Mafeuille2").Cells(35, 3).Value

[debutVBA]

Bonjour jfontaine


Oui,j'ai testé cela mais ça lève la meme erreur

Merci à toi d'avoir répondu .

[jfontaine]

quel est le type de valeur comparée? (un exemple)

[debutVBA]

voici un exemple de valeur comparé :

0,2 = 20,0 pour cent

[jfontaine]

A tout hasard

Code :

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

Val(ThisWorkbook.Worksheets("Mafeuille").Cells(1, i).Value) = Val(ThisWorkbook.Worksheets("Mafeuille2").Cells(35, 3).Value)

[debutVBA]

Re jfontaine

Bravo à toi jfontaine

Cela fonctionne..

Par tout hasard pourrait tu m'expliquer l'utilité et la fonctionnalité de la fonction VAL

Merci à toi en tout cas mille merci =)

[jfontaine]

La Fonction VAL transforme une chaine de caractère en numérique.
C'est utile quand on a un symbole décimal en Virgule (VBA utilisant le point)