Boucle IF - Condition non reconnue

Résolu/Fermé
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - Modifié par Maxxikilla le 10/07/2013 à 19:34
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - 10 juil. 2013 à 21:33
Bonjour à tous,

J'ai un petit soucis avec une boucle if, et je vois d'où ca vient, mais je n'arrive pas à résoudre le problème:

Voici le code ( il ne s'agit que d'une partie, le reste fonctionne parfaitement)

' Importation du Chiffre d'affaire


Dim cc As Boolean

For i = 16 To nbl1
'nbl1 repésente le nombre de ligne

Sheets("CNQ").Activate

v = Cells(i, 1).
' cette cellule vaut 2008 (par exemple) Donc v="2008"

For j = 38 To 48

Sheets("CA Mensuel").Activate

cc = False

If Cells(j, 1) = v Then
'ici, cells(j,i), à savoir cells(38,1) vaut 2008, et non pas "2008", donc il ne rentre pas dans
' la boucle ... Pourtant, je voudrais qu'il le fasse :s



Range(Cells(j, 2), Cells(j, 13)).Select
Selection.Copy
cc = True
End If

Sheets("CNQ").Activate

If cc = True Then
Cells(i + 4, 2).Select
ActiveCell.paste
End If


Next j

i = i + 6
Next i


Comment faire en sorte qu'il comprenne que 2008="2008" ?
J'espère avoir été clair, Meri d'avance pour votre aide

Excelement votre, Maxime.

2 réponses

rEVOLV3r Messages postés 223 Date d'inscription jeudi 12 août 2010 Statut Membre Dernière intervention 21 septembre 2022 28
10 juil. 2013 à 21:01
Bonjour

Je ne sais pas si c'est la solution mais j'essayerais :

v = Cells(i, 1).value
et
If Cells(j, 1).value = v Then

Si cela ne marche pas, vous pouvez mettre votre fichier sur cjoint histoire que j y jette un oeil.

bonne soiree
0
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
10 juil. 2013 à 21:29
Re,

Malheureusement, cette solution ne fonctionne pas.

Je vais mettre le fichier en ligne. Comment le mettre sur cjoint ?

Si j'ai trouvé d'ici votre réponse, je vous en tiens informé.

Merci, pareillement!
0
Bonjour,

Remplace v = cell(i,1) par v=val(cells(i,1))
0
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
Modifié par Maxxikilla le 10/07/2013 à 21:41
Parfait, ça fonctionne !!! Merci beaucoup ^^
0