Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Toggle nouvel requete

Toggle nouvel requete

20 réponses
Avatar
rthompson
Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS affecter le
reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou m'affiche les
lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le toggle Paid
ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Rex
Bonsoir à toi

Et môôôôôsieur Modeste a encore frappé

Si je n'aurais pas vu les solutions du cousin et de Garnotej'aurais crié au
miracle
Mais maintenant, comme je l'ai dit à Isabelle, je ne sais plus

Une petite question

Est-il possible de faire changer la couleur de tes boutons?

Vert si le texte est affiché et rouge si il est caché?

Macro simple, Userform j'ai l'impression que je vais y passer la nuit

MAIS

Surtout de grââââââce que mes insomnies ne empêche surtout pas de me
répondre
Parce que franchement

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


Et comme code cassé vous les méninges

"C'est quand l'or bruyant du ciel se couvre de chocolat"

Voilà, je ne serais pas le seul à me poser des questions cette nuit

A bientôt et surtout surtout surtout
Merci

Rex ;-)))) )))


de
"Modeste" a écrit dans le message de news:

Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Ce que moi je voudrais et je sais que je suis un emmerd????
Et qu'en plus je m'explique mal

Enfin voici ce que je cherche à faire

En admettant que tout est visible (Offer, Oerder, Invoiced, Paid,
etc)
Si je click sur le bouton Offer il les cache mais ne change rien aux
autres lignes
Et si je reclick desus, il me les affiche tout en ne changeant rien
d'autre


Vite fait alors ....
comme ceci en quelque sorte
http://cjoint.com/?iBvEbfx4fi

raffinement possible :
une seule macro paramétrée devrait pouvoir etre utilisée en lieu et place
de 6

macros quasiment identiques ... ;o)))
ou alors utiliser des cases à cocher (checkboxes) et application.caller


@+
;o)))





Avatar
Rex
Bonsoir à toi mon cher Cousin

Je suis comme Saint Pierre
(enfin je crois que c'est lui, et si c'est pas lui, c'est l'autre)

J'ai demandé qu'on m'ouvre la porte
Et elle fût ouverte

Et patatras de patatras je croule sous les solutions

Je passe plus de temps à vous répondre

(Et oui, Mosieureee, parce que contrairement au questionneur de robot
MOI, je réponds pour dire merci)

Et j'ai jamais eu autant de merci à dire que cette fois-ci

Donc mon cher Cousin
Enfin pas si cher que ça, puisque tu ne me coûtes pas un balle!
Juste une p'tite connection à internet
C'est pas cher payé pour la serviabilité des réguliers de ce groupe

Donc, disais-je, Mon cher Couisin
Je te remercie pour ta solution
Et si tu as déjà lu les messages qui sont partis il y a peu
tu verras que si j'ai la solution, je ne suis pas plus avancé pour ça

Enfin, ceci est non seulement mon problème, mais également une autre
histoire

A bientôt
et encore merci

Rex ;-))) )))

Et pour le plaisir

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


Et comme code à toi je donne Jupiter mais lis aussi le code des autres

Jupiter n'est qu'un indice

J'ai comme l'impression que notre Garnote à lancer quelque chose qui n'est
pas p^rès de retomber





"cousinhub" a écrit dans le message de news:

Bonjour, regarde le fichier joint :

http://cjoint.com/?iBtQAh1qV1


Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Avec Offer"
For Each c In Range([A2], [A7])
c.EntireRow.Hidden = ((c.Value = ["Offer"]))
Next c
Else
ToggleButton1.Caption = "Sans Offer"
Cells.EntireRow.Hidden = False
End If
End Sub

Private Sub UserForm_Initialize()
ToggleButton1.Caption = "Sans Offer"
End Sub


Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS
affecter le


reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou m'affiche
les


lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le toggle
Paid


ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx








Avatar
Rex
Bonsoir Garnote

Avant toute chose
Et même avant de te dire merci

Pourquoi Garnote??????

Et maintenant je te dis merci
Et aussi merci pour le code
J'ai l'impression qu'on a pas fini de le voir passer par-ci par-là celui là

Tellement de solution "Valables" que je ne sais pas laquelle choisir

Dans ton userform
Y a-t-il moyen d'agir sur la couleur des boutons?

Je sais que je peux leur donner une couleur fixe dans les propriétés
Mais peut-on les mettre en verts si c'est affiché et rouge si c'est caché

Deuxième chose
Et ceci je sais que c'est faisable, parceque je l'ai vu
Mais à ce moment cela ne me semblait pas utile
Et maintenant OUI, cela me serait utile

