XL 2016 Boucle sur plusieurs feuilles

KTM · 14 Juin 2020

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

VB:

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 · 14 Juin 2020

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 · 15 Juin 2020

mapomme à dit:
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 · 15 Juin 2020

mapomme à dit:
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 · 15 Juin 2020

Bonjour KTM, mapomme,

KTM à dit:
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 · 15 Juin 2020

mapomme à dit:
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 · 15 Juin 2020

KTM à dit:
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 · 15 Juin 2020

KTM à dit:
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 · 15 Juin 2020

mapomme à dit:
Il reste la piste de @job75.

Aucun changement.
50 feuilles à traiter seraient trop?

mapomme · 15 Juin 2020

KTM à dit:
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 · 19 Juin 2020

mapomme à dit:
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

VB:

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

XL 2016 Boucle sur plusieurs feuilles

KTM

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires