Macro sur plusieurs feuilles
Bonsoir chers tous
Ma macro ci dessous ne fini jamais de s’exécuter . Je voudrais savoir pourquoi et corriger . Merci
Sub RM()
Dim i As Long, cel As Range
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
Bonjour KTM le forum
je ne sais pas ce qui est dans tes feuille de 51 à 100 mais
si la cellule L1 est différente de vide, tu traites pour toutes les feuilles la feuille Menu et la feuille VD
donc en gros tu traites la même chose au moins 49 fois et la recopie ensuite ma parait bizarre
mais sans fichier impossible de te modifier cela , et aussi ton activate ne sert à rien
a+
Papou
Bonjour KTM le forum
je ne sais pas ce qui est dans tes feuille de 51 à 100 mais
si la cellule L1 est différente de vide, tu traites pour toutes les feuilles la feuille Menu et la feuille VD
donc en gros tu traites la même chose au moins 49 fois et la recopie ensuite ma parait bizarre
mais sans fichier impossible de te modifier cela , et aussi ton activate ne sert à rien
a+
Papou
je me suis rendu compte que ce bout de code 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