Comment fait-on pour que la feuille soit active en même temps que le
useform?

C'est à dire que j'aurais accès à une cellule sans devoir fermer le userform

A bientôt et surtout un grand MERCI à toi

Toujours le même message qu'au autres
Toujours le même code, mais un indice différent

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


A chaque fois que je fais une photo et qu'il ne fait pas clair

Et là ça devient facile, hein???


A bientôt

Rex ;-))) )))








"garnote" a écrit dans le message de news:

Bon voilà autre chose. Si j'ouvre mon exemple sur Cjoint, mes
macros boguent mais si j'enregistre l'exemple sur mon ordi,
tout est OK. Pourquoi en est-il ainsi ?
Et bien sûr, je voulais écrire infatigable ;-)

Serge

"garnote" a écrit dans le message de news:


Salut infatigale travailleur,

Voici un exemple de ma proposition en espérant
qu'elle puisse te convenir :

http://cjoint.com/?iBugrhwfpX


Serge


"garnote" a écrit dans le message de
news:


Salut Rex,

Je n'ai pas suivi le fil depuis le début mais ...
Je suppose ici que ta liste verticale contient exclusivement des mots
choisis dans Paid, Invoiced et Offer. Je nomme cette liste « tableau »
Je suppose aussi que tu as trois ToggleButton nommés respectivement
Invoiced, Offer et Paid. Alors ces trois macros me semble convenir.
Est-ce le cas ?

Serge

Private Sub Invoiced_Click()
If Me.Invoiced.Value = True Then
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Offer_Click()
If Me.Offer.Value = True Then
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Paid_Click()
If Me.Paid.Value = True Then
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = False
Next c
End If
End Sub





"rthompson" a écrit dans le message
de news: %23ELBA%



Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS
affecter le




reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou m'affiche
les




lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le toggle
Paid




ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


















Avatar
garnote
Merci Modeste,

Moé


"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :

Bon voilà autre chose. Si j'ouvre mon exemple sur Cjoint, mes
macros boguent mais si j'enregistre l'exemple sur mon ordi,
tout est OK. Pourquoi en est-il ainsi ?


because le userform sensé s'afficher est une fenetre et que cjoint ne gére pas les fenetres... :-(((
@+
;o)))





Avatar
garnote
Je te remercie de me remercier.
Comment fait-on pour que la feuille soit active en même temps que le
useform?
Dans la fenêtre des propriétés du UserForm, choisis False pour la

propriété ShowModal.

Serge


"Rex" a écrit dans le message de news: uP212$
Bonsoir Garnote

Avant toute chose
Et même avant de te dire merci

Pourquoi Garnote??????

Et maintenant je te dis merci
Et aussi merci pour le code
J'ai l'impression qu'on a pas fini de le voir passer par-ci par-là celui là

Tellement de solution "Valables" que je ne sais pas laquelle choisir

Dans ton userform
Y a-t-il moyen d'agir sur la couleur des boutons?

Je sais que je peux leur donner une couleur fixe dans les propriétés
Mais peut-on les mettre en verts si c'est affiché et rouge si c'est caché

Deuxième chose
Et ceci je sais que c'est faisable, parceque je l'ai vu
Mais à ce moment cela ne me semblait pas utile
Et maintenant OUI, cela me serait utile

Comment fait-on pour que la feuille soit active en même temps que le
useform?

C'est à dire que j'aurais accès à une cellule sans devoir fermer le userform

A bientôt et surtout un grand MERCI à toi

Toujours le même message qu'au autres
Toujours le même code, mais un indice différent

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


A chaque fois que je fais une photo et qu'il ne fait pas clair

Et là ça devient facile, hein???


A bientôt

Rex ;-))) )))








"garnote" a écrit dans le message de news:

Bon voilà autre chose. Si j'ouvre mon exemple sur Cjoint, mes
macros boguent mais si j'enregistre l'exemple sur mon ordi,
tout est OK. Pourquoi en est-il ainsi ?
Et bien sûr, je voulais écrire infatigable ;-)

Serge

"garnote" a écrit dans le message de news:


Salut infatigale travailleur,

Voici un exemple de ma proposition en espérant
qu'elle puisse te convenir :

http://cjoint.com/?iBugrhwfpX


Serge


"garnote" a écrit dans le message de
news:


Salut Rex,

