Discussion :

[baz41]

Bonjour...

Quelqu'un a-t-il une idée de pourquoi l’exécution sort de ma boucle sur ce code :

cible est initialisée correctement avec Application.Selection (visuel sur l'espion)
cell prend bien les cellules consécutivement (si je substitue la ligne de code par un msgbox, ca marche)
Quand j’exécute ceci, il y a interruption du traitement suite à la première modif d'indentation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Application.EnableEvents = False
    Dim cell As Range
    For Each cell In cible
        If (cell.IndentLevel > 0) Then
            cell.IndentLevel = cell.IndentLevel - 1
        End If
    Next cell
    Application.EnableEvents = True

[Marc-L]

Bonjour,

non car il n'y a aucune instruction de sortie de boucle dans ce code !

Cela nécessite certainement une explication claire & exhaustive …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[baz41]

Et c'est bien la le problème...

Excel me fait bien le premier décalage et puis plus rien, comme si le traitement avait été correctement effectué sauf que :

• cible contient bien plusieurs cellules (propriété Cells.Count correct)
• à l’exécution pas à pas, il n'y a même pas de sortie de boucle. IndentLevel est la dernière instruction parcourue

Certainement une raison bête... mais laquelle?

[Marc-L]

Oui certainement !

Comme une malheureuse conception en amont dans le code et un manque de vérification de la part de son auteur …

[baz41]

Et a part des sarcasmes, une réponse constructive?

[Marc-L]

Merci de ne pas citer l'intégralité du post juste précédent, aucun intérêt à part nuire à la lisibilité !

Sinon n'ayant pas de temps à perdre en conjecture, c'était une p'tite piqure de rappel des règles du forum,
à savoir une présentation initiale digne de ce nom, claire & exhaustive, accompagnée du code complet …

Sans cela, n'ayant plus de boule de cristal, comment deviner ?‼
La qualité des réponses dépendant de celle de la question …

[RyuAutodidacte]

Hi,
Je ne vois aucun sarcasmes, par contre à 1ère vu le code à l'air correct,
mais ne connaissant pas la structure de tes données, il n'y que toi qui peut faire cette rectification.

Bon je me suis fais devancé, par ta réponse Marc

Donc oui, des explications claires et exhaustives sont important quand on vient exposer son problème.
J'ai jamais utilisé indentlevel en vba, mais à tout hasard n'aurais tu pas de cellules fusionnées. Car en vba c'est pas l'idéal. Je ne sais si ça joue, donc à vérifier.

Edit : Testé : Cellules fusionnées ça marche

Donc il faudra en savoir plus …

[baz41]

Bonjour,

Oui le code tel quel fonctionne sur une feuille Excel nouvelle... Ma question était la suivante : qu'est ce qui peut provoquer une sortie de la boucle (et meme pire, de la sub) dès la fin de l’exécution du premier IndentLevel sans erreur (j'ai ajouté un On error pour vérifier)
Donner plus de code m'est impossible, il est sous le sceau de la confidentialité


Cordialement

[joe.levrai]

Bonjour,

ton code vient de réaliser du calcul quantique en itérant une récursion égale au double d'une pile d'appel standard ?

non je ne pense pas ... donc il n'y a rien de confidentiel dans ton code

en revanche, il peut contenir des parties hardcodées avec des "mots" qui pourraient trahir la confidentialité de tes données d'entreprises, et c'est ça qu'il faut simplement trafiquer pour mettre des autres valeurs.

[RyuAutodidacte]

Re,
C'est bien ce que l'on disait, sans aucun éléments supplémentaires, il nous est impossible de savoir le pourquoi du comment. Désolé mais on est pas devin, on s'appuie sur des données et des informations pour cerner un problème.
Par analogies et en exagérant, c'est un peu comme si je te demandais ce qu'il y a au bout d'un trou noir??
Et la idem impossible de répondre, tu n'as pas les informations.
La seule chose à faire et que tu testes ton fichier quitte à le refaire sur un nouveau document.

Edit : dans le cas où tu sors de ta boucle sans aucune raison, je suppose (peut-être) que le code est lu juste après ta boucle, dans ce cas mets un code supp après ta boucle permettant de récupérer la dernière valeur valide afin de situer le problème (n'hésite pas à le refaire plusieurs fois) et bien sûr utiliser aussi le pas à pas qui peut être d'une grande aide.

[Ben_L]

Bonjour,

J'ai en toute honnêteté un peu honte de proposer une solution pareille, car quand un problème survient rien n'est pire que de le contourner sans le comprendre...
Mais la raison probable derrière votre problème est l'utilisation d'une boucle For Each. Pour une raison que j'ignore, Excel pense avoir fini dès qu'il a traité la première cellule.
Le contournement le plus évident est d'écrire une boucle explicite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    For i = 1 To cible.Rows.Count
        For j = 1 To cible.Columns.Count
            If (cible(i,j).IndentLevel > 0) Then
                cible(i,j).IndentLevel = cible(i,j).IndentLevel - 1
            End If
        Next j
    Next i

Mais comme dit précédemment, mieux vaut comprendre ce qu'il se passe plutôt que de contourner le problème...

[joe.levrai]

si au moins nous avions en visu la construction de la variable cible ?

en dépit, je ne peux que proposer d'ajouter la propriété .Cells sur ta ligne For Each Cell in Cible.Cells

[baz41]

cible est initialisée correctement avec Application.Selection (visuel sur l'espion)

La seule chose à faire et que tu testes ton fichier quitte à le refaire sur un nouveau document.

Oui c'est fait, d'ou ma remarque précédente sur le fait que le code en lui même marche.

dans le cas où tu sors de ta boucle sans aucune raison, je suppose (peut-être) que le code est lu juste après ta boucle, dans ce ca mets un code supp après ta boucle permettant de récupérer la dernière valeur valide afin de situer le problème (n'hésite pas à le refaire plusieurs fois) et bien sûr utiliser aussi le pas à pas qui peut être d'une grande aide.

Le pas à pas s’exécute jusqu'au premier passage sur cell.IndentLevel = cell.IndentLevel - 1 puis plus rien comme si l’exécution était terminée.

Je recherche ce qui dans le nombre de lignes de code présent inhibe la continuation de ce petit bout de code insignifiant...

@joe.levrai pas quantique mais nucléaire...

[unparia]

Bonjour
Aux seuls intervenants autres que le demandeur et en particulier à joe.levrai, qui a écrit de manière fort justifiée :

Quand j’exécute ceci, il y a interruption du traitement suite à la première modif d'indentation.

Ajoutez-y ceci :
Si au moins le demandeur, qui a écrit :

Quand j’exécute ceci, il y a interruption du traitement suite à la première modif d'indentation.

avait eu la sagesse d'exposer (conformément aux règles de ce forum) comment se manifestait cette interruption .. (message d'erreur ? autre ? et quoi ?)
Je ne pense pas que la construction de la plage cible soit de nature à provoquer une "interruption", dès lors que les cellules sont toutes vues, puisque :

si je substitue la ligne de code par un msgbox, ca marche)

Il faut donc conclure que le problème est ailleurs. Où ? nul ne peut le deviner sans connaître tous les tenants (que le demandeur ne veut pas communiquer) et les aboutissants.

EDIT : et voilà que nous lisons maintenant :

Le pas à pas s’exécute jusqu'au premier passage sur cell.IndentLevel = cell.IndentLevel - 1 puis plus rien comme si l’exécution était terminée.

ce qui n'est pas une "interruption".
Rappelons que la propriété IndentLevel ne "bronche" pas si on la diminue de 1 alors qu'elle est à 0. Elle reste tout simplement à 0, sans erreur.

[baz41]

Merci de cette intervention fort claire... Mais mon indent de depart est de 5 donc 5-1 = 4 ce qui est fait...
au moment de passer à la cellule du dessous, plus rien ne se passe puisqu'en pas à pas, plus aucune instruction n'est surlignée.

[unparia]

Testé chez moi avec plusieurs constructions d'une plage cible (de cellules contigües ou non). -->> pas de problème
La cause de l'erreur est donc à chercher ailleurs (où ? Le demandeur est le seul à connaître les "imbrications", "autres interventions", etc ... éventuelles.)

[Ben_L]

La solution proposée dans le lien ci-dessous vous permet-elle de résoudre le problème ?
http://stackoverflow.com/questions/2...as-been-halted

[Marc-L]

Le problème provient certainement du code en amont et même si nous nous doutons fort bien de la source
(en tout cas joe, Ryu, unparia et moi / déjà en lisant le post #8 !) nous en restons au niveau de la présentation
tant que le minima pourtant indiqué dans les règles du forum n'est pas respecté !

Présentation médiocre, réponse du même acabit ou même pas de réponse du tout …
Explication correcte accompagnée du code complet, bien plus de chances d'obtenir une solution !
Sinon il faut plutôt parcourir les forums de devins, magiciens, tireurs de cartes, etc …

[unparia]

Remarques matinales :
- le demandeur nous montre un bout de code qu'il "exécute", mais sans nous dire dans quelle procédure figure ce code.
- il y inhibe les évènements.
Pourquoi ?

On pourra comprendre mon étonnement, dès lors que le fait de modifier le retrait ne déclenche en soi aucun évènement de la feuille.
Nonobstant, le demandeur a jugé utile d'inhiber ces évènements et je veux croire qu'il ne l'a pas fait "juste pour le plaisir de le faire". Il aurait donc des raisons qu'il est seul à connaître de penser qu'un évènement (lequel ?) pourrait se déclencher pendant sa boucle et contrecarrer ses actions ? Quel est alors cet évèvement et quel est le code de la procédure évènementielle qui le concerne ?