Discussion :

[matysek]

Bonjour, je demande l'aide bienveillante d'un spécialiste pour m'aider à résoudre ce petit problème qui m'est posé en précisant ci- dessous le contexte d'utilisation avec ses bons et mauvais résultats et l'extrait de la macro concernée. En vous remerciant d'avance de ce qu'il faut modifier.

Fonctionnement de la macro :
1* Etat initial : Itcl=12 (configuration de max.itérations par une autre macro ou manuellement)

2* Texte placé en B8 : max.itérations à 200 par sub ItEcl ; c’est conforme

Durant l’incrémentation des itérations Itcl=200 …
3* …Texte retiré en B8 : max.itérations toujours à 200 ; Itcl toujours à 200 (C’est non conforme) alors que sub It0cl devrait configurer max.itérations à 10

Le seul moyen d’obtenir ce résultat (max.itérations à 10) est d’exécuter la macro par le triangle vert alors que la macro devrait tourner en boucle y compris durant l’incrémentation des itérations.
Comment obtenir cette reconfiguration de max.itérations à 10 ?

Extrait de la Macro concernée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_Calculate()
Dim Itcl As String
Itcl = Application.MaxIterations ‘Nbre maxi d’itérations actuelles configurées              

 If Range("B8").Value = "" And Itcl > 50 Then ‘Texte retiré dans Cellule B8 et maxi itérations configuré >50
               	 It0cl ‘Configurer le maxi d’itérations à 10 (valeur 10 en BE1)
 End If

If Range("B8").Value <> "" Then ‘Texte écrit dans Cellule B8

       		 ItEcl ‘Configurer le maxi d’itérations à 200 (valeur 200 en BF1)
End If
End Sub
--------------------------------------------------------------------------------
Sub ItEcl()
            With Application
                	Application.EnableEvents = False
                	 .Iteration = True
                 	.MaxIterations = Range("BF1").Value 'maxi d’itérations à 200 (valeur 200 en BF1)
               	 Application.EnableEvents = True
            End With
End Sub
---------------------------------------------------------------------------------
Sub It0cl()
            With Application
                	Application.EnableEvents = False
               	 .Iteration = True
               	 .MaxIterations = Range("BE1").Value 'maxi d’itérations à 10 (valeur 10 en BE1)
               	 Application.EnableEvents = True
            End With
End Sub

[Gfacro]

le code a l'air de fonctionner correctement.


Le souci est dans ce qui est expurgé du code cité.
Dans un cas comme ça met des points d'arrêts pour voir ce qui se passe, les valeurs trouvées.

vérifier si B8 est bien vide, le nombre d'itération trouvé.

Passe par debug.print en fin de procédure pour ne pas changer tes objets actifs et pouvoir surveiller ce qui se passe

en concatenant itcl, range("B8").value et application.maxiterations




"Le seul moyen d’obtenir ce résultat (max.itérations à 10) est d’exécuter la macro par le triangle vert alors "
1/ resultat 10 :itcl est peut etre inférieur ou égal à 50 et du coup la macro n'entre pas dans le if
2/ le triange vert : quand ça marche ou ne marche plus avec le triangle vert, c'est certainement que le code fait appel à des objets par défaut (actifs, sélectionnés) au lieu de les forcer. Du coup passer dans le vbe et revenir dans la fenêtre réactive/redéfini les objets sélectionnés.

Tu gagneras en fiabilité de développement a faire call itEcl, à affecter ta feuille active en début de traitement et à y faire appel, ...
On voit que le code est assez aléatoire, désolé pour le terme, mais faire application.enableevents dans un with application c'est l'effet que ça me fait, ainsi que le fait de désactiver les événements pour réaliser des instructions qui ne me semblent pas générer d'événement ... Même si le code a été purgé et qu'il y avait une raison à faire cela ainsi, en supprimant ces lignes de code, ces instructions auraient du être supprimées aussi.

[unparia]

Bonjour
Je lis :

Code :

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

Dim Itcl As String

Il se trouve que la chaîne de caractères (donc) "200" est < que la chaîne de caractères "50"
200 est > 50. Mais ni 200, ni 50 ne sont des chaînes de caractères, mais des numériques. ta variable Itcl est à typer correctement.

[matysek]

Merci de vos précieux conseils
Je regarde cela avec précision et je vous tiens au courant très vite.