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. DanielCo 107.1K Points de réputation
    2020-04-16T16:03:44+00:00

    Bonjour,

    Je ne comprends pas ce que tu veux obtenir? Qu'est-ce que tu entends par "c’est-à-dire pas de limites dans le tableau" ?

    Cordialement.

    Daniel

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

    0 commentaires
  2. Anonyme
    2020-04-16T18:12:01+00:00

    j'aimerai que la plage "B5:B100" de l'exemple devienne B5:B en fonction de la taille du tableau comme le code :

    Range("E:E, H:H, K:K"), Range("5:" & Cells(Rows.Count, 2).End(xlUp).Row)))

    Merci pour ton aide

    Cordialement

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

    0 commentaires
  3. DanielCo 107.1K Points de réputation
    2020-04-17T08:04:25+00:00

    Bonjour,

    Il faut remplacer [B5:B100] par :

    Range("B5", Cells(Rows.Count, 2).End(xlUp))

    Soit :

      Ligne = Application.Match(Target.Offset(, -1), Range("B5", Cells(Rows.Count, 2).End(xlUp)), 0)

      Ligne = Application.Match(Target.Value, Range("B5", Cells(Rows.Count, 2).End(xlUp)), 0)

      Ligne = Application.Match(Target.Value, Range("B5", Cells(Rows.Count, 2).End(xlUp)), 0) + 4

      If Not IsNumeric(Application.Match(Target.Value, Range("B5", Cells(Rows.Count, 2).End(xlUp)), 0)) Then

    Daniel

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

    0 commentaires
  4. Anonyme
    2020-04-17T08:44:01+00:00

    bonjour,

    merci Daniel et bonne journée.

    Cordialement

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

    0 commentaires