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

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

Answer 2

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

Daniel

Answer 3

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

Answer 4

super. Merci Daniel et bonne journée.

Cordialement

Answer 5

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