Probléme selection multiple [Résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probléme selection multiple [Résolu]

GohanSSj2

Bonjour à tous,

J'ai un petit souci de selection.

Voici mon code

Code :

Sub Test()
For I = 1 To Range("AC2", Range("AC2" ).End(xlDown)).Cells.Count Step 1
If Sheets("CodeStationHN" ).Range("B2:B52" ).Find(what:=Range("AC2", Range("AC2" ).End(xlDown)).Cells(I).Value) Is Nothing Then
Range("AC2", Range("AC2" ).End(xlDown)).Cells(I).EntireRow.Select Replace:=False
End If
Next
End Sub

J'ai une erreur à la ligne 5

Lorsque j'enléve le Replace:=False à la fin, la macro marche bien mais me selectionne mes lignes les unes aprés les autres sans tenir compte des précédentes. Donc en mettant Replace:=False cela devrait marcher ... mais non lol.
J'arrive pas à piger pourquoi.

Avez-vous une idée ?

Message édité par GohanSSj2 le 03-05-2010 à 16:08:43

Publicité

GohanSSj2

Petite précision : Le but est de selectionner toutes les lignes qui ne correspondent pas au critére définie dans la fonction If.

Je souhaite ensuite supprimer toutes ces lignes par un entirerow.delete

Au début j'avais insérer le entirerow.Delete aprés le Then (le code est légérement différent avec un Step -1, etc.) mais l'execution de la commande était vraiment trop long.
Donc en selectionnant tous puis en supprimant une seule fois je pense que cela ira plus vite que de supprimer les lignes une à une.

GohanSSj2

C'est bon j'ai trouvé, il fallait utiliser la commande Union

Voici le code pour ceux que ça interesse.

Code :

Sub Test()
Dim Rs As Range, Rst As Range
For Each c In Range(Range("AC2" ), Range("AC2" ).End(xlDown))
If Sheets("CodeStationHN" ).Range("B1:B52" ).Find(what:=c.Value) Is Nothing Then
Set Rs = c.EntireRow
If Rst Is Nothing Then
Set Rst = Rs
Else
Set Rst = Application.Union(Rst, Rs)
End If
End If
Next
Rst.Select
End Sub
Selection.Delete

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Probléme selection multiple [Résolu]

Sujets relatifs
Covariance VBA: Problème	[CSS] Problème taille typo
Probleme avec lgsl_v5.7_e107 gametracker	Problème d'iframe qui redirige...
Problème avec les "à" qui deviennent des "�"	Problème de boucle [resolu]
Petit probleme de macro VBA sous Excel	probleme pour cacher les erreurs de connexion à database
Probléme avec phpmyadmin et easyphp 5.3.1.0
Plus de sujets relatifs à : Probléme selection multiple [Résolu]

Page générée en 0.051 secondes