Rapport de message :*
 

Re: suppression d'une ligne dans 2 feuilles

Titre du sujet : Re: suppression d'une ligne dans 2 feuilles
par myDearFriend! le 28/03/2010 17:26:04

Re,

Arf, je me doutais bien qu'il y avait une subtilité cachée...

Cela dit, je tente quand même de ne pas alourdir inutilement ton projet et te propose une InputBox bien suffisante pour les détails que tu veux bien nous donner, en lieu et place d'un Userform...

Option Explicit

Sub SupprLigne()
' myDearFriend! - www.mdf-xlpages.com
Dim R As Range
Dim L&
    L = Application.InputBox("Suppression de la ligne :", "Suppression", , , , , , 1)
    If L > 0 Then
        With Sheets("Feuil1")
            Set R = .Columns(1).Find(L, LookIn:=xlValues)
            If Not R Is Nothing Then
                Sheets("Feuil2").Rows(R.Row).Delete
                R.EntireRow.Delete
            End If
        End With
    End If
End Sub

Voir pièce jointe.

Cordialement,