Boucle IF - Condition non reconnue

Résolu
Maxxikilla Messages postés 40 Date d'inscription   Statut Membre Dernière intervention   -  
Maxxikilla Messages postés 40 Date d'inscription   Statut Membre Dernière intervention   -
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.

A voir également:

2 réponses

rEVOLV3r Messages postés 223 Date d'inscription   Statut Membre Dernière intervention   28
 
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   Statut Membre Dernière intervention  
 
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
WeaponEDGE
 
Bonjour,

Remplace v = cell(i,1) par v=val(cells(i,1))
0
Maxxikilla Messages postés 40 Date d'inscription   Statut Membre Dernière intervention  
 
Parfait, ça fonctionne !!! Merci beaucoup ^^
0