Bonjour,
1)Tu "tapes" ton code où?
2)Tu valides ton userform comment?
3)Cherches doublons sur le forum tu auras un début de réponse.
Où sont tes doublons (colonne?)
Cordialement
edit:
pour le 4) tu peux essayer quelque chose comme cela
à placer dans "l'autre feuille" et modifier le sheets(2) en fonction du numéro de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Worksheets(1).Range("a1:a500" )
atrouver = Range("a1" ).Value
Set c = .Find(atrouver, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Sheets(1).Activate
' .Range(firstaddress).Select
.Range(firstaddress).EntireRow.Select
Selection.Copy
Sheets(2).Activate
Range("a2" ).Select
Paste
End If
End With
End If
End Sub
edit2:
pour le 4
sans le VB ci-dessus
tu peux utiliser :=RECHERCHEV($A$1;Feuil1!$A:$H;COLONNE(A1))
à étendre sur la ligne où tu veux reproduire les données
en a1 la valeur à cherchée dans la colonne A de feuil1
on suppose que tu veux les colonnes A à H
Message édité par seniorpapou le 14-05-2007 à 08:34:27