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 🙂

 

[PascalXLD]

Re : Probleme de formule

Bonjour

ici

For Each o In Sheets("OGx").Range("D9:'D7695")

tu as un ' qui traine

 

[PascalXLD]

Re : Probleme de formule

re

essaies aussi de modifier

OG!B6

par

sheets(""OG").range("B6")

etc ...

 

[PascalXLD]

Re : Probleme de formule

re re

et là

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

tu es sûr que c'est bien x ????

 

[Payou]

Re : Probleme de formule

Lol oki je vais tester les 2 3 modifs, mais pour ce qui est du

For Each o In Sheets("OGx").Range("D9:'D7695")

c'est que sinon ca me faisais un smiley...lol

Je te tiens au courant avec les modifs...

Merci !!

Et pour ma question subsidiaire lol, pas d'idee ?

 

[Payou]

Re : Probleme de formule

Merci ca fonctionne ! Bon ca ma oter mon probleme de depart, mais ca ne me donne pas ce que je veux... Je vais continuer de chercher alors :S

 

[PascalXLD]

Re : Probleme de formule

RE

Pour ta question subsidiaire je ne l'avais pas vu

Je ne la comprends pas trop en fait

 

[Payou]

Re : Probleme de formule

Ben le but de ma macro etait de cacher toutes les lignes qui ne correspondaient pas au 3 criteres des cases OG B5 B6 et B7.

J'aurais ensuite voulu selectionner cette ligne, donc celle qui repond aux 3 criteres, pour ensuite la copier/coller avant d'en effacer le contenu, tout un programme. Mais pour l'instant ma macro me cache tout...

 

[ChTi160]

Re : Probleme de formule

Salut Payou
Bonjour le Fil (Pascal)

peut être cela(Exemple) pour la question "Subsidiaire"

For Lgn=1 to 5 '[COLOR=Red]pour chaque lignes[/COLOR]
 If Not (Rows(Lgn).Hidden)=True Then '[COLOR=Red]si non masquée[/COLOR]
     Msgbox "Non Masquée!!!!"  '[COLOR=Red]message[/COLOR]
 End if
Next Lgn

Bonne journée

 

[PascalXLD]

Re : Probleme de formule

re

essaies cela pour cacher

Sheets("OGx").Select
For x = 9 To 7695
If Range("D" & x) <> Sheets("OG").Range("B6") Or Range("I" & x) <> Sheets("OG").Range("B5") Or Range("A" & x) <> Sheets("OG").Range("B7") Then
Rows(x).Hidden = True
End If
Next

 

[Payou]

Re : Probleme de formule

Je vais essayer ce code merci beaucoup. Mais de toute facon pour l'instant ma macro folle, me cache toutes mes lignes une par une au lieu de me faire le tri... si jamais j'ai un element de reponse je post 🙂

 

[PascalXLD]

Re : Probleme de formule

re

sinon ce code te copies tes lignes visibles sur la feuille 2

Range("A1").SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil2").Range("A1")

 

[vbacrumble]

Re : Probleme de formule

Bonjour à tous



Un variante du code de Chti160 (que je salue)
(par amour du IIF 😉 )

Sub exemple()
Dim Lgn&
For Lgn = 1 To 5 'pour chaque lignes
MsgBox (IIf(Not (Rows(Lgn).Hidden), "nom masquée", "masquée"))
Next Lgn
End Sub

 

[Payou]

Re : Probleme de formule

Merci pour tant de reponses !!! J'en attendait pas tant, je suis gate !!!!

Je fais les tests et edit pour dire si tout fonctionne a merveille 🙂

Edit: La fonction pour "hide" les lignes a l'air de fonctionner, mais en fait le probleme est que dans ma colonne A, j'ai des cellules fusionnees, ce qui fait qu'elles renvoi a plusieurs lignes. Donc meme si ma recherche veut ne pas cacher la ligne dans laquelle se trouve ma reponse, elle le fera car d'autres lignes qui correspondent a la meme cellule en colonne A seront vides ou avec d'autres infos...

Comment faire pour qu'il ne me cache que la ligne ? Arf

 

[Payou]

Re : Probleme de formule

Je comprends pas tout a l'air correct sur le papier pour:

Sheets("OGx").Select
For x = 9 To 7695
If Range("D" & x) <> Sheets("OG").Range("B6") Or Range("I" & x) <> Sheets("OG").Range("B5") Or Range("A" & x) <> Sheets("OG").Range("B7") Then
Rows(x).Hidden = True
End If
Next

Et ca fonctionne pas :'(