Discussion :

[bosk1000]

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 ?

[Krovax]

Ton code :

Code :

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

" 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 :

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

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

[laetitia]

bonjour bosk1000 Krovax le forum comme je comprends !!

Code :

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

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

salutations

[alsimbad]

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

Code :

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

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

[bosk1000]

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

encore merci