Macro à appliquer à plusieurs cellules

Macro à appliquer à plusieurs cellules - VB/VBA/VBS - Programmation

Marsh Posté le 04-12-2007 à 16:14:05    

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 !  
 

Code :
  1. Sub MaMacro()
  3. y = ActiveCell.Row
  4. z = ActiveCell.Column
  5. Dim MyCell As Range
  8. For Each MyCell In Selection
  9. If Sheets("1 Fam" ).Cells(y, z).Value < 5 Then
  10. MyCell.Value = ""
  11. End If
  12. Next MyCell
  16. End Sub

Reply

Marsh Posté le 04-12-2007 à 16:14:05   

Reply

Marsh Posté le 04-12-2007 à 16:21:54    

Ton code fonctionnerait mieux si tu utilisais MyCell dans ta boucle pour les valeurs de x et y
edit: je suis pas clair je sens

 

Ton x et ton y ne changent pas alors que tu parcours plusieurs cellules de ta sélection.
Il faut un truc du genre x = MyCell.Row et y = MyCell.Column


Message édité par tegu le 04-12-2007 à 16:25:47
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed