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

Compteur manuel

42 réponses
Avatar
Rex
Bonsoir

Je ne sais pas ceci est faisable ou pas

Je fais partie d'un comité de quartier
Et nous ne sommes pas d'accord avec les chiffres de passage véhicules émis
par l'administration

Donc nous allons effectuer un comptage manuel

Je me suis dis que cela sera facile en Excel

MAIS

J'ai très vite déchanté

Ce que je voudrais est ceci

En A1

Si je tape a la cellule B4 s'incrimente d'une unité
Si je tape b la cellule C4 s'incrimente d'une unité
Si je tape c la cellule D4 s'incrimente d'une unité

ATTENTION

Je dis bien lorsque je tape a et pas a+enter
Et en plus il faudrait que le curseur reste en A1 tout le temps

Donc je taperai a a a a b b c c b b a a c a a sans interuption
Et à chaque lettre la cellule adéquate serait incrimentée et la lettre tapée
serait suprimée

A moins que quelqu'un a une autre idée pour faire un comptage autre que des
petites lignes sur une feuille

Merci et à bientôt


Rex

10 réponses

1 2 3 4 5
Avatar
rthompson
Bonjour
Et merci

Je continue (tout doucement) mon apprentissage

Merci à0toi et bon week-end

Rex


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

Bonjour,

La macro auto_open est exécutée à l'ouverture du classeur.
Il fallait sauvegarder le classeur, le fermer puis l'ouvrir à nouveau.
Pour empêcher l'éxécution de auto_open, appuyer sur la touche MAJ
avant l'ouverture du classeur.

http://cjoint.com/?gbiSrSejtv

JB
On 1 juin, 00:20, "Rex" wrote:
Re-Bonsoir

Comment se fait-il que je ne peux pas adapter ta macro

J'ai ajouté deux ligne pou ajouter deux colonnes et si les a et b
fonctionne
les c et d
ne fonctionnent pas

si je tapes plusieurs c ou d j'obtiens ccccccc ou ddddddd

Voici ce que j'ai fais

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Sub auto_open()
Application.OnKey "a", "maproca"
Application.OnKey "b", "maprocb"
Application.OnKey "c", "maprocc"
Application.OnKey "d", "maprocd"
[A1].Select
End Sub
Sub maproca()
[A1] = "a"
[b4] = [b4] + 1
End Sub
Sub maprocb()
[A1] = "b"
[C4] = [C4] + 1
End Sub
Sub maprocc()
[A1] = "c"
[D4] = [D4] + 1
End Sub
Sub maprocd()
[A1] = "d"
[E4] = [E4] + 1
End Sub
Sub auto_close()
Application.OnKey "a"
Application.OnKey "b"
Application.OnKey "c"
Application.OnKey "d"
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Ou est le problème?

Un grand merci à toi

Rex

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




Bonjour à toutes et tous

Le temps de poster un message
Prendre le temps de manger un petit bout, de me tenir au courant des
dernières Zarkosiades, et Belgisudes
et de profiter des soirées Fado 5musique Portugaise pour ceux qui
l'ignore)


Retour Pc et VLAN

Non pas une réponse, non MOOOSIEUR

Même pas deux, non non non
Une tonne de réponses et de commentaires

MERCI MERCI MERCI

Et en plus la deuxième fonctionne

BRAVO JB

Même si Michedenis à quelques commentaires ;-))))))

Merci à toi

Tu me facilite la vie

Merci et bonne nuit

Rex

PS

Tu croyais pas que tu allais t'en tirer aussi facilement, hein??

Explique moi comment Application fait que cela réagit dés la première
touche

Cela pourrait peut-être me servir pour autre chose

Merci

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


Sub auto_open()
Application.OnKey "a", "maproca"
Application.OnKey "b", "maprocb"
[A1].Select
End Sub
Bonsoir,

Sub maproca()
[A1] = "a"
[b4] = [b4] + 1
End Sub

Sub maprocb()
[A1] = "b"
[C4] = [C4] + 1
End Sub

Sub auto_close()
Application.OnKey "a", ""
Application.OnKey "b", ""
End Sub

http://cjoint.com/?fFtzs0mOUL

JB

On 31 mai, 19:03, "Rex" wrote:
Bonsoir

Je ne sais pas ceci est faisable ou pas

Je fais partie d'un comité de quartier
Et nous ne sommes pas d'accord avec les chiffres de passage véhicules
émis


par l'administration

Donc nous allons effectuer un comptage manuel

Je me suis dis que cela sera facile en Excel

MAIS

J'ai très vite déchanté

Ce que je voudrais est ceci

En A1

Si je tape a la cellule B4 s'incrimente d'une unité
Si je tape b la cellule C4 s'incrimente d'une unité
Si je tape c la cellule D4 s'incrimente d'une unité

ATTENTION

