Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Encore et toujours mon toggle Modeste ou un autre svp

9 réponses
Avatar
rthompson
Bonsoir

J'espère que tu es là, môôôdeste
Parceque je ne crois pas qu'un autre (j'ose plus écrire "n'importe qui" )
puisse m'aider


Avant tout merci merci merci

Voici ton code pour les toggle et je ne parviens pas à l'adapter

Je REFUSE (enfin pour le moment) que toi, ou un autre, adapte mon fichier
JE VEUX comprendre,parceque c'est quelque chose que j'envisage de faire
régulièrment
j'ai ajouté mes commentaires, mais pourrais-tu m'expliquer là ou je coince
Et puis que faut-il adapter?


Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que cela
met la machine en route

Application.ScreenUpdating = False

xxx C'est évident

For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher quelque
chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")

xxx Et ici je coince en admetant que "L" soit la colonne
ou tu as la liste, pourquoi le 1
xxx Et pourquoi un True-False en "M", uniquement pour
changer le titre du bouton?

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le contenu
de la cellule "M"

ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

xxx Et ici je suppose qu'il se contente de changer la
couleur

End Sub
xxx Et ici il déballe ces tartines, débouche son
Bourgogne et va picnicker


Donc voilà

Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas

Donc je suppose que je dois adapter certains paramètres
Mais si je chipotte au hasard, j'arrive à rien

Avant que je ne te le demande de le faire toi-même
Si tu as le temps

Explique-moi


D'avance un grand merci et à très bientôt

Rex ;-)))))))

9 réponses

Avatar
Philippe.R
Bonsoir TRex,
M'en voudras tu si, modestement, je commence un début de commencement de
réponse ?

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que cela
met la machine en route
Ca commande l'exécution des procédures évenementielles à ce moment précis


For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher quelque
chose
Non solum, sed etiam précise qu'il faut parcourir chaque élément de ladite

plage

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")
Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans

cells(x,y) !

--
Et tout ça, avec plaisir
Philippe.R
"rthompson" a écrit dans le message de
news:
Bonsoir

J'espère que tu es là, môôôdeste
Parceque je ne crois pas qu'un autre (j'ose plus écrire "n'importe qui" )
puisse m'aider


Avant tout merci merci merci

Voici ton code pour les toggle et je ne parviens pas à l'adapter

Je REFUSE (enfin pour le moment) que toi, ou un autre, adapte mon fichier
JE VEUX comprendre,parceque c'est quelque chose que j'envisage de faire
régulièrment
j'ai ajouté mes commentaires, mais pourrais-tu m'expliquer là ou je coince
Et puis que faut-il adapter?


Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que cela
met la machine en route

Application.ScreenUpdating = False

xxx C'est évident

For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher quelque
chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")

xxx Et ici je coince en admetant que "L" soit la
colonne ou tu as la liste, pourquoi le 1
xxx Et pourquoi un True-False en "M", uniquement pour
changer le titre du bouton?

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu de la cellule "M"

ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

xxx Et ici je suppose qu'il se contente de changer la
couleur

End Sub
xxx Et ici il déballe ces tartines, débouche son
Bourgogne et va picnicker


Donc voilà

Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas

Donc je suppose que je dois adapter certains paramètres
Mais si je chipotte au hasard, j'arrive à rien

Avant que je ne te le demande de le faire toi-même
Si tu as le temps

Explique-moi


D'avance un grand merci et à très bientôt

Rex ;-)))))))



Avatar
Hervé
Bonsoir Rex,
Les commentaires sont dans le code du bouton bascule. En espérant que tu
comprennes un peu mieux le fonctionnement de ce code bien que, comme
Philippe, je ne sois pas super "Môôôdeste" ;o)) :

Private Sub ToggleButton1_Click()
'évite que la proc ne monopolise le processeur
DoEvents

'évite le rafraîchissement
'(gain de temps d'exécution)
'et évite le scintillement dû au
'masquage des lignes (Hidden)
Application.ScreenUpdating = False

'pour chaque cellule de la plage
'exécute le code qui suit...
For Each C In Range("H9:H185")

