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 : Les plus récents
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2018-12-26T17:16:35+00:00

    j'ai fais des essais. Conclusions :

    • enlever si possible les "zéros" des cellules "D6 : L13" car il peut y avoir des scores "=0". et cela conditionne la dernière demande
    • la formule des cellules des colonnes "M : Q" n'a pas été copiée et les cellules ne sont pas verrouillées
    • dans ton code, la limite des lignes copiées sont égales à la ligne "13". Et si un jour, j'ai plus de concurrents, il va en manquer dans la feuille "Repechage". J'en ai rajouté. Voir le dernier exemple :

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

    Cerise sur le gâteau , si tu peux me changer la couleur du fond des cellules de la feuille "Repechage" à savoir après la copie :

    • colonne "B" = "Rose"
    • colonnes "D ; G ; J" si valeur nulle, pas de couleur, sinon "Orange"
    • colonnes "EF ; HI ; KL" si aucune valeur "Bleu" sinon "pas de couleur"

    tu le fais quand tu peux, il n'y pas d'urgence, même après les fêtes, cela ne me gêne pas.

    Merci beaucoup

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

    0 commentaires
  2. DanielCo 107.7K Points de réputation
    2018-12-26T15:13:00+00:00

    Sub test()

      Dim C As Range, Plage As Range

          With Sheets("Concours")

                Set Plage = .Range("B14:V21")

          End With

          Application.EnableEvents = False

          With Sheets("Repechage")

                      .Unprotect

                Plage.Copy

                      .[B6].PasteSpecial xlPasteValues

                      .[B6:C13].Sort .[B6], xlAscending, Header:=xlNo

                      .[B6:B13].HorizontalAlignment = xlCenter

                      .[D6:Q13].HorizontalAlignment = xlCenter

                      .[D6:U13] = 0

                      .[M6:V13].Locked = True

                      With .[B6:Q13]

                        .Borders.LineStyle = xlContinuous

                        .Interior.ColorIndex = xlNone

                        .FormatConditions.Delete

                        .VerticalAlignment = xlCenter

                        .Locked = False

                      End With

                      .Protect

          End With

          Application.EnableEvents = True

     End Sub

    Daniel

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

    0 commentaires
  3. Anonyme
    2018-12-26T13:52:20+00:00

    bonjour,

    c'est ça après la copie. Merci

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

    0 commentaires
  4. DanielCo 107.7K Points de réputation
    2018-12-26T10:43:24+00:00

    Ensuite, mettre à zéro les cellules "D6 : U13".

    A quel moment ? Après la copie ?

    Daniel

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

    0 commentaires
  5. Anonyme
    2018-12-24T13:19:41+00:00

    Les 8 premières équipes sont transposées dans la feuille "Finale", ça c'est bon.  Le reste des équipes vont dans la feuille "Repechage". C'est peut-être plus facile pour toi de copier les lignes complètes qui partent de "B14 : V21", et vont se positionner dans les cellules de la feuille "Repechage" de "M6 : V13". J'avais oublié les colonnes "R : V" sont masquées. Ensuite, mettre à zéro les cellules "D6 : U13".

    Les cellules à verrouiller sont : "M6 : V13".

    Merci

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

    0 commentaires