Je dis bien lorsque je tape a et pas a+enter
Et en plus il faudrait que le curseur reste en A1 tout le temps

Donc je taperai a a a a b b c c b b a a c a a sans interuption
Et à chaque lettre la cellule adéquate serait incrimentée et la lettre
tapée

serait suprimée

A moins que quelqu'un a une autre idée pour faire un comptage autre
que
des

petites lignes sur une feuille

Merci et à bientôt

Rex- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
rthompson
Ou lalalalala!!!!!!1


Je viens de passer quatre heures à expliquer à une bandes de profs
sérieusemenr anti-PC
comment utiliser un tableau interactif et les plus que cela apporte à
l'éducation

Et j'ai une tête comme si j'avais bu pendant un mois non-stop

Alors tes explications, hein???????

Je regarderai cela à mon aise demain

En tous les cas merci à toi et bon week-end

Rex

PS
Dans mon quartier y pas beaucoup de Ferrari qui passe Rex ;-))))



"Jacky" a écrit dans le message de news:
eC%
Re;;;re
Et si tu rajoutes des colonnes (pour compter les patins à roulettes ou les
pneus de Ferrari), ne pas oublier de modifier la plage ici:
If Not Intersect(Target, [a1:e1]) Is Nothing Then

[a1:xxxxxxx1]

--
Salutations
JJ



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

Re
Comment fait-on pour ajouter des colonnes à ta macro?
pour l'exemple 1

Ceci en commentaire
[f1].Select
comme cela
'[f1].Select
le temps de rajouter les colonnes

Pour l'exemple 2
ceci:
Cells(Target.Row + 1, Target.Column).Select

Ps/ depuis le temps......tu devrais être capable de faire cela tout seul,
non mais ;o)
--
Salutations
JJ



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

Bonsoir et merci

Je n'ai jamais reçu autant de réponses intéressantes à une questions

Un véritable fan mail

Ta macro m'intéresse, pour faire une autre truc

J'ai ajouter une colonne dans ta ligne en chageant le "e" en "f"

Mais cela agit très bizarre

Comment fait-on pour ajouter des colonnes à ta macro?

A bientôt

et surtout un tout grand MERCI


Rex



"Jacky" a écrit dans le message de news:
uQe$$
Bonsoir

A moins que quelqu'un a une autre idée pour faire un comptage autre
que
des
petites lignes sur une feuille
Ici:

http://cjoint.com/?fFtRdTu2iI

--
Salutations
JJ



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

Bonsoir

Je ne sais pas ceci est faisable ou pas

Je fais partie d'un comité de quartier
Et nous ne sommes pas d'accord avec les chiffres de passage véhicules
émis


par l'administration

Donc nous allons effectuer un comptage manuel

Je me suis dis que cela sera facile en Excel

MAIS

J'ai très vite déchanté

Ce que je voudrais est ceci

En A1

Si je tape a la cellule B4 s'incrimente d'une unité
Si je tape b la cellule C4 s'incrimente d'une unité
Si je tape c la cellule D4 s'incrimente d'une unité

ATTENTION

Je dis bien lorsque je tape a et pas a+enter
Et en plus il faudrait que le curseur reste en A1 tout le temps

Donc je taperai a a a a b b c c b b a a c a a sans interuption
Et à chaque lettre la cellule adéquate serait incrimentée et la
lettre
tapée
serait suprimée

A moins que quelqu'un a une autre idée pour faire un comptage autre
que
des
petites lignes sur une feuille

Merci et à bientôt


Rex





















Avatar
Jacky
Re......
Alors tes explications, hein???????
3 lignes...... les explications(y compris les conneries), et pas de prof.

anti-pc
Si j'ai bien compris, 4 heures de boulot et 1 mois pour récupérer ??
Pffffff, tu vas pas gagner ta vie, comme cela!
;o))))))))))))

Ps: au cas ou tu te décides à passer à Strasbourg, pourrais-tu nous
présenter un de tes " Tableau interactif" ??
--
Salutations
JJ



"rthompson" a écrit dans le message de
news: uk9H8%
Ou lalalalala!!!!!!1


Je viens de passer quatre heures à expliquer à une bandes de profs
sérieusemenr anti-PC
comment utiliser un tableau interactif et les plus que cela apporte à
l'éducation

Et j'ai une tête comme si j'avais bu pendant un mois non-stop

Alors tes explications, hein???????

Je regarderai cela à mon aise demain

En tous les cas merci à toi et bon week-end

Rex

PS
Dans mon quartier y pas beaucoup de Ferrari qui passe Rex ;-))))



"Jacky" a écrit dans le message de news:
eC%
Re;;;re
Et si tu rajoutes des colonnes (pour compter les patins à roulettes ou
les pneus de Ferrari), ne pas oublier de modifier la plage ici:
If Not Intersect(Target, [a1:e1]) Is Nothing Then

