Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Range("Qui est en dessous de ce bouton, que je nomme").select
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant caisse
"sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers la
facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense agrandir
la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de la
case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du bouton
et demander si le centre de la case est dedans, pour la comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton ne
recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Range("Qui est en dessous de ce bouton, que je nomme").select
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant caisse
"sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers la
facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense agrandir
la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de la
case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du bouton
et demander si le centre de la case est dedans, pour la comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton ne
recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Range("Qui est en dessous de ce bouton, que je nomme").select
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant caisse
"sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers la
facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense agrandir
la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de la
case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du bouton
et demander si le centre de la case est dedans, pour la comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton ne
recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Range("Qui est en dessous de ce bouton, que je nomme").select
> application.run "TransfertDonnée"
> Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
> là
> n'est pas la question)
>
> Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
> agrandir
> la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres. Ça
pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Range("Qui est en dessous de ce bouton, que je nomme").select
> application.run "TransfertDonnée"
> Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
> là
> n'est pas la question)
>
> Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
> agrandir
> la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres. Ça
pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Range("Qui est en dessous de ce bouton, que je nomme").select
> application.run "TransfertDonnée"
> Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
> là
> n'est pas la question)
>
> Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
> agrandir
> la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres. Ça
pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils recouvrent
(BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à mon
"transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres. Ça
pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils recouvrent
(BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à mon
"transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OMhwVVOEJHA.3844@TK2MSFTNGP05.phx.gbl...
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres. Ça
pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils recouvrent
(BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à mon
"transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres. Ça
pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte du
restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question vers
la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et de
la case derrière de créer une seule macro valable pour tous. Il y a une
histoire de upper left corner la dedans, mais pour être plus sûr, il
vaudrais mieux prendre comme coordonnées une petite zone au centre du
bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le bouton
ne recouvre pas la case pile poil. Dimension des cases : H,75 L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus les
questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OMhwVVOEJHA.3844@TK2MSFTNGP05.phx.gbl...
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OMhwVVOEJHA.3844@TK2MSFTNGP05.phx.gbl...
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Et quand le bouton sera en AB9, ou en AC11.
Encore moi
Avant de commencer à tout casser, un doute me taraude.
Cela va fonctionner jusqu'à la case Z9.
Et quand le bouton sera en AB9, ou en AC11.
Ca devrait bloquer, non ?
Aie, aie.
"Frédéric Sigonneau" a écrit dans le message de news:Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Et quand le bouton sera en AB9, ou en AC11.
Encore moi
Avant de commencer à tout casser, un doute me taraude.
Cela va fonctionner jusqu'à la case Z9.
Et quand le bouton sera en AB9, ou en AC11.
Ca devrait bloquer, non ?
Aie, aie.
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OKIJROeEJHA.2076@TK2MSFTNGP04.phx.gbl...
Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
OMhwVVOEJHA.3844@TK2MSFTNGP05.phx.gbl...
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :
Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !
> Et quand le bouton sera en AB9, ou en AC11.
Encore moi
Avant de commencer à tout casser, un doute me taraude.
Cela va fonctionner jusqu'à la case Z9.
Et quand le bouton sera en AB9, ou en AC11.
Ca devrait bloquer, non ?
Aie, aie.
"Frédéric Sigonneau" a écrit dans le message de news:Par exemple (compte tenu de ta façon de nommer tes boutons un seul
paramètre suffit) :
Sub TransfertDonnée (VersCell)
Range(VerCell).ValueÎQuIlFautFaireAvecLeBouton("Bout" & VerCell)
End Sub
Utilisée comme ceci :
Sub MacroUnique()
Dim CellCible
CellCible=Mid(LeNomDuBouton,5) '(récupère par ex G5)
TransfertDonnée CellCible
End Sub
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Frédéric
Je ne comprends pas trop.
Jette un oeil ici http://mille.jean-marie.neuf.fr/index.html
Par simplicité, j'ai nommé les boutons du nom de la case qu'ils
recouvrent (BoutG5, BoutG6) etc.
Les macros pour chaque bouton se nomment MacroG5, MacroG6 etc.
Quand tu me parles d'ambiguïté, n'y a t'il pas un risque.
Et à quoi ressemblerait cette nouvelle macro, ou les lignes à ajouter à
mon "transfertdedonnées"
Merci aussi à Papyjack pour son astuce de recopie.
Comme je suis un peu fainéant, ça me va bien.
JMM
"Frédéric Sigonneau" a écrit dans le message de news:Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là
n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir
la grille !
D'après les éléments que tu fournis, il devrait être possible de
transformer la procédure TransfertDonnée en lui ajoutant 2 paramètres.
Ça pourrait faire :
Sub TransfertDonnée (LaCelluleQuiEstEnDessous,LeNomDuBouton)
Tu pourrais donner à tes boutons un nom facile à récupérer pour une
identification sans ambigüité si besoin : par ex 'Table 279', permet
d'extraire facilement 279.
EQCTA comme disait un ancien d'ici (:
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
milloche a écrit :Bonjour,
J'ai créé une caisse tactile pour restaurant ou autre commerce.
Du moins elle le deviendra quand j'aurai un tel écran, pour l'instant
caisse "sourisile".
Actuellement, j'ai créé une grille, transparente qui recouvre la carte
du restaurant.
J'ai donc pour chaque bouton invisible créé une macros qui dit de
sélectionner la case qui est en dessous(derrière) avant de lancer la
procédure générale qui effectue le transfert des données en question
vers la facture.
La macro affectée à chaque bouton dit simplement
Range("Qui est en dessous de ce bouton, que je nomme").select
application.run "TransfertDonnée"
Prix et stock sont dans les colonnes adjacentes cachées(pour info mais
là n'est pas la question)
Tout marche, mais j'ai une macros par bouton, donc 380 et je pense
agrandir la grille !
Il est je crois possible, en jouant avec les coordonnées du bouton et
de la case derrière de créer une seule macro valable pour tous. Il y a
une histoire de upper left corner la dedans, mais pour être plus sûr,
il vaudrais mieux prendre comme coordonnées une petite zone au centre
du bouton et demander si le centre de la case est dedans, pour la
comparaison.
Je suis difficile, je sais mais j'aimerais éviter les bogues si le
bouton ne recouvre pas la case pile poil. Dimension des cases : H,75
L,00
En plus, je pense vous faire plaisir car j'ai crû remarquer que plus
les questions sont difficilles et plus on obtient de réponses.
Bon courage en tous cas.Mais ais-je été clair, that is the question !