Deplacement avec souris

Suite,

Sinon une variante si tu ne souhaites pas l'affichage d'erreurs.

Private Sub Worksheet_Change(ByVal Target As Range)
'Exemple pour la feuille DB avec tableau 2
For i = 1 To Sheets("BD").Range("Tableau1[Num]").Count
On Error resume Next
If Sheets("BD").Range("Tableau1[Num]").Item(i) = Target Then
Application.EnableEvents = False
Application.Undo 
Application.EnableEvents = True
End If
Next i
End Sub

Le Numéro entré ne sera pas accepté et la cellule sera vide. Donc il faudra en trouver un autre.

Re X Cellus

désolé encore pour mes demandes.

avant tous j'ai essayé ce que tu m'a envoyé, mais je pense que je ne me suis pas trés fait comprendre.

sous le meme principe, y aurai t il une facons ou la ligne de la listview1 se copie dans listview2 sans prendre en concidération les doublons????

Merci d'avance

Bonjour le fil

@iliyes, merci d'ouvrir un nouveau post, ça n'a plus rien à voir avec la demande initiale

Vous pouvez en revanche faire référence à celui-ci si vous le souhaitez