[a1:xxxxxxx1]

--
Salutations
JJ



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

Re
Comment fait-on pour ajouter des colonnes à ta macro?
pour l'exemple 1

Ceci en commentaire
[f1].Select
comme cela
'[f1].Select
le temps de rajouter les colonnes

Pour l'exemple 2
ceci:
Cells(Target.Row + 1, Target.Column).Select

Ps/ depuis le temps......tu devrais être capable de faire cela tout
seul, non mais ;o)
--
Salutations
JJ



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

Bonsoir et merci

Je n'ai jamais reçu autant de réponses intéressantes à une questions

Un véritable fan mail

Ta macro m'intéresse, pour faire une autre truc

J'ai ajouter une colonne dans ta ligne en chageant le "e" en "f"

Mais cela agit très bizarre

Comment fait-on pour ajouter des colonnes à ta macro?

A bientôt

et surtout un tout grand MERCI


Rex



"Jacky" a écrit dans le message de news:
uQe$$
Bonsoir

A moins que quelqu'un a une autre idée pour faire un comptage autre
que
des
petites lignes sur une feuille
Ici:

http://cjoint.com/?fFtRdTu2iI

--
Salutations
JJ



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

Bonsoir

Je ne sais pas ceci est faisable ou pas

Je fais partie d'un comité de quartier
Et nous ne sommes pas d'accord avec les chiffres de passage
véhicules
émis


par l'administration

Donc nous allons effectuer un comptage manuel

Je me suis dis que cela sera facile en Excel

MAIS

J'ai très vite déchanté

Ce que je voudrais est ceci

En A1

Si je tape a la cellule B4 s'incrimente d'une unité
Si je tape b la cellule C4 s'incrimente d'une unité
Si je tape c la cellule D4 s'incrimente d'une unité

ATTENTION

Je dis bien lorsque je tape a et pas a+enter
Et en plus il faudrait que le curseur reste en A1 tout le temps

Donc je taperai a a a a b b c c b b a a c a a sans interuption
Et à chaque lettre la cellule adéquate serait incrimentée et la
lettre
tapée
serait suprimée

A moins que quelqu'un a une autre idée pour faire un comptage autre
que
des
petites lignes sur une feuille

Merci et à bientôt


Rex

























Avatar
Gilles MOUGNOZ
Bonsoir
...
Mais Dieu dans son infinie clairvoyance à décider de ne plus permettre
la création de personne ausi parfaite que moi.
Il a tout de suite vu que le monde ne pourrait
contenir plus d'une personne aussi parfaite, intelligente, gentille,
amusante, serviable


... et modeste ;-))))

Avatar
isabelle
bonjour Rex,


Et au risque de te froisser


mais non...voyons,

Bises à toi


bisou* à toi également Rex,

isabelle

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

... et modeste ;-))))


Heu....?
Quoi....?
Qui....?
Quand ...?


--
--
@+
;o)))

Avatar
Rex
Modeste????

Qué Modeste ????????

Quoi Modeste ??????????????

Ah oui Modeste !!!!!!!!!!!

Le petit qui répond toujours aussi vite et aussi impeccable

Oui lui admettons ;-))))))))))))

But seriously


Il y a pas mal ici qui sont de loin mais là alors de très loin

supérieure à moi


N'emp^che que ma mère disait que j'étais beau, intelligent, gentil, etc


Mais c'était ma mère ;-))))))))))


Bonne nuit les petits





"Gilles MOUGNOZ" a écrit dans le message de
news: #
Bonsoir
...
Mais Dieu dans son infinie clairvoyance à décider de ne plus permettre
la création de personne ausi parfaite que moi.
Il a tout de suite vu que le monde ne pourrait
contenir plus d'une personne aussi parfaite, intelligente, gentille,
amusante, serviable


... et modeste ;-))))





Avatar
Rex
Ah lalalala

Que de beau rêves je vais faire cette nuit

Rex ;-))))))



"isabelle" a écrit dans le message de news:
#
bonjour Rex,


Et au risque de te froisser


mais non...voyons,

Bises à toi


bisou* à toi également Rex,

isabelle




Avatar
Rex
Bonsoir

4 heures trois ou quatre fois par jour !!!!!!!!



Non j'exagère

Les formations me prennent environs dix à quinze jours par mois
Le reste j'essaie de vendre

Et en Wallonie c'est pas évident

jette un oeil http://www.prometheanworld.com/fr/

et la video http://www.prometheanworld.com/fr/server/show/nav.2604

En ce qui concerne Strasbourg, les chances de me voir diminue ;-(((((((((

Je te tiens au courant

Rex



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

Re......
Alors tes explications, hein???????
3 lignes...... les explications(y compris les conneries), et pas de prof.

anti-pc
Si j'ai bien compris, 4 heures de boulot et 1 mois pour récupérer ??
Pffffff, tu vas pas gagner ta vie, comme cela!
;o))))))))))))

