Bonsoir à toutes et à tous,
Je souhaite renvoyer les saises de la page 5 vers la page 6.
Je cherche la dernière ligne vide de la page 6 à partir de A55.
Ensuite je souhaite que ma dernière ligne prenne la valeur de l'intersection, mais j'ai une erreur.
Merci de votre aide.
Je souhaite renvoyer les saises de la page 5 vers la page 6.
Je cherche la dernière ligne vide de la page 6 à partir de A55.
Ensuite je souhaite que ma dernière ligne prenne la valeur de l'intersection, mais j'ai une erreur.
Merci de votre aide.
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage, Plage1, Intersection As Range, DernLigne As Long
If Application.Intersect(Target, Range("B9:B41")) Is Nothing Then Exit Sub 'limite l'action a la plage B9:B41 de la "Page 5"
DernLigne = Sheets("Page 6").Range("A55").End(xlUp).Row + 1 'cherche dernière ligne de la "Page 6"
Set Plage = Range("B9:B41")
Set Intersection = Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
DernLigne = Intersection 'Je veux affecter à DernLigne la valeur d'Intersection
'Message d'erreur incompatibilité de type
Else
End If
End Sub
Dernière édition: