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 -
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.
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:
- Boucle IF - Condition non reconnue
- Cle usb non reconnue - Guide
- Excel cellule couleur si condition texte - Guide
- Logiciel réparation clé usb non reconnue gratuit - Télécharger - Récupération de données
- Excel condition ou - Guide
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
2 réponses
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
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