'si la valeur de la cellule est égale à
'la cellule L1 alors, cache la ligne
'à condition que la cellule M1 soit à False
'sinon, ne la masque pas !
If C.Value = Cells(1, "L") Then _
C.EntireRow.Hidden = Cells(1, "M")

'xxx Et ici je coince en admetant que "L" soit la colonne
'ou tu as la liste, pourquoi le 1
'Le 1 est la ligne 1
'xxx Et pourquoi un True-False en "M", uniquement pour
'changer le titre du bouton?
'Là, ça ne change pas le titre du bouton mais masque la ligne
'de la cellule "active" dans la bouche For Each-Next

'passe à la cellule suivante
Next
'rétabli le rafraîchissement de la feuille
Application.ScreenUpdating = True

'affecte au caption du bouton la valeur de
'la cellule L1 .Offset(0, -1)=> recule d'une colonne (-1)
'mais ne change pas de ligne (0)

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
'xxx Je suppose qu'il met en "Texte de bouton" le contenu
'de la cellule "M"
'non, celle de la cellule L1

'teste la valeur de la cellule M1, si True couleur en rouge
'sinon, couleur en vert
ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

End Sub

Hervé.


"rthompson" a écrit dans le message de
news:
Bonsoir

J'espère que tu es là, môôôdeste
Parceque je ne crois pas qu'un autre (j'ose plus écrire "n'importe qui" )
puisse m'aider


Avant tout merci merci merci

Voici ton code pour les toggle et je ne parviens pas à l'adapter

Je REFUSE (enfin pour le moment) que toi, ou un autre, adapte mon fichier
JE VEUX comprendre,parceque c'est quelque chose que j'envisage de faire
régulièrment
j'ai ajouté mes commentaires, mais pourrais-tu m'expliquer là ou je coince
Et puis que faut-il adapter?


Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela

met la machine en route

Application.ScreenUpdating = False

xxx C'est évident

For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher quelque
chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")

xxx Et ici je coince en admetant que "L" soit la
colonne

ou tu as la liste, pourquoi le 1
xxx Et pourquoi un True-False en "M", uniquement pour
changer le titre du bouton?

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu

de la cellule "M"

ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

xxx Et ici je suppose qu'il se contente de changer la
couleur

End Sub
xxx Et ici il déballe ces tartines, débouche son
Bourgogne et va picnicker


Donc voilà

Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas

Donc je suppose que je dois adapter certains paramètres
Mais si je chipotte au hasard, j'arrive à rien

Avant que je ne te le demande de le faire toi-même
Si tu as le temps

Explique-moi


D'avance un grand merci et à très bientôt

Rex ;-)))))))




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

Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net
en mode creation lors de de l'utilisation de la boite à outils Controles

c'est le nom (Name) qui apparait dans la fenetre propriétés

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela met la machine en route
cela permet la gestion des evenements windows, en l'occurence le

rafraichissement d'écran,
cela est nécessaire pour la mise à jour de la cellule liée
(Propriété Linked cell du toggle button concerné)
on verra plus loin l'utilisation de la colonne M
il est important que cela soit fait avant l'interdiction qui suit ;o)))

Application.ScreenUpdating = False
xxx C'est évident
c'est surtout pour éviter les clignotements, et accélérer le code


For Each C In Range("H9:H185")
xxx Ici il indique la plage ou il va chercher
quelque chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")
xxx Et ici je coince en admetant que "L" soit la
colonne ou tu as la liste, pourquoi le 1
le 1 correspond à la ligne ou l'on trouve le libellé su status


xxx Et pourquoi un True-False en "M", uniquement
pour changer le titre du bouton?
Non dans ce cas c'est récupérer l'état du ToggleButton (LinkedCell évoqué

ci-dessus)

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu de la cellule "M"
décaler d'une colonne vers la gauche ;o)))