Je n'ai pas suivi le fil depuis le début mais ...
Je suppose ici que ta liste verticale contient exclusivement des mots
choisis dans Paid, Invoiced et Offer. Je nomme cette liste « tableau »
Je suppose aussi que tu as trois ToggleButton nommés respectivement
Invoiced, Offer et Paid. Alors ces trois macros me semble convenir.
Est-ce le cas ?

Serge

Private Sub Invoiced_Click()
If Me.Invoiced.Value = True Then
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Offer_Click()
If Me.Offer.Value = True Then
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Paid_Click()
If Me.Paid.Value = True Then
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = False
Next c
End If
End Sub





"rthompson" a écrit dans le message
de news: %23ELBA%



Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS
affecter le




reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou m'affiche
les




lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le toggle
Paid




ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx






















Avatar
Modeste
Bonsour® Rex avec ferveur ;o))) vous nous disiez :

Est-il possible de faire changer la couleur de tes boutons?

Vert si le texte est affiché et rouge si il est caché?


http://cjoint.com/?iBxC2dOAMY


--
--
@+
;o)))

Avatar
garnote
Pour les changements de couleur,
maître Modeste vient de t'apporter
une solution.
Quant à :
Pourquoi Garnote??????
Gar pour Garneau et note because je suis prof de math.


Serge


"garnote" a écrit dans le message de news:

Je te remercie de me remercier.
Comment fait-on pour que la feuille soit active en même temps que le
useform?
Dans la fenêtre des propriétés du UserForm, choisis False pour la

propriété ShowModal.

Serge


"Rex" a écrit dans le message de news: uP212$
Bonsoir Garnote

Avant toute chose
Et même avant de te dire merci

Pourquoi Garnote??????

Et maintenant je te dis merci
Et aussi merci pour le code
J'ai l'impression qu'on a pas fini de le voir passer par-ci par-là celui là

Tellement de solution "Valables" que je ne sais pas laquelle choisir

Dans ton userform
Y a-t-il moyen d'agir sur la couleur des boutons?

Je sais que je peux leur donner une couleur fixe dans les propriétés
Mais peut-on les mettre en verts si c'est affiché et rouge si c'est caché

Deuxième chose
Et ceci je sais que c'est faisable, parceque je l'ai vu
Mais à ce moment cela ne me semblait pas utile
Et maintenant OUI, cela me serait utile

Comment fait-on pour que la feuille soit active en même temps que le
useform?

C'est à dire que j'aurais accès à une cellule sans devoir fermer le userform

A bientôt et surtout un grand MERCI à toi

Toujours le même message qu'au autres
Toujours le même code, mais un indice différent

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


A chaque fois que je fais une photo et qu'il ne fait pas clair

Et là ça devient facile, hein???


A bientôt

Rex ;-))) )))








"garnote" a écrit dans le message de news:

Bon voilà autre chose. Si j'ouvre mon exemple sur Cjoint, mes
macros boguent mais si j'enregistre l'exemple sur mon ordi,
tout est OK. Pourquoi en est-il ainsi ?
Et bien sûr, je voulais écrire infatigable ;-)

Serge

"garnote" a écrit dans le message de news:


Salut infatigale travailleur,

Voici un exemple de ma proposition en espérant
qu'elle puisse te convenir :

http://cjoint.com/?iBugrhwfpX


Serge


"garnote" a écrit dans le message de
news:


Salut Rex,

Je n'ai pas suivi le fil depuis le début mais ...
Je suppose ici que ta liste verticale contient exclusivement des mots
choisis dans Paid, Invoiced et Offer. Je nomme cette liste « tableau »
Je suppose aussi que tu as trois ToggleButton nommés respectivement
Invoiced, Offer et Paid. Alors ces trois macros me semble convenir.
Est-ce le cas ?

Serge

Private Sub Invoiced_Click()
If Me.Invoiced.Value = True Then
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Offer_Click()
If Me.Offer.Value = True Then
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Paid_Click()
If Me.Paid.Value = True Then
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = False
Next c
End If
End Sub





"rthompson" a écrit dans le message
de news: %23ELBA%



Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS
affecter le




reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou m'affiche
les




lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le toggle
Paid




ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


























Avatar
Rex
Bonsoir

Super rapide pour la réponse à ma question

Et MERCI

Je crois que tu viens de m'aprgner une nuit blanche

Et je vais choisir ta solution

A moins que ..........


Et pour l'énigme????

Pas d'idée??


A bientôt

Rex ;-))) )))




"Modeste" a écrit dans le message de news:
#
Bonsour® Rex avec ferveur ;o))) vous nous disiez :

Est-il possible de faire changer la couleur de tes boutons?

Vert si le texte est affiché et rouge si il est caché?


http://cjoint.com/?iBxC2dOAMY


--
--
@+
;o)))





Avatar
Rex
Et ben

Je te remercie de me remercier de te remercier

Et popur le userform je te dis aussi merci

Je savais que c'était un truc tout simple
Mais j'avais pas la moindre idée


Et toi, t'as une idée pour l'énigme???

A bientôt, et bonne nuit


Rex ;-))) )))


"garnote" a écrit dans le message de news:


Je te remercie de me remercier.
Comment fait-on pour que la feuille soit active en même temps que le
useform?
Dans la fenêtre des propriétés du UserForm, choisis False pour la

propriété ShowModal.

Serge


"Rex" a écrit dans le message de news:
uP212$

Bonsoir Garnote

Avant toute chose
Et même avant de te dire merci

Pourquoi Garnote??????

Et maintenant je te dis merci
Et aussi merci pour le code
J'ai l'impression qu'on a pas fini de le voir passer par-ci par-là celui
là



Tellement de solution "Valables" que je ne sais pas laquelle choisir

Dans ton userform
Y a-t-il moyen d'agir sur la couleur des boutons?

Je sais que je peux leur donner une couleur fixe dans les propriétés
Mais peut-on les mettre en verts si c'est affiché et rouge si c'est
caché



Deuxième chose
Et ceci je sais que c'est faisable, parceque je l'ai vu
Mais à ce moment cela ne me semblait pas utile
Et maintenant OUI, cela me serait utile

Comment fait-on pour que la feuille soit active en même temps que le
useform?

C'est à dire que j'aurais accès à une cellule sans devoir fermer le
userform



A bientôt et surtout un grand MERCI à toi

Toujours le même message qu'au autres
Toujours le même code, mais un indice différent

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


A chaque fois que je fais une photo et qu'il ne fait pas clair

Et là ça devient facile, hein???


A bientôt

Rex ;-))) )))








"garnote" a écrit dans le message de
news:



Bon voilà autre chose. Si j'ouvre mon exemple sur Cjoint, mes
macros boguent mais si j'enregistre l'exemple sur mon ordi,
tout est OK. Pourquoi en est-il ainsi ?
Et bien sûr, je voulais écrire infatigable ;-)

Serge

"garnote" a écrit dans le message de
news:




Salut infatigale travailleur,

Voici un exemple de ma proposition en espérant
qu'elle puisse te convenir :

http://cjoint.com/?iBugrhwfpX


Serge


"garnote" a écrit dans le message de
news:


Salut Rex,

Je n'ai pas suivi le fil depuis le début mais ...
Je suppose ici que ta liste verticale contient exclusivement des
mots





choisis dans Paid, Invoiced et Offer. Je nomme cette liste «
tableau »





Je suppose aussi que tu as trois ToggleButton nommés respectivement
Invoiced, Offer et Paid. Alors ces trois macros me semble convenir.
Est-ce le cas ?

Serge

Private Sub Invoiced_Click()
If Me.Invoiced.Value = True Then
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Offer_Click()
If Me.Offer.Value = True Then
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Paid_Click()
If Me.Paid.Value = True Then
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = False
Next c
End If
End Sub





"rthompson" a écrit dans le
message





de news: %23ELBA%
Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS
affecter le




reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou
m'affiche






les
lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le
toggle






Paid
ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


























Avatar
Rex
Je viens de passer une semaine avec (entre-autres) une vingtaine de prof de
math
J'étais avec Apple à Houfalize pour leur Déclic numérique

Et certains profs de math savent ce que s'amuser veut dire

J'ai comme l'impression qu'il y a des films qui vont circule sous les
manteaux

Moi j'y &tais pour donner des formations en tableaux interactifs


Je vends du matos idéale pour toi et sans pub jette ton oeil sur

www.prometheanworld.fr

Encore merci et à bientôt

PS pour le code il s'agit de éclair


Rex ;-))) )))

Et j'oubliais, oui j'ai vu le code de Môôôôdeste







"garnote" a écrit dans le message de news:


Pour les changements de couleur,
maître Modeste vient de t'apporter
une solution.
Quant à :
Pourquoi Garnote??????
Gar pour Garneau et note because je suis prof de math.


Serge


"garnote" a écrit dans le message de news:



Je te remercie de me remercier.
Comment fait-on pour que la feuille soit active en même temps que le
useform?
Dans la fenêtre des propriétés du UserForm, choisis False pour la

propriété ShowModal.