Ps: au cas ou tu te décides à passer à Strasbourg, pourrais-tu nous
présenter un de tes " Tableau interactif" ??
--
Salutations
JJ



"rthompson" a écrit dans le message de
news: uk9H8%
Ou lalalalala!!!!!!1


Je viens de passer quatre heures à expliquer à une bandes de profs
sérieusemenr anti-PC
comment utiliser un tableau interactif et les plus que cela apporte à
l'éducation

Et j'ai une tête comme si j'avais bu pendant un mois non-stop

Alors tes explications, hein???????

Je regarderai cela à mon aise demain

En tous les cas merci à toi et bon week-end

Rex

PS
Dans mon quartier y pas beaucoup de Ferrari qui passe Rex ;-))))



"Jacky" a écrit dans le message de news:
eC%
Re;;;re
Et si tu rajoutes des colonnes (pour compter les patins à roulettes ou
les pneus de Ferrari), ne pas oublier de modifier la plage ici:
If Not Intersect(Target, [a1:e1]) Is Nothing Then

[a1:xxxxxxx1]

--
Salutations
JJ



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

Re
Comment fait-on pour ajouter des colonnes à ta macro?
pour l'exemple 1

Ceci en commentaire
[f1].Select
comme cela
'[f1].Select
le temps de rajouter les colonnes

Pour l'exemple 2
ceci:
Cells(Target.Row + 1, Target.Column).Select

Ps/ depuis le temps......tu devrais être capable de faire cela tout
seul, non mais ;o)
--
Salutations
JJ



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

Bonsoir et merci

Je n'ai jamais reçu autant de réponses intéressantes à une questions

Un véritable fan mail

Ta macro m'intéresse, pour faire une autre truc

J'ai ajouter une colonne dans ta ligne en chageant le "e" en "f"

Mais cela agit très bizarre

Comment fait-on pour ajouter des colonnes à ta macro?

A bientôt

et surtout un tout grand MERCI


Rex



"Jacky" a écrit dans le message de news:
uQe$$
Bonsoir

A moins que quelqu'un a une autre idée pour faire un comptage
autre







que
des
petites lignes sur une feuille
Ici:

http://cjoint.com/?fFtRdTu2iI

--
Salutations
JJ



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

Bonsoir

Je ne sais pas ceci est faisable ou pas

Je fais partie d'un comité de quartier
Et nous ne sommes pas d'accord avec les chiffres de passage
véhicules
émis


par l'administration

Donc nous allons effectuer un comptage manuel

Je me suis dis que cela sera facile en Excel

MAIS

J'ai très vite déchanté

Ce que je voudrais est ceci

En A1

Si je tape a la cellule B4 s'incrimente d'une unité
Si je tape b la cellule C4 s'incrimente d'une unité
Si je tape c la cellule D4 s'incrimente d'une unité

ATTENTION

Je dis bien lorsque je tape a et pas a+enter
Et en plus il faudrait que le curseur reste en A1 tout le temps

Donc je taperai a a a a b b c c b b a a c a a sans interuption
Et à chaque lettre la cellule adéquate serait incrimentée et la
lettre
tapée
serait suprimée

A moins que quelqu'un a une autre idée pour faire un comptage
autre







que
des
petites lignes sur une feuille

Merci et à bientôt


Rex





























Avatar
Gilles MOUGNOZ
Bonjour,
J'ai pourtant écrit "modeste" en minuscule pour bien signifier que
j'employais l'adjectif et non le pseudonyme du contributeur mondialement
connu (et reconnu)... Cela dit, aux heures tardives où vous avez publié vos
réactions, je conçois aisément que vos neurones fatigués par tant de
formules et de code n'aient pas saisi la subtilité de ma remarque [là, je
m'auto-congratule (non, ce n'est pas sale!)].
--
Bonne continuation

Modeste????
Qué Modeste ????????
Quoi Modeste ??????????????
Ah oui Modeste !!!!!!!!!!!
Le petit qui répond toujours aussi vite et aussi impeccable
Oui lui admettons ;-))))))))))))
But seriously
Il y a pas mal ici qui sont de loin mais là alors de très loin
supérieure à moi
N'emp^che que ma mère disait que j'étais beau, intelligent, gentil, etc
Mais c'était ma mère ;-))))))))))
Bonne nuit les petits

Bonsoir
...
Mais Dieu dans son infinie clairvoyance à décider de ne plus permettre
la création de personne ausi parfaite que moi.
Il a tout de suite vu que le monde ne pourrait
contenir plus d'une personne aussi parfaite, intelligente, gentille,
amusante, serviable
... et modeste ;-))))






1 2 3 4 5