Macro VBA Excel

[agnostiko]

Bonjour à tous,

Je suis débutant et même plus que novice dans VBA alors excusez la naïveté de la question mais j'aurai besoin d'un script qui me supprime la valeur d'une cellule si la valeur de la même cellule (même coordonnées) dans une autre feuille est inférieure à 5. J'ai essayé le code suivant mais malheureusement il ne marche que lorsque je sélectionne une seule cellule. Auriez-vous une solution pour pouvoir le faire marcher à l'ensemble des cellules (car j'en ai 25000 !) ?

Merci par avance !

Sub MaMacro()

y = ActiveCell.Row
z = ActiveCell.Column
Dim MyCell As Range


For Each MyCell In Selection
If Sheets("1 Fam").Cells(y, z).Value < 5 Then
MyCell.Value = ""
End If
Next MyCell



End Sub

 

[Pierrot93]

Re : Macro VBA Excel

Bonjour Agnostiko,

ta macro modifiée, si j'ai bien compris :

Sub MaMacro()
Dim MyCell As Range
For Each MyCell In Selection
    If Sheets("1 Fam").Cells(MyCell.Row, MyCell.Column).Value < 5 Then MyCell.Value = ""
Next MyCell
End Sub

bon après midi
@+

 

[agnostiko]

Re : Macro VBA Excel

Ok c'est parfait, ça marche nickel : merci bp Pierrot !!!!!