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

re

il faut eviter les cellules fusionnées c'est toujours la galère

Mets un fichier exemple pour voir mais si tu as des cellules fusionnées cela va être galère

 

[Payou]

Re : Probleme de formule

Hehe j'ai compris pourquoi ca fonctionne pas, mais pas comment resoudre le probleme...

Le probleme est le suivant: la reponse de B7 est une cellule fusionnee, c'est pour ca que ca fonctionne pas.. Est ce-que qq'un aurait une idee pour modifier la formule ci-dessus svp ?

Desole ma fiche etait pas a jour, je met le fichier en ligne. Merci

EDIT: V2

 

[Payou]

Re : Probleme de formule

Naaaan l'est parti PascalXLD, personne pour m'aider sinon ?

Merci pour toute aide 😀

J'ai ajoute l'actuelle macro dans la fiche. Avis aux amateurs 😛

 

[PascalXLD]

Re : Probleme de formule

Bah perso ça marche il m'a laissé 2 lignes visibles

 

[Payou]

Re : Probleme de formule

Aucun volontaire pout m'aider dans ma tache 🙂 Arf, vu mes connaissances en VBA... Je profite de ce post pour demander vite fait si qq'un serait me conseiller un bon bouquin pour un debutant complet en VBA ? thx

 

[vbacrumble]

Re : Probleme de formule

Bonjour



Ici il n'y a rien d'urgent.


On n'est pas salarié mais bénévoles.


Et on a le temps de prendre son temps 😉


Pour info: pourquoi ne pas utiliser le filtre automatique ?

 

[Payou]

Re : Probleme de formule

Euh dsl VBACrumble, je voulais presser personne, desole que mon post te l'ai laisse penser. Je respect trop toutes les personnes qui m'ont deja rendu d'immenses services sur ce forum pour me permettre ce genre de remarques bien au contraire...

Pour PascalXLD, oui moi aussi j'ai 2 reponses, c'est d'ailleurs mon soucis, il me faudrait que la reponse dont l'emplacement a ete renseignee dans OG... Or lorsque l,on complete cette info, il "hide" tout :S

 

[PascalXLD]

Re : Probleme de formule

re

tu devrais avoir quoi alors ? la ligne 15 ou 78 ?

 

[vbacrumble]

Re : Probleme de formule

Re


Je viens d'essayer avec le filtre automatique

Ca fonctionne non ?

Ligne 15 et ligne 78 afichées comme PascalXLD

(PS: tu peux manipuler le filtre automatique par VBA )

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/05/2009 par VBACrumble
'
Dim F As Worksheet
Dim BatchNumber$
Dim Model$
Dim Location$
Set F = Sheets("OG")
BatchNumber = F.[B5].Text
Model = F.[B6].Text
Location = F.[B7].Text

Sheets("OGx").Range("A1").AutoFilter 4, Model
Sheets("OGx").Range("A1").AutoFilter 9, BatchNumber
End Sub

 

[Payou]

Re : Probleme de formule

Merci pour toutes vos reponses.

Pour repondre vite fait quand meme a PascalXLD

tu devrais avoir quoi alors ? la ligne 15 ou 78 ?

Ben en fait justement ca devrait etre la 15 si dans "OG Location" je renseignais la case et mettais 010105 et la 78 si dans la case location de OG je mettais 010212. En fait j'aimerais faire le tri selon ces 3 criteres pour etre sur de supprimer le bon objet...

Merci pour vos reponses, si jamais vous auriez encore qq'idee je suis preneur 🙂

EDIT: J'ai essayer ta solution VBACrumble, mais lorsque je rajoute le troisieme filtre a savoir la location, ca me fait le meme resultat: ca "hide" tout 🙁

 

[Payou]

Re : Probleme de formule

Je me permet un petit UP, car j'ai toujours besoin d'aide 🙂

 

[job75]

Re : Probleme de formule

Bonjour Payou, le fil, le forum,

J'ai noté qu'il y a des cellules fusionnées en colonne A Je suppose qu'il n'y en a pas en colonnes D et I.

Le code de Pascal modifié :

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

A+

 

[Payou]

Re : Probleme de formule

Bonjour,

Oui tu as bien cerne mon probleme ce sont ces fichues cellules fusionnees, mais j'en ai malheuresement besoin.

J'ai lance la macro, mais bizarement il ne se passe rien... Je vais essayer de trouver pourquoi, et je ferai un edit.

Merci pour ton aide 🙂

Payou

 

[job75]

Re : Probleme de formule

Re,

Je pensais que la supression du If...Then était mieux. Essayer alors :

Sheets("OGx").Select
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

Ben je sais pas trop quoi dire, ca fonctionne pas non plus...

C'est possible que trop de macro tue la macro ?

J'en ai trop pour ce fichier ? Ce serait pas cool ca :S

C'est possible que je la mette pas au bon endroit dans mon editeur VBA? Parce que meme si je remet l'enseigne formule ca me fait rien lol.

EDIT: Oui c'etait bien ca, j'etait pas dans le bon worksheet. Desole pour ca :S

Maintenant tout va pour le mieux merci, et ta macro fait des merveilles 😀