Boucle à finir...

[loulou]

salut le forum

Dans ma macro, lors de l'execution, ma macro reste en mode execution.
apres appui sur escape, le resultat est bien celui recherché.
comment faire pour finir cette macro?

Sub maMacro()
Sheets("CALENDRIER").Select
PC = Range("C2").End(xlDown).Row
On Error Resume Next
x = 3
For i = 2 To PC
MonPC = Cells(i, 3)
Do While MonPC >= Cells(x, 3)
Sheets("CALENDRIER").Cells(i, 81) = "OUI"
If Err = 1004 Then GoTo Suite
x = x + 1
Loop
Suite:
Next
Range("A1").Select
End Sub

comme je debute en VbA, j'ai besoin d'aide, ras le bol de ramer, ramer...

merci d'avance à tous

 

[David]

Salut
Quelle est la valeur de i ?
si elle n'est pas donnée elle est égal à zéro
donc ta condition est toujours >= a ton test x partant de trois
et étant incrémenter par ta boucle
A+
G.David

 

[David]

s'cuze j'ai pas tout afficher
quelle est ta valeur en C2

 

[David]

Ouais j'avais pas tout lu (j'ai un micro mais c'est les crans)
j'ai retapé ta macro le oui apparait sans problème et la macro ne reste pas bloquée j'ai juste remplacé sheets("calandrier") par sheets(1) ce qui na porte pas à conséquence et le nom de ta macro par macro1 par cntre il m'a fallut du temps pour trouver que tu expédiais ta réponse dans la colonne CC (81) je l'ai rapproché en cells(i,4) et ça marche OK
G.David

 

[loulou]

salut David

merci pour tes conseils

en faisant les changements indiqués, le résultat est toujours le même
chez moi!!!

je vais ramer encore un peu...


merci encore....

 

[Myta]

Salut loulou et David

Ta boucle fonctionne loulou mais elle n'arrete que lorsque x=65537

Faudrait plutot savoir qu'est ce que tu veux vraiment faire comme traitement

pour cela tu sembles croire que ta boucle ne fonctionne pas

A suivre Mytå

 

[David]

Myta,Loulou
l0 je dois dire que jy entrave quedalle les changements que j'ai fait je les ai appliqué sur une colonne se bloquant à la ligne 21 ; i et x s'arrêttent en fin de boucle à 22 tous les deux par contre ma premier valeur en c3 étant 12 seule les valeurs inferieures ont étaient marquée d'un OUI c'est bien ce que tu voulait obtenir ? je redèmarre XL et je te zip le fichier sur le site (avec mon PC à vapeur il me faudra un treizaine de minutes )
A+
G.David

 

[David]

bon je te joins le fichier
putain je le connais mon PC pile 13 minutes
A+
G.David

 

[loulou]

Myta, David


dans ma colonne C, j'ai des codes qui peuvent varier d'un mois à l'autre
(1à350 codes environ). c'est pour cela que PC=Range("C2").End(xldown).Row

si un code est unique alors oui; s'il y en a plusieurs d'identique, le 1er
prend la valeur oui.

effectivement ma boucle va jusqu'à la ligne 66536.
je vais essayer en testant la colonne en remontant( ça me vient en écrivant le message)

je rame, mais comme je suis maso , ça me plait tout de même de me creuser la tête!!!

bon appetit à vous deux et aux autres

@+++

 

[loulou]

David,

merci pour ton fichier zip.
je l'ai testé et maintenant ça marche.
je cesse donc de ramer, jusqu'à la prochaine....

ma boucle est bouclée...et je te souhaite, une bonne soirée!!!

@ +++

loulou