B
bertrand
Guest
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]
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]