Modification de la plage "Method Intersect"

Question

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

Answer 1

bonjour,

merci Daniel et bonne journée.

Cordialement

Answer 2

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

Answer 3

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

Answer 4

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