Re : Copier lignes dans une autre feuille en fonction des données d'une colonne
Re bonjour,
Je viens de faire le test sur un autre fichier et j'ai une ligne de bug qui correspond a celle-ci (en rouge) quand je transpose sur le fichier :
Private Sub Bouton1_Cliquer()
Dim Ws As Worksheet
'pour une exécution plus rapide et la suppression de scintillements à l'écran
Application.ScreenUpdating = False
'pour chaque onglet du fichier
For Each Ws In Worksheets
'début de la condition : si le nom de l'onglet est différent de "Feul3"
If Not Ws.Name Like "total tickets" Then
DerL = F3.Cells(65536, 1).End(xlUp).Row
DerL_Ws = Ws.Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To DerL
'MsgBox UCase(F3.Cells(i, 7))
If UCase(Ws.Name) = UCase(F3.Cells(i, 7)) Then
F3.Rows(i).Copy Ws.Rows(DerL_Ws)
DerL_Ws = DerL_Ws + 1
End If
Next i
End If
'onglet suivant
Next Ws
Application.ScreenUpdating = True
End Sub
Est-ce que vous pouvez me dire à quoi ça correspond par rapport au fichier Excel que je joint à ce sujet ?
Merci d'avance pour votre retour