Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boucle à finir...

L

loulou

Guest
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
 
D

David

Guest
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
 
D

David

Guest
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
 
L

loulou

Guest
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....
 
M

Myta

Guest
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å
 
D

David

Guest
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
 
L

loulou

Guest
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

@+++
 
L

loulou

Guest
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
 

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
12
Affichages
663
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…