en effet ceci est superfetatoire, le caption pouvant etre figé lors de la
création ToggleButton1.Caption ="Order"
on aurai pu tout aussi bien écrire ToggleButton1.Caption = Cells(1, "L")
j'avais en fait dans l'idee de completer le libellé par le nombre de status
concernés colonne K ;o)))
ToggleButton1.Caption = Cells(1,"L") & Chr(10) & Format(Cells(1,
"L").Offset(0, -1),"0 ###")


ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)> xxx Et ici je
suppose qu'il se contente de changer la couleur
Tout à fait ;o)))

tu remarqueras l'utilisation de IIF qui permet d'alléger le code (if then else)
;o)))

End Sub
Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas


il suffit alors de renommer les procs concernées
Private Sub ToggleButton1_Click() > Private Sub ToggleButton7_Click()
et
Private Sub ToggleButton2_Click() > Private Sub ToggleButton8_Click()
attention j'ai peur cependant qu'il y ait interference avec les procs
éventuellement déja affectées à tes ToggleButton1 et ToggleButton2

Mais si je chipotte au hasard, j'arrive à rien


perhaps ....with little expenditure of money ...cheaply ???

le hasard et la nécessité ...???? (Jacques Monod)
;o)))



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

Avatar
Modeste
Bonsour® Philippe.R avec ferveur ;o))) vous nous disiez :

Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans
cells(x,y) !


Il n'y a pas d'age pour apprendre !!!
;o)))

@+
;o)))

Avatar
Mgr.Abile
Ouf !
C'est mieux, pour lui !
--
Allez en paix
T.Abile
"Modeste" a écrit dans le message de
news:Oiu$
Bonsour® Philippe.R avec ferveur ;o))) vous nous disiez :

Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans
cells(x,y) !


Il n'y a pas d'age pour apprendre !!!
;o)))

@+
;o)))





Avatar
Rex
Ben non

Je ne t'en veux pas pour ce début de réponse

La preuve je te fais un début de mer



Allez, je suis bon prince tu reçois même la fin ci


Merci à toi


Et pour le latin J'AI COMPRIS !!!!!!!!

Comme je parlais de plage, tu me dis

Non mon salo! (puis tu fais allusion au magasin Miss Etam
Sûrement pour des maillots

Tu vois, hein que je suis malin ;-))))))


Et puis j'suis heureux

T'as vu les essssplikationnement que j'ai reçu de Môôôôdeste et d'Hervé
(j'espère que son nom n'as pas de rapport avec le fromage de Herve)
Et de toi, biensûr

C'est pas toujours facile, mais j'apprends, oui oui oui j'apprends

Et toujours avessssssse le sourrrrirrrrre

Rex ;-))) )))

Et encore merci




"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
OeFX2$
Bonsoir TRex,
M'en voudras tu si, modestement, je commence un début de commencement de
réponse ?

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela


met la machine en route
Ca commande l'exécution des procédures évenementielles à ce moment précis


For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher quelque
chose
Non solum, sed etiam précise qu'il faut parcourir chaque élément de ladite

plage

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")
Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans

cells(x,y) !

--
Et tout ça, avec plaisir
Philippe.R
"rthompson" a écrit dans le message de
news:
Bonsoir

J'espère que tu es là, môôôdeste
Parceque je ne crois pas qu'un autre (j'ose plus écrire "n'importe
qui" )


puisse m'aider


Avant tout merci merci merci

Voici ton code pour les toggle et je ne parviens pas à l'adapter

Je REFUSE (enfin pour le moment) que toi, ou un autre, adapte mon
fichier


JE VEUX comprendre,parceque c'est quelque chose que j'envisage de faire
régulièrment
j'ai ajouté mes commentaires, mais pourrais-tu m'expliquer là ou je
coince


Et puis que faut-il adapter?


Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela


met la machine en route

Application.ScreenUpdating = False

xxx C'est évident

For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher quelque
chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")

xxx Et ici je coince en admetant que "L" soit la
colonne ou tu as la liste, pourquoi le 1
xxx Et pourquoi un True-False en "M", uniquement pour
changer le titre du bouton?

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu de la cellule "M"

ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

xxx Et ici je suppose qu'il se contente de changer la
couleur

