Test logique puis masquage de la ligne correspondante?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Test logique puis masquage de la ligne correspondante?

ezeckiel2k

Bonjour,

Je suis en train de créer (enfin, pas vraiment, vu que j'y arrive pas ) une macro à insérer dans ma macro auto_open()

Le principe est que la macro teste les cellules G1 à G200 pour voir si le texte "ABC" y est présent ou non...

La macro devrait ensuite sélectionner l'inverse de ces cellules, et donc masquer les lignes entières dans lesquelles la cellule G correspondante ne contient pas "ABC"...

Si quelqu'un a une piste, je suis preneur

Merci d'avance

Publicité

ezeckiel2k

Un chtitup

ezeckiel2k

Rechtitup

Gusdabo

Un truc du genre

For i = 1 to 200
if range("G" & i) = "ABC" then
Rows(i).RowHeight = 0
end if
next

ca te va??

galopin01

bonsoir,
Sinon il ya aussi cet article là :

Code :

Sub test()
For i = 1 To 200
If InStr(1, Cells(i, 7), "ABC", 1) = 0 Then Rows(i).Hidden = True
Next
End Sub

Instr est capable de détecter tachaine dans une chaine plus grande...
A+

---------------
roger

Gusdabo

Je connaissais pas InStr...
Merci du tuyeau!

AlainTech

Pas trouvé? Cherche encore!

Je propose ceci qui correspond mieux au résultat demandé:

Private Sub Workbook_Open()
Dim rRange As Range
Dim vCell As Variant
Set rRange = Range([G1], [G200])
For Each vCell In rRange
If InStr(1, UCase(vCell), "ABC" ) = 0 Then
vCell.EntireRow.Hidden = True
End If
Next vCell
End Sub

Accessoirement, il est déconseillé d'utiliser encore la macro auto_open qui a été gardée pour "compatibilité arrière".
Il est recommandé d'utiliser l'événement Open de ThisWorkbook.

Message édité par AlainTech le 01-07-2005 à 00:30:56

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Test logique puis masquage de la ligne correspondante?

Sujets relatifs
changer la couleur d'une ligne d'un tableau avec les css	test validation formulaire
Lire ligne précédente d'un fichier	ListBox ou ListView => chaîne trop longue, cmt passer à la ligne
mysql en ligne de commandes	formulaire : ajout d'une ligne
Probleme d'affichage css (retour a la ligne)	alignement à droite, au milieu et à gauche sur la même ligne
trouver le n° de ligne d'une combobox	Comment faire pr trouver la ligne associée d'une combobox dans
Plus de sujets relatifs à : Test logique puis masquage de la ligne correspondante?

Page générée en 0.034 secondes