Probleme de formule

[Payou]

Bonjour a tous,

J'airais besoin de votre aide afin de regler un probleme dans une formule, qui lors du lancement de la macro me met: "Object required".

Sub Test()

Sheets("OGx").Select

Dim o As Range
For Each o In Sheets("OGx").Range("D9:'D7695")
If o.Value <> OG!B6 Then 😵ffset(, -3).MergeArea.EntireRow.Hidden = True
Next

Dim i As Range
For Each i In Sheets("OGx").Range("I9:I7695")
If i.Value <> OG!B5 Then i.Offset(, -5).MergeArea.EntireRow.Hidden = True
Next

Dim b As Range
For Each b In Sheets("OGx").Range("A9:A7695")
If b.Value <> OG!B7 Then x.Offset(, 0).MergeArea.EntireRow.Hidden = True
Next

End Sub

Je comprends pas trop, car pour moi toutes les valeurs sont renseignees...

Merci de votre aide !!!

Payou

Petite question subsidiaire: En VBA pour selectionner la ligne qui sera pas cachee, ca sera:
Unhiddenrow.select ? ou un truc du genre lol ? Merci 🙂

 

[job75]

Re : Probleme de formule

Re,

Mieux, essayer :

Sheets("OGx").Select
[COLOR="Red"]Application.ScreenUpdating = False
Rows("9:7695").Hidden = False[/COLOR]
With Sheets("OG")
For x = 9 To 7695
If Range("D" & x) <> .Range("B6") Or Range("I" & x) <> .Range("B5") _
Or Range("A" & x).MergeArea.Cells(1, 1) <> .Range("B7") Then Rows(x).Hidden = True
Next
End With

A+

 

[Payou]

Re : Probleme de formule

Sans vouloir faire le mec relou, bon je sens que c'est deja rate la... mais la macro est super lente. Y aurait il des moyens pour l'accellerer ?

Mais en tout cas merci, tu viens de me resoudre mon probleme de cellule fusionnee !

Payou

EDIT: MDR, meme pas le temps de demander que tu avais exoce mes voeux ! Un grand merci !

 

[vbacrumble]

Re : Probleme de formule

Bonjour tous



Avec le filtre automatique c'est immédiat, et effectivement la présence de cellules fusionnées dans la colonne A pose problème.


Sans ces cellules fusionnées, le filtre automatique marche impec.

 

[Payou]

Re : Probleme de formule

En effet le filtre automatique est une tres bonne idee car il est tres rapide. Seulement il ne gere pas les cellules fusionnees, pour la "location". Je l'utilise doonc sur mes deux premiers criteres, et selectionne ensuite manuellement la ligne qui m'interesse.

Mais en tous cas merci pour l'idee du filtre auto, qui fait des merveilles !

Payou