End Sub
xxx Et ici il déballe ces tartines, débouche son
Bourgogne et va picnicker


Donc voilà

Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas

Donc je suppose que je dois adapter certains paramètres
Mais si je chipotte au hasard, j'arrive à rien

Avant que je ne te le demande de le faire toi-même
Si tu as le temps

Explique-moi


D'avance un grand merci et à très bientôt

Rex ;-)))))))






Avatar
Rex
Bonsoir

Et avant toute chose MERCI

Y a des jours que je déconne tellement dans mes messages de remerciements
que j'en oublies de remercier

C'est un comble, envoyer un message pour dire merci
et oublier de dire merci

Mais malgré tout en profiter pour demander autre chose ;-))))


Enfin maintenant je t'ai dis merci

Et tes explications ajoutées à celle de Philippe et de Môôôsieurrrrrree
Môôôdeste
On au moins le mérite d'être tellement "explicatives" qu'il va me valoir la
nuit pour les comprendre

Enfin, avec un peu de zizique en MP3, un petit Armagnac (non virtuel
celui-là) et quelques heures de tranquilité, je finirai par comprendre

Merci de d'être donné la peine de détailler le code

Et j'espère que ton pseudo n'a aucun rapport avec le "fumet" du fromage de
Herve (au nord de Liège)


Bonne nuit et encore merci


Rex ;-))) ))) (toujours ce double menton)





"Hervé" a écrit dans le message de news:
#
Bonsoir Rex,
Les commentaires sont dans le code du bouton bascule. En espérant que tu
comprennes un peu mieux le fonctionnement de ce code bien que, comme
Philippe, je ne sois pas super "Môôôdeste" ;o)) :

Private Sub ToggleButton1_Click()
'évite que la proc ne monopolise le processeur
DoEvents

'évite le rafraîchissement
'(gain de temps d'exécution)
'et évite le scintillement dû au
'masquage des lignes (Hidden)
Application.ScreenUpdating = False

'pour chaque cellule de la plage
'exécute le code qui suit...
For Each C In Range("H9:H185")

'si la valeur de la cellule est égale à
'la cellule L1 alors, cache la ligne
'à condition que la cellule M1 soit à False
'sinon, ne la masque pas !
If C.Value = Cells(1, "L") Then _
C.EntireRow.Hidden = Cells(1, "M")

'xxx Et ici je coince en admetant que "L" soit la colonne
'ou tu as la liste, pourquoi le 1
'Le 1 est la ligne 1
'xxx Et pourquoi un True-False en "M", uniquement pour
'changer le titre du bouton?
'Là, ça ne change pas le titre du bouton mais masque la ligne
'de la cellule "active" dans la bouche For Each-Next

'passe à la cellule suivante
Next
'rétabli le rafraîchissement de la feuille
Application.ScreenUpdating = True

'affecte au caption du bouton la valeur de
'la cellule L1 .Offset(0, -1)=> recule d'une colonne (-1)
'mais ne change pas de ligne (0)

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
'xxx Je suppose qu'il met en "Texte de bouton" le contenu
'de la cellule "M"
'non, celle de la cellule L1

'teste la valeur de la cellule M1, si True couleur en rouge
'sinon, couleur en vert
ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

End Sub

Hervé.


"rthompson" a écrit dans le message de
news:
Bonsoir

J'espère que tu es là, môôôdeste
Parceque je ne crois pas qu'un autre (j'ose plus écrire "n'importe
qui" )


puisse m'aider


Avant tout merci merci merci

Voici ton code pour les toggle et je ne parviens pas à l'adapter

Je REFUSE (enfin pour le moment) que toi, ou un autre, adapte mon
fichier


JE VEUX comprendre,parceque c'est quelque chose que j'envisage de faire
régulièrment
j'ai ajouté mes commentaires, mais pourrais-tu m'expliquer là ou je
coince


Et puis que faut-il adapter?


Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela

met la machine en route

Application.ScreenUpdating = False

xxx C'est évident

For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher
quelque


chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")

xxx Et ici je coince en admetant que "L" soit la
colonne

