Macro oublie des cellules [Résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro oublie des cellules [Résolu]

GohanSSj2

Bonjour !!

J'ai créé une macro qui semble fonctionnée mais lorsque je lance cette derniére, elle oublie des cellules en cour de route, comme si le PC allait trop vite pour la macro lol.
voici la macro :

Code :

Sub Test()
Range("B1:B6" ).Select
For Each c In Selection
If Sheets("Feuil2" ).Range("A1:A12" ).Find(what:=c) Is Nothing Then
Rows(c.Row).Delete Shift:=xlShiftUp
Else
End If
Next c
End Sub

Je souhaite donc que pour chaque ligne dans ma premiére feuille elle verifie si la valeur dans une colonne est présente dans une autre colonne d'une autre feuille (qui représente la limite de données à traiter), cela me permet de faire un tri dans mes données de base.
Donc dés qur la valeur n'est pas trouvée dans la feuille 2 la macro supprime la ligne complétement sans laisser de vide.

Mais je suis obliger de relancer plusieurs fois la macro pour que cela fonctionne completement.
La macro traite quelques lignes au hazard, certaines ne sont pas traitée.

Je trouve ça vraiment étrange. La macro n'aime peut être pas que je supprime les ligne au fur et à mesure.

J'attend vos idées avec impatience ^^

Message édité par GohanSSj2 le 03-05-2010 à 13:54:00

Publicité

GohanSSj2

Bon j'ai trouver un début de réponse:
c'est que ma macro supprime une ligne alors quelle va ensuite vérifier la suivante, donc en faite comme els ligne se décal au fur et a mesure, on saute une ligne à chaque fois que ma condition est vrai !!

Je cherche un code prenant en compte cette condition.
(lol à chaque fois je me répond tout seul sur ce forum comme je cherche en meme temps parfois (au bout de 30 min) je trouve enfin une petite réponse)

GohanSSj2

c'est bon j'ai enfin trouvé et adapté !!!

voila le code:

Code :

sub test()
For I = Range("B1:B16" ).Cells.Count To 1 Step -1
If Sheets("Feuil2" ).Range("A1:A12" ).Find(what:=Range("B1:B16" ).Cells(I).Value) Is Nothing Then
Range("B1:B16" ).Cells(I).EntireRow.Delete
Else
End If
Next
End Sub

Merci à ce forum pour votre source d'inspiration et de bon sens

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro oublie des cellules [Résolu]

Sujets relatifs
Copier Coller des cellules sous conditions	LTI-LIB: Problèmes d'installation [Résolu]
[RESOLU]Accéder méthode ou objet autre Frame	[resolu] Probleme de syntaxe dans un UPDATE
Pb margin-top : 2 éléments côte-à-côte se chevauchent!	[RESOLU] mysqldump, php et dump vide :(
UserForm et Barre de progression [Résolu]	[résolu] Undefined index
[Résolu] Héritage de classe, récupérer attribut de la classe parent	[Résolu] Class et function
Plus de sujets relatifs à : Macro oublie des cellules [Résolu]

Page générée en 0.040 secondes