XL pour MAC Transfert de données

[amelie75]

Bonjour, encore besoin de votre aide
comment faire pour transférer les courses de la Feuil "Fin" uniquement celle avec des émotionne vert
comme l'exemple sur la feuille "mes jeux"
merci d'avance pour votre aide

 

[sylvanu]

Bonjour,
Un essai en PJ avec la macro :

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

 

[amelie75]

Bonjour,
Un essai en PJ avec la macro :

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

Bonjour il y a un soucis
je vous renvois le fichier il ne met pas les bonne course dans la feuil "mes jeux"

 

[sylvanu]

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.

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

Dites au moins lesquelles. Vous pouvez aussi donner un exemple, ce sera plus explicite que votre habituel " Ca maaaarche po ! "

 

[amelie75]

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

ça aurait du me mettre que ça

 

[amelie75]

ça aurait du me mettre que ça

uniquement les émoticones verte

 

[sylvanu]

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

 

[amelie75]

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

je n'est rien compris

 

[sylvanu]

Nouvelle version.

 

[amelie75]

Nouvelle version.

merci beaucoup la je doit juste cliquez sur "recopier dans mes jeux" c'est bien ça

 

[sylvanu]

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

 

[amelie75]

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

je viens de le faire ça marche merci beaucoup
belle journée