Copie et transfert de la valeur des cellules d'un tableau vers un autre tableau

Anonyme
2018-12-21T14:09:10+00:00

Bonjour,

J’ai transformé les grilles des pages « Concours » et « Finale » en tableau. Cela m’amène une plus grande souplesse d’utilisation. Maintenant, il me suffit de rentrer un numéro dans la cellule de la colonne « B » libre suivante, pour créer une ligne tout en gardant toute la programmation qui va avec. Exemple : dépassement des valeurs, le match nul interdit …

La ligne 5 contenant les titres des colonnes du tableau est masquée. Les colonnes « R, S, T, U et V » aussi sont aussi masquées.

Dans l’exemple, à l’issue des 3 parties, un classement a été effectué par l’intermédiaire du bouton « Classement ». Ensuite, les valeurs des cellules « B6 : C13 » sont transférées dans les cellules « J7 : K14 » de la feuille « Finale » par le bouton « Qualifié Finale ».

Il reste à copier le reste des équipes(N° et Equipes). La liste démarre à partir de la neuvième ligne du tableau (quatorzième ligne), ça c’est le point de départ qui ne change jamais, jusqu’à C « aléatoire ». Aujourd’hui, il y a 16 équipes, demain, il y aura peut-être 40 …et ça c’est la valeur inconnue.

Ma question est de savoir comment copier la valeur des cellules des colonnes « B et C » de la feuille « Concours » puis de les coller dans les cellules des colonnes « B et C » de la feuille « Repechage et trier la colonne « B » en ordre croissant.

Je pourrai faire manuellement un copier/coller et le transférer dans la feuille « Repechage » dans la cellule « B6 » et classer la colonne « B ».

Maintenant, est-ce qu’un code pourrait remplacer cette dernière action ?

Merci pour ton aide.

Cordialement

https://1drv.ms/x/s!Avq7hyE1Ux3Mkn61aCQQYrcJBX5h

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

110 réponses

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.7K Points de réputation
    2018-12-24T11:16:50+00:00

    Bonjour,

    C'est verrouillé jusqu'en Q13. Est-ce que je déverrouille jusque là ?

    1. et 2. pas de problème.
    2. Quelles seraient les cellules à copier ?

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2018-12-24T10:21:20+00:00

    Bonjour,

    Hier, j’ai essayé tes codes et c’était parfait. Mais je ne suis pas allé plus loin. Aujourd’hui, j’ai essayé de remplir la feuille « Repechage ».

    Il se passe que les cellules « B6 : L13 » sont verrouillées. Dans la foulée, s’il était possible d’avoir le format à savoir :

    1. Le nom des « Equipes » de la colonne « C » soit centré en hauteur
    2. Les « Scores et les Tirages » des colonnes B, D : Q » soient centrés en hauteur et en largeur
    3. Après le transfert de "N° et noms d’équipes" de la feuille "Concours" à la feuille "Repechage", par l'intermédiaire de ta macro, est-il possible de rajouter des équipes à la suite dans le tableau ? il se peut que des équipes absentes le matin, viennent se joindre au concours de "Repechage".

    Je ne suis pas pressé. Tu regardes quand tu as le temps.

    Merci pour ton aide.

    https://1drv.ms/x/s!Avq7hyE1Ux3MkwAn7dInJkfUSzPK

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2018-12-23T16:56:49+00:00

    cela fonctionne parfaitement. Merci et passes de bonnes fêtes.

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. DanielCo 107.7K Points de réputation
    2018-12-23T15:50:31+00:00

    Au temps pour moi :

    Sub test1()

      Dim I As Long

      Application.EnableEvents = False

      With Sheets("Repechage")

        .Unprotect

        .Range(.[B6], .Cells(.Rows.Count, 2).End(xlUp)).Resize(, 16).Clear

        With .ListObjects("Tableau2")

          For I = .ListRows.Count To 1 Step -1

            .ListRows(I).Delete

          Next I

        End With

        .Protect

      End With

      Application.EnableEvents = True

    End Sub

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  5. Anonyme
    2018-12-23T15:27:12+00:00

    pour la macro suppression, il y a un message "Erreur de compilation", variable non définie.

    Le I de for I est souligné en bleu

    Cette réponse a-t-elle été utile ?

    0 commentaires