XL 2016 Boucle sur plusieurs feuilles

[KTM]

Bonsoir chers tous
ma macro ci dessous de fini jamais de s’exécuter. Que Faire ?

Sub Reinitialiser_RM()
Dim cel As Range, i As Long, T, Lig As Variant

Application.ScreenUpdating = False
    For i = 51 To 100
       With Worksheets(i)
       .Activate
       If .Range("L1") <> "" Then
If Sheets("Menu").Range("C10").Value > Sheets("Menu").Range("D10").Value Then
      .Range("R10:AC240").ClearContents
      Sheets("VD").Range("K8:V238").ClearContents
End If
             .Range("C243").Value = .Range("C247").Value
             .Range("D10:D240").Value = .Range("I10:I240").Value
             .Range("L10:L240").Value = .Range("K10:K240").Value
             .Range("K10:K240").Value = .Range("F10:F240").Value
          
            For Each cel In .Range("D10:D240,K10:L240")
If IsNumeric(CStr(cel)) Then cel.FormulaLocal = "=" & cel Else cel.Formula = "=""" & cel & """"
            Next cel
           .Range("G3:I3,F10:H240,J10:J240") = ""
           End If
           End With
Next i
End Sub

 

[mapomme]

Bonsoir @KTM,

Après la ligne For i = 51 To 100 ajouter l'instruction :
Application.StatusBar = "Feuille : " & i & " / " & 100

Après la ligne Next i ajouter l'instruction :
Application.StatusBar =False

Puis lancer votre macro. La barre de statut (en bas à gauche) devrait afficher la succession des feuilles en cours de traitement.

Qu'en est il pour vous ?

 

[KTM]

Bonsoir @KTM,

Après la ligne For i = 51 To 100 ajouter l'instruction :
Application.StatusBar = "Feuille : " & i & " / " & 100

Après la ligne Next i ajouter l'instruction :
Application.StatusBar =False

Puis lancer votre macro. La barre de statut (en bas à gauche) devrait afficher la succession des feuilles en cours de traitement.

Qu'en est il pour vous ?

Merci
Mais mon problème est que ma macro tourne sans fin.

 

[mapomme]

Qu'en est il pour vous ?

Qu'affiche donc votre barre d'état ?
Voyez-vous défiler les numéros de feuille ?

Bonjour @job75

 

[job75]

Bonjour KTM, mapomme,

Mais mon problème est que ma macro tourne sans fin.

Il y a probablement une ou plusieurs macros Worksheet_Change.

Donc encadrer le code avec les Application.EnableEvents = False/True.

A+

 

[KTM]

Qu'affiche donc votre barre d'état ?
Voyez-vous défiler les numéros de feuille ?

La macro est associée à un bouton commande sur un userform qui s"affiche plein écran

 

[KTM]

La macro est associée à un bouton commande sur un userform qui s"affiche plein écran

Je fais le test sans le userform pour voir les feuilles défilées mais je me rends compte que la macro reste bloquée sur la première feuille. (51)

 

[mapomme]

Je fais le test sans le userform pour voir les feuilles défilées mais je me rends compte que la macro reste bloquée sur la première feuille. (51)

Il reste la piste de @job75.

 

[KTM]

Il reste la piste de @job75.

Aucun changement.
50 feuilles à traiter seraient trop?

 

[mapomme]

50 feuilles à traiter seraient trop?

A priori, vous ne faites pas des choses extraordinaires...

Sans le fichier, ça va être difficile de voir ce qui perturbe le fonctionnement.

 

[KTM]

A priori, vous ne faites pas des choses extraordinaires...

Sans le fichier, ça va être difficile de voir ce qui perturbe le fonctionnement.

JE me suis rendu compte que c'est ce bout de code qui pose probleme. je l'ai supprimé et tout baigne

For Each cel In .Range("D10:D240,K10:L240")
If IsNumeric(CStr(cel)) Then cel.FormulaLocal = "=" & cel Else cel.Formula = "=""" & cel & """"
Next cel