ou tu as la liste, pourquoi le 1
xxx Et pourquoi un True-False en "M", uniquement
pour


changer le titre du bouton?

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu

de la cellule "M"

ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

xxx Et ici je suppose qu'il se contente de changer
la


couleur

End Sub
xxx Et ici il déballe ces tartines, débouche son
Bourgogne et va picnicker


Donc voilà

Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas

Donc je suppose que je dois adapter certains paramètres
Mais si je chipotte au hasard, j'arrive à rien

Avant que je ne te le demande de le faire toi-même
Si tu as le temps

Explique-moi


D'avance un grand merci et à très bientôt

Rex ;-)))))))








Avatar
Rex
Bonsoir mon très cher maître môôôôdeste

Franchement je ne sais plus quoi te dire
A chaque fois que j'ai des soucis, neuf fois sur dix, tu es là
avec une solution appropriée
Mais pour la dixième, hein??

Je me demande ce que tu fais lors de mes dixièmes requêtes, hein????
Qu'est-ce tu fous pendant je me tracasse, hein????

Tu fous rien, voilà la vérité!!
Sous pretext que je ne suis pas le seul à aider
Ou encore que Môôôsieurrrr à du travail rénumérateur à terminer

Et pendant ce temps là, ce sont les autres qui doivent répondre, hein
Faudra que ça change
Je vais le signaler à Misange, moi, non mais

But sirosly

Oupssss (ça doit être l'armagnac)

But seriously my friend

Un grand merci à toi pour ces explications

Pour le code des toggle 1 et 2

J'avais résolu autrement


J'ai tout supprimé et puis j'ai recopier les six de ton fichier

Donc cela fonctionnait, mais maintenant je crois (d'ailleurs je vais essayer
demain)
que je pourrais en créer de toute pièces pour d'autres feuilles


Encore merci et à très bientôt pour de nouvelles aventures


Rex ;-))) )))





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

Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net
en mode creation lors de de l'utilisation de la boite à outils Controles

c'est le nom (Name) qui apparait dans la fenetre propriétés

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela met la machine en route
cela permet la gestion des evenements windows, en l'occurence le

rafraichissement d'écran,
cela est nécessaire pour la mise à jour de la cellule liée
(Propriété Linked cell du toggle button concerné)
on verra plus loin l'utilisation de la colonne M
il est important que cela soit fait avant l'interdiction qui suit ;o)))

Application.ScreenUpdating = False
xxx C'est évident
c'est surtout pour éviter les clignotements, et accélérer le code


For Each C In Range("H9:H185")
xxx Ici il indique la plage ou il va chercher
quelque chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")
xxx Et ici je coince en admetant que "L" soit la
colonne ou tu as la liste, pourquoi le 1
le 1 correspond à la ligne ou l'on trouve le libellé su status


xxx Et pourquoi un True-False en "M", uniquement
pour changer le titre du bouton?
Non dans ce cas c'est récupérer l'état du ToggleButton (LinkedCell évoqué

ci-dessus)

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu de la cellule "M"
décaler d'une colonne vers la gauche ;o)))

en effet ceci est superfetatoire, le caption pouvant etre figé lors de la
création ToggleButton1.Caption ="Order"
on aurai pu tout aussi bien écrire ToggleButton1.Caption = Cells(1, "L")
j'avais en fait dans l'idee de completer le libellé par le nombre de
status

concernés colonne K ;o)))
ToggleButton1.Caption = Cells(1,"L") & Chr(10) & Format(Cells(1,
"L").Offset(0, -1),"0 ###")


ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)> xxx Et ici
je


suppose qu'il se contente de changer la couleur
Tout à fait ;o)))

tu remarqueras l'utilisation de IIF qui permet d'alléger le code (if then
else)

;o)))

End Sub
Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas


il suffit alors de renommer les procs concernées
Private Sub ToggleButton1_Click() > Private Sub ToggleButton7_Click()
et
Private Sub ToggleButton2_Click() > Private Sub ToggleButton8_Click()
attention j'ai peur cependant qu'il y ait interference avec les procs
éventuellement déja affectées à tes ToggleButton1 et ToggleButton2

Mais si je chipotte au hasard, j'arrive à rien


perhaps ....with little expenditure of money ...cheaply ???

le hasard et la nécessité ...???? (Jacques Monod)
;o)))



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





Avatar
Philippe.R
;o))))
--
Avec plaisir
Philippe.R
"Rex" a écrit dans le message de
news:
Ben non

Je ne t'en veux pas pour ce début de réponse

La preuve je te fais un début de mer



Allez, je suis bon prince tu reçois même la fin ci


Merci à toi


Et pour le latin J'AI COMPRIS !!!!!!!!

Comme je parlais de plage, tu me dis

Non mon salo! (puis tu fais allusion au magasin Miss Etam
Sûrement pour des maillots

Tu vois, hein que je suis malin ;-))))))


Et puis j'suis heureux

T'as vu les essssplikationnement que j'ai reçu de Môôôôdeste et d'Hervé
(j'espère que son nom n'as pas de rapport avec le fromage de Herve)
Et de toi, biensûr

C'est pas toujours facile, mais j'apprends, oui oui oui j'apprends

Et toujours avessssssse le sourrrrirrrrre

Rex ;-))) )))

Et encore merci




"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
OeFX2$
Bonsoir TRex,
M'en voudras tu si, modestement, je commence un début de commencement de
réponse ?

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela


met la machine en route
Ca commande l'exécution des procédures évenementielles à ce moment précis


For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher
quelque
chose
Non solum, sed etiam précise qu'il faut parcourir chaque élément de

ladite
plage

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")
Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans

cells(x,y) !

--
Et tout ça, avec plaisir
Philippe.R
"rthompson" a écrit dans le message de
news:
Bonsoir

J'espère que tu es là, môôôdeste
Parceque je ne crois pas qu'un autre (j'ose plus écrire "n'importe
qui" )


puisse m'aider


Avant tout merci merci merci

Voici ton code pour les toggle et je ne parviens pas à l'adapter

Je REFUSE (enfin pour le moment) que toi, ou un autre, adapte mon
fichier


JE VEUX comprendre,parceque c'est quelque chose que j'envisage de faire
régulièrment
j'ai ajouté mes commentaires, mais pourrais-tu m'expliquer là ou je
coince


Et puis que faut-il adapter?


Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net

DoEvents
xxx Ca, c'est déjà moins clair mais je suppose que
cela


met la machine en route

Application.ScreenUpdating = False

xxx C'est évident

For Each C In Range("H9:H185")

xxx Ici il indique la plage ou il va chercher
quelque
chose

If C.Value = Cells(1, "L") Then C.EntireRow.Hidden = Cells(1, "M")

xxx Et ici je coince en admetant que "L" soit la
colonne ou tu as la liste, pourquoi le 1
xxx Et pourquoi un True-False en "M", uniquement
pour
changer le titre du bouton?

Next
xxx Il va chercher le suivant

Application.ScreenUpdating = True

xxx Il réaffiche la mise à jour

ToggleButton1.Caption = Cells(1, "M").Offset(0, -1)
xxx Je suppose qu'il met en "Texte de bouton" le
contenu de la cellule "M"

ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)

xxx Et ici je suppose qu'il se contente de changer
la
couleur

End Sub
xxx Et ici il déballe ces tartines, débouche son
Bourgogne et va picnicker


Donc voilà

Je crois avoir plus ou moins tout compris
Mais je ne parviens pas à l'adapter

Le problème est le suivant

Quand j'ai collé tes Toggle, j'en avais déjà d'autre sur cette feuille

Donc les Toggles un et deux sont devenu sept et huit
Les Toggles trois etc jusqu'à six fonctionnent
Les deux autres pas

Donc je suppose que je dois adapter certains paramètres
Mais si je chipotte au hasard, j'arrive à rien

Avant que je ne te le demande de le faire toi-même
Si tu as le temps

Explique-moi


D'avance un grand merci et à très bientôt

Rex ;-)))))))