Macro de récupération de données d'un onglet à un autre

[Nnaks]

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:

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

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.

 

[roro69]

Re : Macro de récupération de données d'un onglet à un autre

Bonjour

ActiveSheet.Name = c.Value

N'y aurait t'il pas un accent dans la dénomination de l'onglet 24
A++

 

[Nnaks]

Re : Macro de récupération de données d'un onglet à un autre

Bonjour roro69,

Non, il n'y en a aucun sur cet onglet ni sur les onglets précédents.

Y aurait il un autre facteur qui pourrait poser problème?

Merci

 

[roro69]

Re : Macro de récupération de données d'un onglet à un autre

Re
Dans le code otez la ligne

On Error Resume Next

Et voir ensuite l'erreur génerer
A++
Ps :Mettre un petit bout de fichier pour voir

 

[JNP]

Re : Macro de récupération de données d'un onglet à un autre

Bonjour le fil 🙂,
Nommer des onglets d'après les cellules n'est pas toujours une bonne idée, surtout sans contrôle 🙄...
Déjà, pourquoi ne pas utiliser temp qui est déjà défini et converti en texte 😛 ?

ActiveSheet.Name = temp

Ensuite, n'y a t-il pas une cellule vide ou contenant des caractères interdits 😱 ?
Sans le fichier, difficile d'en dire plus 🙄...
Bon courage 😎

 

[Robert]

Re : Macro de récupération de données d'un onglet à un autre

Bonjour Nnaks, bonjour le forum,

Peut-être comme ça :

Sub Extrait()
Dim f As WorkSheet
Dim c As Range
Dim temp As String
 
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)
    Application.DisplayAlerts = False
    Sheets(temp).Delete
    If Err > 0 Then Err = 0
    Application.DisplayAlerts = True
    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
Application.ScreenUpdating = True
End Sub

[Édition]
Bonjour Roro, JNP, on s'est croisé

 

[Nnaks]

Re : Macro de récupération de données d'un onglet à un autre

Bonjour à tous et merci pour vos réponses,

Pour répondre à JNP, il n' y a aucune cellule vide et aucun caractère interdit. Ce sont tous des caractères en format texte.
A Robert, j'ai essayé avec ton code mais il présente exactement le même problème au même endroit :/

J'aurai aimé vous mettre en pj le fichier sauf que ce dernier pèse plus de 50 Mo.

Si vous pensez avoir une autre idée, je suis preneur car ce problème me bloque depuis maintenant 2 jours 🙁

Je vous remercie enormément pour votre aide.

 

[Nnaks]

Re : Macro de récupération de données d'un onglet à un autre

Si ça peut aider, le message d'erreur est le suivant

Erreur d'execution '1004':
La méthode Copy de la classe WorkSheet a échoué.

??? Help 🙁

 

[Yaloo]

Re : Macro de récupération de données d'un onglet à un autre

Bonjour tout le monde,

@Nnaks : Allèges ton fichier au maximum, mais en laissant les données relatives à tes copies.

Il doit y avoir qq chose dans le nom ou le nb de caractère (supérieur à 31) etc....