Modification de la plage "Method Intersect"

Anonyme
2020-04-09T13:47:11+00:00

Bonjour,

Est-ce qu'il est possible de modifier la plage "A:A, C:C, E:E" de la méthode Intersect  ci-dessous  :

If Not Application.Intersect(Target, Range("A:A, C:C, E:E")) Is Nothing Then

À savoir :

o      A:A pourrai devenir => A5: dernière cellule de la colonne A du tableau et ce quel que soit le nombre de lignes de celui-ci .

o      Pareil pour les deux autres

L'idée est, qu'à chaque nouvelle ligne de créée, la plage s'incrémente automatiquement. Cela permettra déjà de rester dans le tableau et de ne pas le limiter, du style par exemple, A5:A50 ou d'en mettre trop : A5:A65…

Merci pour votre aide.

Cordialement

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

29 réponses

Trier par : Les plus anciens
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2020-04-11T09:34:33+00:00

    bonjour,rappel du déroulement du concours :

    à l'issue de la première partie du concours, est établi un classement. Les 8 premiers vont dans la feuille "Finale" par le bouton Finale de la feuille "Concours".

    Les autre équipes sont orientées vers le repêchage par le bouton Repechage de la feuille "Concours". Maintenant, on est dans la feuille "Repechage".

    Pour rajouter une équipe, il faut cliquer sur n'importe quelle cellule de la colonne "B", même en dehors du tableau, et un MsgBox dit : Voulez-vous inscrire une équipe" ? => Oui => inscrire le nom de l'équipe => Enter => MsgBox => message : Voulez-vous continuez les inscriptions ? => Oui ou Non selon.

    Si on travaille sur le même classeur, actuellement dans la feuille "Repechage", il y a 6 équipes présentes : 1, 3, 6, 9, 10 et 13.

    Cordialement

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

    0 commentaires
  2. DanielCo 107.1K Points de réputation
    2020-04-11T10:28:01+00:00

    MsgBox dit : Voulez-vous inscrire une équipe" ? => Oui

    Plante sur :

    Sheets("Reperage").Unprotect

    (Pas de feuille "reperage).

    Daniel

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

    0 commentaires
  3. Anonyme
    2020-04-11T12:05:36+00:00

    c'est une étourderie. C'est "Repechage" à la place

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

    0 commentaires
  4. Anonyme
    2020-04-11T12:15:29+00:00

    il est vrai que ce message, je l'avais eu. Mais tu m'as mis le doute. Je suis retourné sur le classeur dans OneDrive et là je ne l'ai pas constaté.

    Si cela se trouve, on n'est pas sur le même classeur.

    Je t'envoie le lien :

    https://1drv.ms/x/s!Avq7hyE1Ux3MnD8gwdwhBLnR4GgT?e=uCV01a

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

    0 commentaires
  5. DanielCo 107.1K Points de réputation
    2020-04-11T13:51:21+00:00

    Pas facile. Je m'y remets demain.

    Daniel

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

    0 commentaires