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
Partager