XL pour MAC Transfert de données

sylvanu à dit:

Bonjour,
Un essai en PJ avec la macro :

VB:

Sub Transferer()
    Application.ScreenUpdating = False
    DLMesJeux = 1 + Sheets("Mes Jeux").Range("C65500").End(xlUp).Row
    DLFin = Range("C65500").End(xlUp).Row
    For Ligne = 5 To DLFin
        If Cells(Ligne, "M") = "J" Then
            Sheets("Mes Jeux").Range("C" & DLMesJeux & ":H" & DLMesJeux) = _
            Range("C" & Ligne & ":H" & Ligne).Value
            DLMesJeux = DLMesJeux + 1
        End If
        With Sheets("Mes Jeux")
            .Range("C4:H4").Copy
            .Range("C4:H" & DLMesJeux - 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With
    Next Ligne
End Sub

Cliquez pour agrandir...

amelie75 à dit:

il ne met pas les bonne course dans la feuil "mes jeux"

Cliquez pour agrandir...

sylvanu à dit:

Re,
Suaf si je n'ai rien compris, toutes les courses ayant un émoticône vert est bien recopié à la fin de la liste de MesJeux.

Dites au moins lesquelles. Vous pouvez aussi donner un exemple, ce sera plus explicite que votre habituel " Ca maaaarche po ! "
Regarde la pièce jointe 1142626
Regarde la pièce jointe 1142627

Cliquez pour agrandir...

amelie75 à dit:

ça aurait du me mettre que ça

Cliquez pour agrandir...

sylvanu à dit:

Donc vous détruisez tout ce qui en MesJeux ?
Sans précisions on met habituellement en fin de liste.

Cliquez pour agrandir...

sylvanu à dit:

Nouvelle version.

Cliquez pour agrandir...

sylvanu à dit:

Ben oui !
J'ai du mal à vous suivre.
Il vous suffit d'essayez. Vous changer quelques courses dans un fichier test et vous testez.

Cliquez pour agrandir...