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 ?

Ton code :

Code:

---

" ActiveCell.Value = nom"

---

met la valeur de la variable nom dans la cellule active c'est sans doute pour cela que la cellule s'efface si ta variable est vide pour récupérer un valeur dans une variable

Code:

---

variable=cells(X,Y)(

---

X étant le numéo de ligne
Y le numéro de colonne

Pour le reste de ta question je risque de dire une bétise je laisse donc un autre te répondre

bonjour bosk1000 Krovax le forum comme je comprends !!

Code:

---

1 2 3 4

Option Explicit Sub test() If [n4] <> "" Then [b4] = "" End Sub

---

salutations

en fait, krovax a raison pour la variable, c'est la variable qui doit prendre la valeur de la cellule
Option Explicit

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim nom As Variant Range("n4").Select If ActiveCell.Value <> "" Then Range("b4").Select nom =ActiveCell.Value 'Selection.Copy ' Cells.Replace What:="nom" Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows Cells.Replace What:=nom, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows End Sub

---

théoriquement, si je comprend bien ton code, il prend la valeur écrite dans ta cellule, puis il efface le nom en question de la feuille entiere, y compris dans la cellule n4

merci a vous tous
ce simple détail a suffit a faire fonctionner l'ensemble

encore merci
:yaisse2: