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
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
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 ;-)))))))
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
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
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 ;-)))))))
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
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
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 ;-)))))))
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 ;-)))))))
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 ;-)))))))
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 ;-)))))))
Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net
en mode creation lors de de l'utilisation de la boite à outils Controles
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
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é
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)))
ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)> xxx Et ici je
suppose qu'il se contente de changer la couleur
Tout à fait ;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
Mais si je chipotte au hasard, j'arrive à rien
Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net
en mode creation lors de de l'utilisation de la boite à outils Controles
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
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é
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)))
ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)> xxx Et ici je
suppose qu'il se contente de changer la couleur
Tout à fait ;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
Mais si je chipotte au hasard, j'arrive à rien
Private Sub ToggleButton1_Click()
xxx Ca, c'est clair et net
en mode creation lors de de l'utilisation de la boite à outils Controles
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
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é
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)))
ToggleButton1.BackColor = IIf(Cells(1, "M"), vbRed, vbGreen)> xxx Et ici je
suppose qu'il se contente de changer la couleur
Tout à fait ;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
Mais si je chipotte au hasard, j'arrive à rien
Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans
cells(x,y) !
Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans
cells(x,y) !
Et là, je "découvre" qu'on peut utiliser la lettre de colonne dans
cells(x,y) !
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)))
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)))
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)))
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écisFor 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
plageIf 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 ;-)))))))
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:e8wxDFZ6HHA.1184@TK2MSFTNGP04.phx.gbl...
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 ;-)))))))
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écisFor 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
plageIf 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 ;-)))))))
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
celamet 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
colonneou 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
contenude 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 ;-)))))))
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: e8wxDFZ6HHA.1184@TK2MSFTNGP04.phx.gbl...
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 ;-)))))))
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
celamet 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
colonneou 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
contenude 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 ;-)))))))
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ésDoEvents
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 statusxxx 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 ToggleButton2Mais 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)))
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)))
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ésDoEvents
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 statusxxx 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 ToggleButton2Mais 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)))
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
celamet la machine en route
Ca commande l'exécution des procédures évenementielles à ce moment précisFor 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
plageIf 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
fichierJE 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
coinceEt 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
celamet 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 ;-)))))))
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$Z6HHA.1212@TK2MSFTNGP05.phx.gbl...
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" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:e8wxDFZ6HHA.1184@TK2MSFTNGP04.phx.gbl...
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 ;-)))))))
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
celamet la machine en route
Ca commande l'exécution des procédures évenementielles à ce moment précisFor 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
plageIf 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
fichierJE 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
coinceEt 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
celamet 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 ;-)))))))