Bonjour chers amis internautes,
Je viens vers vous aujourd'hui car j'ai un souci avec une macro qui a pour but de copier les données d'une feuille source et de les coller dans les onglets spécifique au critère défini. Le seul souci, c'est que cette dernière s'arrête sans raison au 24eme onglet et je ne comprend pas pourquoi elle na va pas jusqu'au bout.
Pourrier vous m'aider s'il vous plait?
Je vous copie le code VBA en question:
Ou pensez vous qu'il y a un problème qui bloque le déroulement de la macro?
Je vous remercie d'avance pour votre aide.
Je viens vers vous aujourd'hui car j'ai un souci avec une macro qui a pour but de copier les données d'une feuille source et de les coller dans les onglets spécifique au critère défini. Le seul souci, c'est que cette dernière s'arrête sans raison au 24eme onglet et je ne comprend pas pourquoi elle na va pas jusqu'au bout.
Pourrier vous m'aider s'il vous plait?
Je vous copie le code VBA en question:
Code:
Sub Extrait()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set f = Sheets("V15")
'--- Liste des travées
For Each c In f.Range("AF11", f.[AF65000].End(xlUp)) ' pour chaque travée
On Error Resume Next
temp = CStr(c.Value)
Sheets(temp).Delete
On Error GoTo 0
Sheets("Tab. Type").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
'-- extraction
ligne = 6
For I = 11 To f.[AD65000].End(xlUp).Row
If CStr(f.Cells(I, "AD")) = temp Then
Cells(ligne, "A") = f.Cells(I, "AD")
Cells(ligne, "J") = f.Cells(I, "H")
Cells(ligne, "I") = f.Cells(I, "G")
ligne = ligne + 1
End If
Next I
Next c
End Sub
Je vous remercie d'avance pour votre aide.