Version imprimable
bonjour,
j'ai un souci avec cette routine.la boucle tourne sans cesse.
merci de votre aide
cordialement
Code:
2
3
4
5
6
7
8
9
10
11
12
13
Bonsoir svedberg,
Il y a déjà une erreur :
Il manque un "End If" ici en bleuCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16Sub cotisations() Do If ActiveCell.Font.Bold = True Then ActiveCell.Offset(0, 1).Value = _ Range("B2") Else ActiveCell.Offset(0, 1).Value = _ Range("B1") End If ActiveCell.Offset(1, 0).Select If ActiveCell.Value = " " Then Exit Do End If Loop End Sub
Ensuite vérifiez que l'instruction suivante est la bonne :
" " = espaceCode:If ActiveCell.Value = " " Then
par contre
"" = rien ou vide
la différence peut être là.
SalutJ'utilise peu la boucle Do....Loop, à cause de son risque de passer en boucle infinie. Dans ce cas, où je le fais quand même, je préfère mettre un garde-fou, au cas ou ma sortie normale ne s'effectuerait pas correctementCode:
2
3
4
5
6
7
8
9
10
11
12
Comme dit jacques_jean, la première chose à effectuer est le contrôle de la valeur limite
Et le bon raisonnement de la fonction de la boucle en second : tout part de la cellule active et on la change certicalement
jacques_jean : manque pas de End If :
la forme la plus courament utilisée, c'est la multi-lignes (2me syntaxe):
If test Then
Vrai
Eles
Faux
Endif
Mais la première syntaxe reste valide :
If test then vrai else Faux
Par contre la macro présentée ne peut pas fonctionner,le premier test utilisant les 2 syntaxes => excel renvoie un code d'erreur, 'End If sans If'
Les indentation sont faites pour que d'un coup d'oeil, on sache dans quelle partie du programme on se situe : quand tu as des imbrications boucles, tests ou select case, c'est nécessaire.
A+
NB n'utilisant la première syntaxe que sur des tests simple, je n'ai pas vérifier si on pouvait multiplier les instructions :
if test then Vrai_1 : Vrai_2 else Faux_1 : Faux_2 : Faux_3
Même si c'est valide, le code en devient trop illisible pour que je l'utilise
elle est juste là, je confirmeCitation:
Envoyé par jaques_jean
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
Salut à tous
salut alsimbad : comment peux-tu être sur de ce que tu avances ?
Un exemple bête : 2 listes séparées par une case avec un espace. La première liste : une cotisation. La 2me une autre.
On peut imaginer un tas de raisons de disfonctionnement, mais pas affirmer.
Et la première raison est la sélection de la première cellule
A+
salut gorfael. restons calme.
le but du forum n'est pas d'avoir raison a tout prix, mais de répondre a la question dans le but d'aider svedberg, et donc encore moins de revoir son code sauf s'il le demande ou si il a une erreur manifeste. et donc sa question c'est
et la seul raison pour laquel sa boucle ne s'arete pas c'est qu'elle ne trouve pas de cellule contenant un espace donc une simple histoire d'écriture. " " au lieu de ""Citation:
Envoyé par svedberg
donc bonne réponse de jacques-jean, fin de la polémique.
bon week end
Bonjour Gorfael et Alsimbad,
Je ne voudrais pas contrarier Alsimbad qui a dit, je pense, avec raison : fin de la polémique.
Mais comme involontairement je suis un peu à l'origine de celle-ci je tiens quand même à préciser (et je le ferais croyez-moi même si j'avais tort et qu'Alsimbad l'avait confirmé).
A travers le code que nous a fournit Serdberg :
on ne peut que conclure que la fin de la boucle est de trouver, non pas une cellule commençant par un espace mais (on tenant de l'erreur supposée) une cellule ne contenant qu'un espace (alors qu'il paraît évident que la cellule devrait être vide).
Donc désolé Gorfael, mais je ne crois pas que votre hypothèse puisse être validée.
Encore une fois sans aucune polémique : "errare humanum est" d'après mes restes de latin que je n'ai jamais appris.
Amicalement.
Salut le forum
Si, si, j'aime bien paul et miquet :mrgreen:
C'était pas une critique (quoique), mais sûrement pas une attaque.
Je disais simplement que je préfère ta réponse :
" " = espace
par contre
"" = rien ou vide
la différence peut être là.
à celle d'alsimbad :
elle est juste là, je confirme
Aucun élément ne permet de le certifier (même si je pense comme vous deux que la solution est bien là). À force d'écumer les forums, je me suis aperçu que quelque fois (heureusement), la logique n'est pas forcément au rendez-vous.
Et comme alsimbad est plutôt du coté dépanneur que dépanné, il fallait qu'il ait un peu plus de doutes. Des fois, le problème est extérieur au code. Ne serait-ce que parfois, le code donné n'est qu'un extrait de la macro.
Mais effectivement, je n'avais sans doute pas à l'écrire, et je vous demande de m'en excuser.
J'attends de tous les intervenants dans un sujet où je réponds, que s'ils trouvent une imprécision ou une erreur (impossible ^^), ils me le signalent. Je suis encore (malheureusement) perfectible
A+
Merci à tous de vous être casser la tête sur mon problème.
J'ai remercié JACQUES François mais je me suis rendu copte qu'il y e avait d'autres
Encore une fois merci
Cordialement
Thierry