modification du range de la macro

[Freddy]

Bonjourn, je souhaiterias modifier la largeur du tableau de cette macro... en effet, je souhaite que la macro prenne en compte toutes les colonnes ( de A à l'infini... ou au moins à "AX")
Malheuresement, j ai beau modifier les lignes suivantes, rien n'y fait...


ActiveSheet.Range("B2:AX2")((.ListIndex + 1) + ((C - 1) * 6)).EntireColumn.Hidden = Not OnOff

et

For Each cell In ActiveSheet.Range("B2:AX2")
If cell.Value < cell.Offset(0, -1).Value Then GoTo Fin
.AddItem (cell.Value)
.List(.ListCount - 1, 1) = IIf(cell.EntireColumn.Hidden, Mask, "")
Next cell

voilà, si quelqun avait une idée...

Tant que j'y suuis, je souhaite etendre le tri de cette boite de dialogue en incluant une autre zone de selection aux villes, de la meme manière... (et ainsis pouvoir prendre uniquement london 2006/2007) <== mais ce p est moins primordial ... 😱)

Merci si quelqun a une idée ...
Fred

 

[Banzai64]

Re : modification du range de la macro

Bonjour

As tu essayé
Ta_Plage.Resize(Nombre_de_Ligne_que_tu_veux , Nombre_de_colonnes_que_tu_veux)

 

[Freddy]

Re : modification du range de la macro

well 😱) j ai un peu peur de ne pas comprendre pratiquement... j ai joint le fichier à mon premier post 😉 si ca peut t inspirer ! 😱)

Merci
Fred

 

[Banzai64]

Re : modification du range de la macro

Bonjour

Pour le 1er problème

 

[Freddy]

Re : modification du range de la macro

Ok merci beaucoup 😉

par contre le souci ...

Je ne vois pas ou tu as modifié le code, peux tu m'en dire plus ?

et il génère désormais des doublons 😕

 

[SergiO]

Re : modification du range de la macro

Bonjour freddy, Banzai,

Je viens de voir par hasard ce fil alors que celui auquel j'ai répondu est celui-ci:
https://www.excel-downloads.com/threads/macro-afficher-masquer-des-colonnes.84571/

Essaie de rester sur le même sujet et de ne pas multiplier les fils.

Mon dernier post doit permettre d'élargir le tableau et d'obtenir toutes les données.

@+

 

[Freddy]

Re : modification du range de la macro

c'est vrai sergio, javais multiplié les fils ... et du coup j etais un peu embeté ... ceci etant, la dernière modif ne permet pas d'elargir le tableau, (cela fonctionne pour les villes mais pas pour les années...) ... c'est pourquoi je n'avai pas mis fin à ce fil en espérant pouvoir comprendre ou dans le code modifier la largeur des colonnes ...


en tout cas merci à tous deux,

sergio si tu as une ptite idée concernant ce bug ...

encore sorry et merci 😉

Fred

 

[SergiO]

Re : modification du range de la macro

Re,

Pour moi ça marche, j'ai rajouté 2 villes et l'année 2012 dans l'exemple ci-joint.

@+

 

[Freddy]

Re : modification du range de la macro

pardon...j ai du mal m'exprimer alors ...

en fait, sur ton exemple ca marche jusqu'en AX (je ne sais pas pourquoi d'ailleurs...)

mais si tu passes 2012 en "masquée" il appaarait toujours dans la rubrique "MSP average" ... (je ne sais aps si je suis plus clair 🙁 😕 )

merci 🙂

Fred

 

[SergiO]

Re : modification du range de la macro

Re,

Je n'avais pas compris 🙁

Remplace ce code, ça devrait mieux fonctionner ensuite.

Private Sub MasqueAfficheF(OnOff As Boolean)
Dim C, NbA, NbV As Integer
NbA = ListboxF.ListCount
NbV = ListBoxV.ListCount
With ListboxF
    For C = 1 To NbV
    ActiveSheet.Range("B2:IV2")((.ListIndex + 1) + ((C - 1) * NbA)).EntireColumn.Hidden = Not OnOff
    .List(.ListIndex, 1) = IIf(OnOff, "", Mask)
     Next C
End With
ListBoxF_Click
ActiveWindow.ScrollColumn = 1
End Sub

@+

 

[Freddy]

Re : modification du range de la macro

Merci sergio 😉

j aurai ptet un ou deux autres questions concernant cette macro mais pour plus tard 😱) héhé

lool

bon j arret de t embeter ...merci bcp pour ton aide... de gde qualité ...emrci à toi aussi banzaï

Fred