effacer valeur par une macro
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:
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 ?