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 soucisBonjour,
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
Dites au moins lesquelles. Vous pouvez aussi donner un exemple, ce sera plus explicite que votre habituel " Ca maaaarche po ! "il ne met pas les bonne course dans la feuil "mes jeux"
ça aurait du me mettre que çaRe,
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
uniquement les émoticones verteça aurait du me mettre que ça
je n'est rien comprisDonc vous détruisez tout ce qui en MesJeux ?
Sans précisions on met habituellement en fin de liste.
merci beaucoup la je doit juste cliquez sur "recopier dans mes jeux" c'est bien çaNouvelle version.
je viens de le faire ça marche merci beaucoupBen oui !
J'ai du mal à vous suivre.
Il vous suffit d'essayez. Vous changer quelques courses dans un fichier test et vous testez.