Macro à appliquer à plusieurs cellules

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro à appliquer à plusieurs cellules

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 !

Code :

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

Publicité

tegu

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro à appliquer à plusieurs cellules

Sujets relatifs
Need help: besoin macro excel pour fonction recherche	[BATCH] recherche de dossier sur plusieurs serveurs
Sur excel, Equation disant JUSTE ou FAUX suivant 6 cellules	[C] Prendre plusieurs argument en compte
Modification de cellules a partir d'une fonction	Recherche fonction pour ajouter plusieurs fois un meme paragraphe
bordures cellules avec namo web?	Macro Excel pilotage PowerPoint
[PHP] Upload de fichier en plusieurs parties	Lancer macro lors de saisie dans une cellule précise
Plus de sujets relatifs à : Macro à appliquer à plusieurs cellules

Page générée en 0.053 secondes