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 récents
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2020-04-10T20:03:16+00:00

    ce sont les cellules "C11:C16" qui n'ont pas le côté droit de la feuille "Repechage". Ces lignes ont été rajoutées à près coup d'où leur manque.

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

    0 commentaires
  2. DanielCo 107.1K Points de réputation
    2020-04-10T19:40:29+00:00

    Dans la feuille Impression, en y regardant d'un peu plus près, on s’aperçoit que lecôté droit des premières cellules "C25:C20" sont normales et que les cellules "C21:C26", il n'y est pas.

    Il y a une explication à ce souci. Les cellules C21:C26 ont été rajoutées à la feuille "Repechage" après. Si tu as une explication, je suis preneur.

    Qu'appelles-tu les "côtés" ? Les bordures ? Les cellules C25:C20 et C21:C26 sont vides et n'ont pas de bordures.

    Daniel

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

    0 commentaires
  3. Anonyme
    2020-04-10T14:18:14+00:00

    J'ai trouvé d'où venait certains soucis. Dans la feuille "Concours ou Repechage" (ce sont les mêmes), dans la partie du code :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    J'avais enlevé cette partie du code car je voulais protéger les cellules du bandeau des titres. Seulement, le message n'apparaissait pas car dedans il y a des cellules fusionnées.    

    Je l'ai revalidé et maintenant, les soucis ont disparru à l'exception des cellules fusionnées qui n'ont pas le message. Pas grave.

    Dernier petit souci. A l'ouverture de la feuille "Impression"", le classement des deux feuilles apparait. La partie Rouge appartient à la feuille "Repechage". A la base, cette équipe provient du clic du bouton "Repechage" de la feuille "Concours".  6 équipes ont été reversées..

    Dans la feuille Impression, en y regardant d'un peu plus près, on s’aperçoit que le côté droit des premières cellules "C25:C20" sont normales et que les cellules "C21:C26", il n'y est pas.

    Il y a une explication à ce souci. Les cellules C21:C26 ont été rajoutées à la feuille "Repechage" après. Si tu as une explication, je suis preneur.

    Je te mets un nouveau lien sur le classeur opérationnel.

    Merci pour ton aide.

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

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

    0 commentaires
  4. Anonyme
    2020-04-10T12:26:52+00:00

    merci pour l'info. Je vais faire des test et je te tiens au courant.

    Cordialement

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

    0 commentaires
  5. DanielCo 107.1K Points de réputation
    2020-04-10T10:24:36+00:00

    Le "5" correspond au numéro de la première ligne. Comme la colonne A est vide,

    Range("5:" & Cells(Rows.Count, 1).End(xlUp).Row)

    Correspond à la plage 1:5.Il faut mettre :

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

    qui correspond à B5:B8.

    If Not Intersect(Target, Intersect(Range("A:A"), Range("5:" & Cells(Rows.Count, 2).End(xlUp).Row))) Is Nothing Then

    Daniel

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

    0 commentaires