Discussion :

[fadjerx]

Bonjour les amis,

Je chercher un script VBA pour détécter les numéros de lignes modifiées suite à un copier/coller dans un fichier Excel.

J'ai essayé avec l'evenement Change mais ça marche que pour la première ligne, même si ma séléction concerne plusieurs lignes.

J'ai regardé aussi coté de la function Intersect mais je vois pas comment l'utiliser pour ce besoin.

Un grand merci à ceux qui prénnent de leur temps pour me répondre.

Amicalement.

[LeForestier]

Bonjour,
J'ai pas trop examiné ta question, mais si ça marche pour la 1ére ligne pourquoi pas faire une boucle qui ne copie qu'une ligne à la fois ?
A+

[fadjerx]

Non je peux pas, pour mon besoin il faut pas que je modifie le mécanisme du copier/coller standard

[LeForestier]

C'est l'utilisateur qui fait le copier/Coler ?
Les plages de copier/coller sont aléatoires ?
Explique un peu ?

[fadjerx]

>>> C'est l'utilisateur qui fait le copier/Coler ?
Oui
>>> Les plages de copier/coller sont aléatoires ?
Oui

J'ai besoin de connaitre les lignes dont l'une des cellules a été modifiée (même s'elle garde la même valeur) parès un copier/coller de l'utilisateur

[LeForestier]

Si j'ai compris !!
Tu veux connaître les lignes qui ont étés copiées quel que soit le contenu ou la modif faite, c'est ça ?

[fadjerx]

oui c ça Sorry si je suipas clair

[fadjerx]

Resolved !

Pour mon besoin, je mets la première cellule de la ligne à True à chaque fois que cette dernière est modifiée, ce qui me permet de tester la ligne avant de renseigner l'info les fois suivantes.

Ce test que je fais permet d'améliorer les performances considérablement.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
    For Each Cell In Selection
        If Sheet1.Cells(Cell.Row, 1).Value <> True Then
            Sheet1.Cells(Cell.Row, 1).Value = True
        End If
    Next Cell
 
End Sub

[LeForestier]

Bien, c'est à cela que je voulais en venir,
Mais ton code n'améliore pas les performances car tu passe en revue toutes les cellules de la sélection.
Voir avec la fonction Selection.Address qui te donne directement la plage d'ou tu peu extraire la dernière ligne.
Et si tu veux employer ton code, le IF n'est pas nécessaire puisque de toute façon tu met la 1ére cellule à true.
Bonne soirée et bon travail.
A+