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-09T14:10:08+00:00

    Bonjour,

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

    Cordialement.

    Daniel

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

    0 commentaires
  2. Anonyme
    2020-04-09T14:34:40+00:00

    super. Merci Daniel et bonne journée.

    Cordialement

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

    0 commentaires
  3. Anonyme
    2020-04-09T17:50:29+00:00

    bonsoir,

    j'ai un petit souci avec ce morceau de code. J'ai remplacé : Set rg = Intersect(Range("C5:C100"), Target) par

      Set rg = Intersect(Target, Intersect(Range("C:C"), Range("5:" & Cells(Rows.Count, 1).End(xlUp).Row))).

    Cela pose des petits soucis.

    Merci pour ton aide.

    Cordialement

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

    0 commentaires
  4. DanielCo 107.1K Points de réputation
    2020-04-09T18:15:42+00:00

    Quelle est l'erreur ? Est-ce que "Target" est bien un range ?

    Daniel

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

    0 commentaires
  5. Anonyme
    2020-04-09T19:23:56+00:00

    en fait, cela empêche la mise de la première lettre en majuscule et me déclenche un message de suppression d'une ligne, message MsgBox. Le code à la base est celui-ci :

    Set rg = Intersect(Target, Intersect(Range("C:C"), Range("5:" & Cells(Rows.Count, 1).End(xlUp).Row)))

    '      Set rg = Intersect(Range("C5:C100"), Target)

                If Not rg Is Nothing Then

                      Application.EnableEvents = False

                            For Each C In rg

                                  If C <> "" Then

                                        C.Value = Application.Proper(C.Value)

                                  End If

                            Next

                      Application.EnableEvents = True

                End If

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

    0 commentaires