bonjour

voila je veux faire une macro qui lorsque la cellule n4 n'est pas vide, je recupère la valeur (un nom et un prenom) de la cellule b4, pour effacer toutes les valeurs du tableau identique a b4

pour l'instant j'ai fait ça
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Option Explicit
Sub test()
Dim nom As Variant
Range("n4").Select
If ActiveCell.Value <> "" Then Range("b4").Select
ActiveCell.Value = nom
    'Selection.Copy
'    Cells.Replace What:="nom" Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
    Cells.Replace What:=nom, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub
mais la fin ne fonctionne pas, la partie remplacer valeur de b4 par "" ne se declenche pas

autre bmol, lorsque la commande " ActiveCell.Value = nom" s'execute elle efface la cellule b4, ça ne me pose pas de souci sur cette macro, mais peux etre problematique ailleur, donc comment recuperer la valeur de la cellule sans l'effacer ?