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. DanielCo 107.7K Points de réputation
    2019-01-03T12:11:59+00:00

    Bonjour,

    Est-ce que tu peux me faire parvenir le classeur avec lequel tu as fait tes tests ? Parce que je ne constate pas la même chose avec le mien.

    Daniel

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

    0 commentaires
  2. Anonyme
    2019-01-02T16:00:46+00:00

    Bonjour,

    Je me suis dans la peau de quelqu’un qui ni connait rien du tout. Voici les quelques petits disfonctionnements que j’ai pu trouver.

    Ø  Feuille « Concours : si j’essaye de rentrer un nombre qui est absent de la colonne « B » dans les colonnes « D, G, J », j’ai ce message :

    « Erreur d’exécution « 13 »

    Incompatibilité de type

    En cliquant sur « Débogage » on va sur « Feuil2(Concours) avec ce morceau de code surligné en jaune : Ligne = Application.Match(Target.Value, [B5 : B54], 0) + 4

    Dans ce cas, une MsgBox serait la bienvenue. En cliquant sur « OK » = effacement de la valeur rentrée et rester sur la même cellule pour mettre la bonne valeur.

    Pour faire un essai, tu rentres la valeur 25 dans la cellule « D26 ».

    Ø  Feuille « Concours », les cellules des colonnes « E : F, H : I, K : L » et dans la feuille « Finale », les cellules :

    1.     O7 : P7

    2.     O9 : P9

    3.     O11 : P11

    4.     O13 : P13

    5.     O19 : P19

    6.     O21 : P21

    7.     O27 : P27

    Ces cellules ont un petit souci. Dans le règlement de la pétanque, il faut qu’une des deux équipes est 13 points. Pour faire un essai, dans la feuille « Concours », tu cliques sur le bouton « Inscription » puis tu rentres, par exemple, la valeur 8 en « E6 » et la valeur 10 en « F6 ». A l’instant, il n’y pas de soucis, ça rentre car le code le permet.

    Donc, quand on rentre les scores, il faut qu’une des 2 valeurs soit égale à 13, sinon, MsgBox avec message et en cliquant sur « OK » = remise à zéro des 2 cellules et positionner le curseur sur la première cellule pour recommencer.

    Si, dans les cellules des colonnes « E, H & K », le score est inférieur à 13, on pourrait d’office inscrire dans les colonnes « F, I & L », la valeur 13.

    Le reste que tu as fait l’autre jour, fonctionne bien.

    Merci pour ton aide et meilleurs vœux pour l’année 2019.

    https://1drv.ms/x/s!Avq7hyE1Ux3Mkw6IuKVhe5\_gx8Oa

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

    0 commentaires
  3. Anonyme
    2018-12-29T16:40:22+00:00

    bonjour,

    avant de faire les essais et de te les communiquer, on va attendre un peu. J'ai attrapé la "crève" et j'ai la tête un peu dans le désordre.

    A plus. Merci

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

    0 commentaires
  4. Anonyme
    2018-12-28T17:33:51+00:00

    désolé pour le temps de réponse. Après diagnostique, téléphone HS. Course dans les magasins.

    J'ai essayé ta macro. Cela fonctionne parfaitement. Demain, je vais tout essayer. Je te tiendrai au courant.

    Merci

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

    0 commentaires
  5. DanielCo 107.7K Points de réputation
    2018-12-28T15:14:22+00:00

    Voici :

    Sub Reset()

      Application.EnableEvents = False

      With Sheets("Concours")

        .Unprotect

        With .ListObjects(1)

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

            .ListRows(I).Delete

          Next I

        End With

        .[B6:L6].ClearContents

        .Protect

      End With

      Application.EnableEvents = True

    End Sub

    Daniel

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

    0 commentaires