Serge


"Rex" a écrit dans le message de news:
uP212$


Bonsoir Garnote

Avant toute chose
Et même avant de te dire merci

Pourquoi Garnote??????

Et maintenant je te dis merci
Et aussi merci pour le code
J'ai l'impression qu'on a pas fini de le voir passer par-ci par-là
celui là




Tellement de solution "Valables" que je ne sais pas laquelle choisir

Dans ton userform
Y a-t-il moyen d'agir sur la couleur des boutons?

Je sais que je peux leur donner une couleur fixe dans les propriétés
Mais peut-on les mettre en verts si c'est affiché et rouge si c'est
caché




Deuxième chose
Et ceci je sais que c'est faisable, parceque je l'ai vu
Mais à ce moment cela ne me semblait pas utile
Et maintenant OUI, cela me serait utile

Comment fait-on pour que la feuille soit active en même temps que le
useform?

C'est à dire que j'aurais accès à une cellule sans devoir fermer le
userform




A bientôt et surtout un grand MERCI à toi

Toujours le même message qu'au autres
Toujours le même code, mais un indice différent

-SÑÔÝ'ÈYÐÙÆ?ãÚKÑЁÓTO^ÄÕÔ?âÊ^Ìà?ÖÊ`ÄÚÕ?ÞÆÙÕÕÛÛÓOfÐÆ?ÞÆÓÍÕÒåØOÕÕÆ


A chaque fois que je fais une photo et qu'il ne fait pas clair

Et là ça devient facile, hein???


A bientôt

Rex ;-))) )))








"garnote" a écrit dans le message de
news:




Bon voilà autre chose. Si j'ouvre mon exemple sur Cjoint, mes
macros boguent mais si j'enregistre l'exemple sur mon ordi,
tout est OK. Pourquoi en est-il ainsi ?
Et bien sûr, je voulais écrire infatigable ;-)

Serge

"garnote" a écrit dans le message de
news:





Salut infatigale travailleur,

Voici un exemple de ma proposition en espérant
qu'elle puisse te convenir :

http://cjoint.com/?iBugrhwfpX


Serge


"garnote" a écrit dans le message de
news:


Salut Rex,

Je n'ai pas suivi le fil depuis le début mais ...
Je suppose ici que ta liste verticale contient exclusivement des
mots






choisis dans Paid, Invoiced et Offer. Je nomme cette liste «
tableau »






Je suppose aussi que tu as trois ToggleButton nommés respectivement
Invoiced, Offer et Paid. Alors ces trois macros me semble convenir.
Est-ce le cas ?

Serge

Private Sub Invoiced_Click()
If Me.Invoiced.Value = True Then
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Invoiced" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Offer_Click()
If Me.Offer.Value = True Then
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Offer" Then c.EntireRow.Hidden = False
Next c
End If
End Sub

Private Sub Paid_Click()
If Me.Paid.Value = True Then
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = True
Next c
Else
For Each c In [tableau]
If c.Value = "Paid" Then c.EntireRow.Hidden = False
Next c
End If
End Sub





"rthompson" a écrit dans le
message






de news: %23ELBA%
Bonjour à toutes et tous

Je vais reposer ma question

Parceque je crois que comme j'ai dis que ça allais
plus personne ne suit ce fil

Donc je le relance

voici de quoi il s'agit



La petite macro du Toggle fonctionne impeccable

Mais elle cache toutes les lignes

Et j'aurais voulu un truc pour cacher ou montrer les lignes SANS
affecter le




reste du tableau

Par exemple

A
1 Offer
2 Offer
3 Order
4 Paid
5 Invoiced
6 Paid

Je voudrais qu'en actionnant le toggle Offer, il me cache ou
m'affiche







les
lignes 1 et 2
Mais que les autres restent affichées tant je n'actionne pas le
toggle







Paid
ou Invoiced

C'est un peu comme un TCD
Mais pour des raisons patronales, je ne peux pas passer par là

Donc j'espère que l'un d'entre vous aura une solution

A très bientôt

Rex

Et ci-dssous le code


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

If Range("I2") = "Offers Hidden" Then
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = Not ((c.Value = ["Offer"]))
Next c
Range("I2") = "Offers Shown"
ToggleButton1.Caption = "Hide Offers"

Else
For Each c In Range([H9], [H185])
c.EntireRow.Hidden = True
Next c
Range("I2") = "Offers Hidden"
ToggleButton1.Caption = "Show Offers"

End If
Application.ScreenUpdating = True

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx






























1 2