IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Copier coller les valeurs de ligne [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut Copier coller les valeurs de ligne
    Bonjour,

    Dans un tableau nommé "ORDINATEUR", je cherche à copier coller les valeurs d'une ligne si cette dernière est renseignée en colonne X.

    Voici mon code mais je bloque au niveau de la sélection des lignes dont la colonne X est ou non renseignée à ârtir de la ligne 11 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Option Explicit
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    'Copie et colle les valeurs de la ligne entière si la date de clôture est renseignée (colonne X)
    Dim rng As Range
    Me.Unprotect "1234"
    ' La variable KeyCells contient la colonne (Ici X) qui déclenchera  le "Copier/Coller les valeurs" si elle est renseignée.
    Set rng = Range("X:X")
    If Not Application.Intersect(rng, Range(Target.Address)) Is Nothing Then
     
    'Sélection du tableau "Ordinateur"
        Application.Goto Reference:="Ordinateur"
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                             , SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                        :=False, Transpose:=False
     
    End If
    Me.Protect "1234"
    End Sub
    Quelqu'un peut il m'aider pour que mon code fonctionne ?

    Cordialement.

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    bonsoir
    je suis débutant et je peux pas adapter ton code
    pour moi si je veux envoyer ligne entière autre feuille selon condition je fais comme suit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Sub test()
    ' nétoyer feuille 2 qui recevera les données
    Sheets("feuil2").Cells.Clear
     
    'copier si la colonne x est non vide
     
    Dim i As Long
    Dim k As Integer
    k = 1
    With Sheets("feuil1") 'ici données en feuil1 à adapter si nécessaire
    i = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To i
    If .Cells(i, 24) <> "" Then
      .Cells(i, 1).EntireRow.Copy
       Sheets("Feuil2").Activate
       Sheets("Feuil2").Cells(k, 1).Select
       ActiveSheet.Paste
        k = k + 1
        End If
    Next i
    End With
    End Sub
    j'espère que ça te résoudre le problème
    si non bonne soirée

  3. #3
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par graphikris Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Not Application.Intersect(rng, Range(Target.Address)) Is Nothing Then
    Petite rectification liminaire : Range(Target.Address), c'est un peu comme si tu appelais quelqu'un au téléphone pour lui demander son numéro de téléphone.
    Ca peut se simplifier ainsi :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Not Application.Intersect(rng, Target) Is Nothing Then
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        Application.Goto Reference:="Ordinateur"
    Je pense que cette partie est inutile.
    Il suffit de faire un Range("Ordinateur") pour accéder aux données de ton tableau dans ton code.
    La logique de VBA n'est pas la même que celle d'une utilisation classique d'Excel. Inutile (dans 99% des cas) de sélectionner une cellule pour utiliser ce qu'elle contient ou la modifier.

    Pour vérifier toutes les lignes de ton tableau, il faudra faire une boucle.
    La plus simple est un For To sur le nombre de lignes du tableau (même s'il serait plus efficace de faire un For Each sur toutes les cellules non vides de la colonne X en utilisant un SpecialCells).
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim Ligne As Long
    For Ligne = 1 To Range("Ordinateur").Rows.Count
     
    ... le code ...
     
    Next Ligne
    Pour le test, il suffira de faire un If en vérifiant le contenu de la cellule souhaitée.
    Par exemple, si tu veux tester la colonne 5 du tableau :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Range("Ordinateur").Cells(Ligne, 5).Text = "" Then
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
        Selection.PasteSpecial Paste:=xlPasteValues
    Là, tu fais un collage sans avoir fait de copie. Ca ne peut pas marcher.
    Mais comme dans ta demande tu n'indiques pas où tu veux coller, difficile de t'aider plus.

  4. #4
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Bonjour,

    Je veux faire le collage spécial sur la même ligne que celle testée.
    Si X2 est rempli (date de destruction) alors le collage spécial se fait sur la ligne 2
    Si X45 est rempli (date de destruction) alors le collage spécial se fait sur la ligne 45
    En fait je veux que les formules de la ligne dont la colonne X est remplie devienne une ligne avec des valeurs.
    Cordialement.

  5. #5
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Dans mon post précédent, tu as tous les éléments pour le faire.

  6. #6
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Bonjour Menhir,
    J'ai suivi tes explications mais ça ne fonctionne pas.
    De plus dans ce code (ligne 13) je lui ai dit que si le texte etait "OK" mais en fait c'est pas OK mais une date (je ne sais pas comment lui dire en vba)
    Toujours dans mon code aux lignes 14, 15 et 16 je lui dit de sélectionner et copier la ligne A2 à AA2 mais en fait je ne dois pas lui dire, c'est a la macro de savoir quelle colonne sélectionner.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Option Explicit
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    'Copie et colle les valeurs de la ligne entière si la date de clôture est renseignée (colonne X)
        Dim rng    As Range
        Dim Ligne  As Long
        Me.Unprotect "1234"
        ' La variable KeyCells contient la colonne (Ici X) qui déclenchera  le "Copier/Coller les valeurs" si elle est renseignée.
        Set rng = Range("X:X")
        If Not Application.Intersect(rng, Target) Is Nothing Then
     
            For Ligne = 1 To Range("Ordinateur").Rows.Count
                If Range("Ordinateur").Cells(Ligne, 23).Text = "OK" Then
                    Range("A2:AA2").Select
                    Range("AA2").Activate
                    Selection.Copy
                    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                                         , SkipBlanks:=False, Transpose:=False
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                    :=False, Transpose:=False
     
                End If
            Next Ligne
        End If
        Me.Protect "1234"
    End Sub

  7. #7
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    J'adore la copie sur soi-même que fait ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Selection.Copy
                    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                                         , SkipBlanks:=False, Transpose:=False
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                    :=False, Transpose:=False
    En admettant (ce que je veux croire lorsque l'on montre un code) que le code montré est un copié/collé rigoureux du code écrit

  8. #8
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonsoir,

    De plus dans ce code (ligne 13) je lui ai dit que si le texte etait "OK" mais en fait c'est pas OK mais une date (je ne sais pas comment lui dire en vba)
    Tu peux tester avec IsDate() :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    If IsDate(Range("Ordinateur").Cells(Ligne, 23).Value) Then

  9. #9
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Bonjour et merci à vous tous mais malgré vos explications, le code ne fonctionne toujours pas.
    Lorsque je saisi une date en X2 par exemple, toutes les formules qui se trouvent sur cette ligne 2 restent des formules et non des valeurs.
    Ce code est dans la feuille "Suivi ordinateurs"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Copie et colle les valeurs de la ligne entière si la date d'élimination est renseignée (colonne X)
    Dim rng        As Range
    Dim Ligne      As Long
        ActiveSheet.Unprotect "1234"
        ' La variable KeyCells contient la colonne (Ici X) qui déclenchera  le "Copier/Coller les valeurs" si elle est renseignée.
        Set rng = Range("X:X")
        If Not Application.Intersect(rng, Target) Is Nothing Then
            For Ligne = 1 To Range("Ordinateur").Rows.Count
                If IsDate(Range("Audit").Cells(Ligne, 23).Value) Then
                    Selection.Copy
                    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                                         , SkipBlanks:=False, Transpose:=False
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                    :=False, Transpose:=False
                End If
            Next Ligne
        End If
        ActiveSheet.Protect "1234"
    End Sub

  10. #10
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Mon message N° 7 t'a très manifestement laissé totalement impassible !
    Relis-le -- Re-re-relis-le encore et encore et encore

  11. #11
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Manifestement je ne dois pas savoir lire entre les lignes.
    Et Oui effectivement, ayant du mal avec le codage instinctif, j'avoue que lorsque je desire un code simple du genre (copier/collage special[les valeurs]) alors je déclenche une macro puis je copie et colle le code obtenu dans mon code final.

    ici en déclenchant une macro, j'obtiens :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Selection.Copy
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                    :=False, Transpose:=False
    Où est donc le problème à par moi ?

  12. #12
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Où est donc le problème à par moi ?
    Il est sur ta chaise !
    Et Oui effectivement, ayant du mal avec le codage instinctif
    Ton "instinct" est alors très défaillant.
    Et l'aide interne VBA ? Elle ne sert à rien ? Encore que, même sans la consulter ...

    Alors ? --->>
    La méthode Copy Copie l'objet Range dans la plage spécifiée ou dans le Presse-papiers (dans le presse-papiers, dans ton cas).
    Et tu copies quoi, dans ton code ? -->> l'objet Selection


    La méthode PasteSpecial colle un objet Range provenant du Presse-papiers (qui contient ton objet ... Selection) dans la plage spécifiée. Et tu spécifie quelle plage, dans ton code ? -->> l'objet Selection !

    Tu salueras bassement pour moi ton instinct et l'inviteras à consulter.

  13. #13
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Tu salueras pour moi ton instinct et l'inviteras à consulter.
    Pas tres sympa de ta part.
    Sinon a part ça, je n'avance pas car je ne comprend pas.

  14. #14
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Pas tres sympa de ta part.
    Lis bien tout. "consulter" = consulter l'aide interne VBA.
    Sinon a part ça, je n'avance pas car je ne comprend pas.
    Je me sens dans ce cas totalement incapable de te faire comprendre ce qui :
    - t'a été expliqué très clairement
    - est une énorme évidence

  15. #15
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    tout le monde doit etre a ton niveau
    non. Il suffira de celui de mon petit voisin (10 ans), qui est près de moi et stupéfait...
    Je te laisse, maintenant (trop, c'est trop)

  16. #16
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Si une âme sympathique peut m'aider, ce n'est pas de refus.
    Merci

  17. #17
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Une âme "antipathique" va répondre à une question qui aurait du être exprimée très simplement ainsi :
    "comment figer en valeurs ("constants") les résultats issus de formules dans une plage de données spécifiée"
    (tout le reste n'étant que pipotage et bavardage inutiles)
    Et la réponse (au demeurant donnée mille et une fois sur ce forum) est (ici en exemple avec la plage A35) --->>
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(A3:D5).Value = Range(A3:D5).value
    Point barre.

  18. #18
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Bonjour et merci
    mais je ne vois pas pourquoi le code de depart est egal au code d'arrivee ?
    Range(A35).Value = Range(A35).value
    Pourquoi en 1er on ne met pas Range(A35).Formula ?
    Dans cet exemple tu cibles la plage alors que pour mon fichier ceux sont des lignes qui ne se suivent peut etre pas.

  19. #19
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    mais je ne vois pas pourquoi le code de depart est egal au code d'arrivee ?
    Range(A35).Value = Range(A35).value
    Pourquoi en 1er on ne met pas Range(A35).Formula ?
    Parce que je suis tout sauf zinzin ...
    tu cibles la plage alors que pour mon fichier ceux sont des lignes qui ne se suivent peut etre pas.
    Oui ? Et alors ? Si quelqu'un t'interdit de le faire dans ta boucle de parcours, dénonce-le à la police

    Mais évite de te faire frapper sur les doigts en disant que tu appliques la "chose" à une "sélection" que ... tu n'as même pas faite, hein ...

    EDIT : Et depuis le temps que tu viens sur ce forum, tu devrais savoir depuis longtemps que l'on ne travaille de surcroît pas à coups de select, selection, etc ..., mais sur les objets Excel, que l'on invoque directement.

    Mais voilà : tu pleurniche, passes ton temps à dire que tu es "débutant" (éternel ... et inquiétant), etc ..., mais ne t'intéresses en réalité pas vraiment à autre chose qu'à obtenir un plat tout cuit.

  20. #20
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    Stop, ça suffit, je ne veux plus de votre aide.
    Je ne suis pas le seul que vous injuriez de façon mesquine.
    A chaque fois que vous répondez à un post de quelqu'un qui a du mal a comprendre, c'est une cascade de moqueries.

+ Répondre à la discussion
Cette discussion est résolue.
Page 1 sur 3 123 DernièreDernière

Discussions similaires

  1. Réponses: 2
    Dernier message: 24/02/2015, 14h19
  2. [XL-2007] Réaliser une recherche dans une colonne et copier coller les lignes
    Par Georges50 dans le forum Macros et VBA Excel
    Réponses: 22
    Dernier message: 13/11/2013, 15h39
  3. Outil VBA sur ArcGis : Copier/coller les lignes dans une table attributaire
    Par Alexiis dans le forum SIG : Système d'information Géographique
    Réponses: 2
    Dernier message: 26/09/2013, 16h15
  4. Réponses: 5
    Dernier message: 16/12/2011, 12h22
  5. Copier/coller les valeurs, pas les formules
    Par ericdev67 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 25/01/2011, 07h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo