Discussion :

[0916paps]

Bonjour,
Grâce à Mercatog je peux effacer des noms identiques dans une feuille à ceux que je rentre dans une autre feuille, je le remercie encore.
Mais maintenant et en plus de cette macro je souhaiterai effacer aussi le contenu des cellules qui sont à la gauche des noms.
Par ex:
Ayant dans la feuille "ORGA" dans la plage A9:B55 :
| A | B
______________________
09 | Monsieur | DUPONT |
_______________________
10 | Madame | LEGRAND |
________________________

Inscrivant dans la feuile "RELEVE" dans la plage "C6:B31" des noms et autres
comme par exemple:
| C | B |
_____________________
6 | Madame | LEGRAND |
______________________

Si je clique sur la macro alors elle efface le contenu des cellules A10 et B10 de la feuille"ORGA".
Merci pour votre aide, cordialement.0916paps

Pour vous aidez voici le code que m'a crée Mercatog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim c As Range, v As Range, Plage As Range
 
With Sheets("ORGA")
    Set Plage = Union(.Range("B9:B55"), .Range("D10:D55"), .Range("F11:F55"), .Range("H11:H55"))
End With
For Each v In Sheets("RELEVE").Range("B6:B31")
    If v <> "" Then
        For Each c In Plage
            If InStr(c, v) > 0 Then c.ClearContents
        Next c
    End If
Next v
Set Plage = Nothing

[aalex_38]

Bonjour,


Tu peux utiliser "offset" ou "resize"

[mercatog]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim c As Range, v As Range, Plage As Range
 
With Sheets("ORGA")
    Set Plage = Union(.Range("B9:B55"), .Range("D1055"), .Range("F11:F55"), .Range("H11:H55"))
End With
For Each v In Sheets("RELEVE").Range("B6:B31")
    If v <> "" Then
        For Each c In Plage
            If InStr(c, v) > 0 Then Sheets("ORGA").Range(c.Offset(0, -1), c).ClearContents
        Next c
    End If
Next v
Set Plage = Nothing