effacer donnée

[bertrand]

bonjour
je voudrais que quand je rentre une reférence dans la feuille 2 la ligne de cette referance soit supprimer dans la feuille 1

la petite macro intégrée ne fonctionne pas toujours

Sub MacroEffacer()
DerligneF1 = Range('F1!A65000').End(xlUp).Row
DerligneF2 = Range('F2!A65000').End(xlUp).Row

For j = 3 To DerligneF2

Sheets('F2').Select

If Cells(j, 5) <> '' Then
Cell1F2 = Cells(j, 1)
End If

''''''

For i = 2 To DerligneF1

Sheets('F1').Select

If Cells(i, 1) = Cell1F2 Then
Cells(i, 1).EntireRow.Delete
End If

Next i

Next j

End Sub

merci de votre aide
j'ai joint le fichier
[file name=REFERENCES14.zip size=9282]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/REFERENCES14.zip[/file]

 

[Hellboy]

Bonjour bertrand

J'ai joins ton fichier avec les modifications pour que lorsque tu insère une information dans la feuille F2, il cherche la valeur que tu as mise, pour enlever automatiquement la ligne en F1 qui contient la meme valeur. En espérant que c'est ce que tu voulais. En passant, est-ce qu'il pourrait y avoir plus que une valeur pareil dans F1 lorsque tu l'inscrit dans F2 ?

[file name=Hellboy_REFERENCES14.zip size=12881]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Hellboy_REFERENCES14.zip[/file]

 

[bertrand]

ok merci ca marche et en plus sans le bouton

merci

non il n'y a pas deux fois la meme reference en F1

 

[bertrand]

bonjour
desolé de revenir
mais j'ai un petit souci
quand je mets une referance 123456 par exemple dans la feuille 1 et que je tape 1234 dans la feuille 2 la reference 123456 de la feuille 1 s'efface

est il possible de corriger ça ou pas

merci d'avance [file name=REFERENCES15.zip size=11313]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/REFERENCES15.zip[/file]

 

[2passage]

Bonjour,

je pense qu'il manque juste un paramètre dans le .find. Ajoute un
, lookAt:=xlWhole
et ca devrait fonctionner.

++

 

[bertrand]

merci beaucoup ca marche