macro "effacer"

[darib52]

bonjour à tous,
je suis à la recherhce d'une macro qui me permette d'effacer des noms dans une liste située dans une feuille différente.
en pj un modèle.
merci de vos réponses
amitiés [file name=effacer.zip size=3322]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/effacer.zip[/file]

 

[soft]

Bonjour darib52,

Voilà une macro adaptée à ton fichier exemple :

Sub Effacer()
    Dim Nom As String, I As Long
    Nom = Sheets('efface').Range('D7')
    If Nom = '' Then Exit Sub
    
    For I = 1 To Sheets('liste').Range('B1').End(xlDown).Row
        If Sheets('liste').Range('B' & I) = Nom Then
            Sheets('liste').Rows(I & ':' & I).ClearContents
        End If
    Next I
End Sub

 

[porcinet82]

Re:macro \"effacer\"

salut darib52,

Une petite solution dans le fichier joint, je ne suis pas sur que c'est ce que tu recherchais mais bon jte la propose quand meme.

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

@+

Edition : salut soft

Message édité par: porcinet82, à: 09/11/2005 14:17

 

[darib52]

merci à vous