Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA, faire une mcro ???

VBA, faire une mcro ???

63 réponses
Avatar
LE TROLL
Bonjour,

En VBA, comment faire une macro dans Excel, soit:

Objet: Pour pointer un compte, lors du rapprochement avec le relevé de
compte, je coche une case d'un "X" graissé en majuscule quand chaque
opération est identique sur le relevé et sur Excel où je fais le compte...

Problème, quand je coche, ça m'oblige à mettre en majuscule, et ou, je me
trompe de lettre (m'astreignant à corriger), d'onc une macro serait la
bienvenue, comme suit:


' nb, la colonne "G" est déjà graissée.
'
Sub Worksheet_Change...
Si Colonne = "G" Alors: Call ecrit_cellule
End Sub
'
Sub Worksheet_BeforeDoubleClick...
Si Colonne = "G" Alors: Call ecrit_cellule
End Sub
'
Sub ecrit_cellule()
On Error Resume Next
Si (Colonne "G" Cellule_Active) <> "X" alors:
Met dans (Colonne G Cellule_Active) = majuscules
Ecrit (Colonne "G" Cellule_Active) = "X"
Exit Sub
Fin de Si
Ecrit (Colonne "G" Cellule_Active) = ""
End Sub

---------------------------------
Merci de m'écrire cette macro.
---------------------------------

--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Signaler un problème avec ce contenu

10 réponses

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

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
Rai
Au fait le troll, tu poses souvent 2 fois les même questions dans le même forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes que ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous tes ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai

"LE TROLL" <le a écrit dans le message de news:
Bonjour,

En VBA, comment faire une macro dans Excel, soit:

Objet: Pour pointer un compte, lors du rapprochement avec le relevé de
compte, je coche une case d'un "X" graissé en majuscule quand chaque
opération est identique sur le relevé et sur Excel où je fais le compte...

Problème, quand je coche, ça m'oblige à mettre en majuscule, et ou, je me
trompe de lettre (m'astreignant à corriger), d'onc une macro serait la
bienvenue, comme suit:




Avatar
LeSteph
:o))))))))))
Laisses le se débrouiller avec sa hache avec 25 ans de pratique
il trouvera quoi faire du manche!LOL!
"Rai" a écrit dans le message de news:
41b30bbb$0$11771$
Au fait le troll, tu poses souvent 2 fois les même questions dans le même
forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes que
ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et
non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre
macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous tes
ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai

"LE TROLL" <le a écrit dans le message de news:

Bonjour,

En VBA, comment faire une macro dans Excel, soit:

Objet: Pour pointer un compte, lors du rapprochement avec le relevé de
compte, je coche une case d'un "X" graissé en majuscule quand chaque
opération est identique sur le relevé et sur Excel où je fais le compte...

Problème, quand je coche, ça m'oblige à mettre en majuscule, et ou, je me
trompe de lettre (m'astreignant à corriger), d'onc une macro serait la
bienvenue, comme suit:




Avatar
Rai
Remarque, lol, je comprends sa déconfiture, lol, j'ai cherché 'mcro' dans l'aide d'XL et, lol, il m'a dit qu'il ne connaissait pas ;o))



"LeSteph" a écrit dans le message de news:
:o))))))))))
Laisses le se débrouiller avec sa hache avec 25 ans de pratique
il trouvera quoi faire du manche!LOL!
"Rai" a écrit dans le message de news:
41b30bbb$0$11771$
Au fait le troll, tu poses souvent 2 fois les même questions dans le même
forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes que
ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et
non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre
macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous tes
ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai


Avatar
LE TROLL
Ben a priori tu ne savais pas répondre, oh, je ne t'en veux pas,
mais dans ce cas, ne réponds simplement pas...

Sinon, pour ce qui est du VBA, oui en effet, je ne vais pas passer une
semaine à apprendre le VBA pour coller quelques macros, je demande à ceux
qui savent et en ont le temps, de bien vouloir me le faire, ça ne demande
guère plus de 15 minutes à celui qui sait, ceci sur le principe de ce qui
existe déjà, par exemple en VB, que je connais bien, on demande le code et
on le retape; idem pour les applets Java, les fonction en VB, en C mise à
disposition sur le Net, c'est tout à fait courant ce que je demande...
Je ne comprends pas ce que tu dis, sauf si tu n'y connais rien en VBA (comme
moi) ou presque, en fait, tu n'as pas su optimiser mon code, donc tu n'y
connais rien! Alors, pourquoi me faire des réponses partielles qui ne me
servent à rien ? Pour montrer que tu connais, lol, mais quand on connaît ça
marche, t'es un pauvre type pour moi, un incompétent qui ne répond qu'à des
questions de base et fait semblant de savoir en lançant deux trois mots de
VBA, dans ce sens tu as bien raison d'écarter mes messages, car depuis tout
à l'heure, tu m'as répondu trois fois des choses qui n'ont absolument pas
fait avancer mes 2 procédures (je l'ai ai trouvé tout seul celle-là), donc
tu es réellement un parasite, et tu me rendras service en ne répondant pas
des conneries à mes questions, merci :o)
-----------

"Rai" a écrit dans le message de news:
41b30bbb$0$11771$
Au fait le troll, tu poses souvent 2 fois les même questions dans le même
forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes que
ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et
non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre
macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous tes
ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai

"LE TROLL" <le a écrit dans le message de news:

Bonjour,

En VBA, comment faire une macro dans Excel, soit:

Objet: Pour pointer un compte, lors du rapprochement avec le relevé de
compte, je coche une case d'un "X" graissé en majuscule quand chaque
opération est identique sur le relevé et sur Excel où je fais le compte...

Problème, quand je coche, ça m'oblige à mettre en majuscule, et ou, je me
trompe de lettre (m'astreignant à corriger), d'onc une macro serait la
bienvenue, comme suit:




Avatar
LE TROLL
Déconfiture, bof, tu devrais davantage te poser des questions, car
tu n'as pas su me faire ma procédure (2 en fait), et moi qui n'y connais
rien, j'ai trouvé tout seul en un quart d'heure, ça doit te donner une idée
sur l'étendu de tes connaissances...
---------

"Rai" a écrit dans le message de news:
41b3109b$0$8108$
Remarque, lol, je comprends sa déconfiture, lol, j'ai cherché 'mcro' dans
l'aide d'XL et, lol, il m'a dit qu'il ne connaissait pas ;o))



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

:o))))))))))
Laisses le se débrouiller avec sa hache avec 25 ans de pratique
il trouvera quoi faire du manche!LOL!
"Rai" a écrit dans le message de news:
41b30bbb$0$11771$
Au fait le troll, tu poses souvent 2 fois les même questions dans le même
forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes que
ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et
non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre
macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous
tes
ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai


Avatar
JièL Goubert
Bonjoir(c) Rai

Laissez tomber, il porte parfaitement bien son pseudo, il a fait la même
chose dans le forum OE6 il y a peu, il demande un TALC et engueule ceux
qui ne font pas EXACTEMENT comme il le voudrait.

on est gaté en ce moment :-(
Heureusement qu'il reste des gens sympa...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/

Le 05/12/2004 14:22 vous avez écrit ceci :
Au fait le troll, tu poses souvent 2 fois les même questions dans le même forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes que ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous tes ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai


Avatar
LeSteph
:-)
Tu as bien raison, on sait désormais à quoi s'en tenir!
Et comme dirait quelqu'un: pfffff
A part cela il y a encore et surtout des gens sympa...

"JièL Goubert" a écrit dans le
message de news: %23$
Bonjoir(c) Rai

Laissez tomber, il porte parfaitement bien son pseudo, il a fait la même
chose dans le forum OE6 il y a peu, il demande un TALC et engueule ceux
qui ne font pas EXACTEMENT comme il le voudrait.

on est gaté en ce moment :-(
Heureusement qu'il reste des gens sympa...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/

Le 05/12/2004 14:22 vous avez écrit ceci :
Au fait le troll, tu poses souvent 2 fois les même questions dans le même
forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes
que ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés et
non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre
macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous
tes ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai




Avatar
Corona
Bonjour Jièl,
A la lecture de cette ficelle, je me demandais si je rêvais.
Comme tu l'écris si bien, heureusement qu'il reste des gens sympas et
.... polis.
Philippe

"JièL Goubert" a écrit dans le
message de news:%23$
Bonjoir(c) Rai

Laissez tomber, il porte parfaitement bien son pseudo, il a fait la même
chose dans le forum OE6 il y a peu, il demande un TALC et engueule ceux
qui ne font pas EXACTEMENT comme il le voudrait.

on est gaté en ce moment :-(
Heureusement qu'il reste des gens sympa...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/

Le 05/12/2004 14:22 vous avez écrit ceci :
Au fait le troll, tu poses souvent 2 fois les même questions dans le
même forum ??


(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2 lignes
que ta manière de répondre en devient sympa ...


Et aussi : souviens-toi que les gens ici sont des bénévoles passionnés
et non des 'pisseurs de ligne' corvéables à merci.



Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une pôôvre
macro, quand même ??!



Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais sous
tes ordres...



Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai




Avatar
michdenis
Bonjour Le Troll,


Essaie ceci ...

'--------------------------------------
Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Columns("G"))

If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each C In Rg
If UCase(C) = "X" Then
C.Value = UCase(C)
C.Font.Bold = True
Else
C.Value = ""
End If
Next
Application.EnableEvents = True
End If
Set Rg = Nothing: Set C = Nothing

End Sub
'--------------------------------------



Salutations!





"LE TROLL" <le a écrit dans le message de news:
Salut 3, tiens, voici ce que j'ai fait (en 10 minutes et tout seul),
ça marche, saurais-tu l'optimiser ?

' macro auto-pointage module 1 : compta.xls
'
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Columns("G")) <> "" Then
If Intersect(Target, Columns("G")) = " " Then: GoTo efface
If Len(Intersect(Target, Columns("G"))) > 1 Then: GoTo efface
Intersect(Target, Columns("G")) = UCase(Target)
Intersect(Target, Columns("G")) = "X"
End
End If
If Intersect(Target, Columns("G")) = "X" Then
efface:
Intersect(Target, Columns("G")) = ""
End
End If
End Sub


Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, Columns("G")) <> "X" And Intersect(Target,
Columns("G")) <> "x" Then
Intersect(Target, Columns("G")) = UCase(Target)
Intersect(Target, Columns("G")) = "X"
End
End If
If Intersect(Target, Columns("G")) = "X" Then
Intersect(Target, Columns("G")) = ""
End
End If
End Sub
-------------

C'est ça que je te demandais de faire (s'il te plaît), c'était un procédure
qui fonctionne, comme les deux que je viens de faire :o)

Merci si tu as des améliorations de code (moi je ne connais que VB) ???
----------


"Rai" a écrit dans le message de news:
41b2e22f$0$8092$
Hey,

Si je veux j'écris la macro !
D'ailleurs, a priori tu connais un peu les macros puisque tu vuex utiliser
les évennments de la feuille, appeler une procdure et que tu utilises des
choses comme 'exit sub'.

Avant de partir là-dessus, je te conseille d'appuyer sur la touche F1 et de
regarder comment fonctionne la validation.
Avec la validation, telle que je te l'ai décrite précédemment, tu peux
mettre AU CHOIX 'X' ou rien dans les cellules validées.

Donc, si tu as des chèques non-encaissés tu laisse la cellule vide
Si tu as des comptes pointés ... tu mets X

Soit, je n'ai rien compris à tes besoins, soit il faut que tu les
réexpliques.

Rai

"LE TROLL" <le a écrit dans le message de news:
%
Salut, merci, non, je ne teste valide pas toute la colonne car il y
a des trous (chèque non encaissé par exemple), par contre, si tu pouvais
me
faire ma macro comme demandé car je ne connais pas le VBA, merci :o)
-----

"Rai" a écrit dans le message de news:
41b2d068$0$3415$
Bonjour,

Si je regarde ta signature, je comprends pourquoi tu veux absolument
passer
par une macro ...
... en effet, pourquoi utiliser une pince à épiler quand on peut utiliser
une hache pour enlever une écharde !! ;o))

Bon, trève de plaisanterie.
Tu peux certainnement utiliser une macro, mais tu peux aussi utiliser la
validation de données.
- sélectionner les cellules qui servent à pointer avec "X", pourquoi
pas
directement sélectionner toute la colonne
- Menu 'Données' / 'Validation'
- Autoriser 'liste'
- dans 'source' tu mets X

voilà, ça devrait pas mal fonctionner maintenant.

Pour éviter le problème maj/min et ainsi autoriser la saisie de x ou X,
tu pouvais aussi inclure la fonction majuscule() dans tes formules.
Plutôt que de tester =si(G2="X";blabla;bloblo) tu peux écrire
=si(majuscule(G2)="X"; ....)

Bon Dimanche

Rai




Avatar
Clément Marcotte
Demande à Papy Bernard de te faire ça avec Framework


"LE TROLL" <le a écrit dans le message de
news:
Ben a priori tu ne savais pas répondre, oh, je ne t'en veux
pas,

mais dans ce cas, ne réponds simplement pas...

Sinon, pour ce qui est du VBA, oui en effet, je ne vais pas
passer une

semaine à apprendre le VBA pour coller quelques macros, je demande à
ceux

qui savent et en ont le temps, de bien vouloir me le faire, ça ne
demande

guère plus de 15 minutes à celui qui sait, ceci sur le principe de
ce qui

existe déjà, par exemple en VB, que je connais bien, on demande le
code et

on le retape; idem pour les applets Java, les fonction en VB, en C
mise à

disposition sur le Net, c'est tout à fait courant ce que je
demande...

Je ne comprends pas ce que tu dis, sauf si tu n'y connais rien en
VBA (comme

moi) ou presque, en fait, tu n'as pas su optimiser mon code, donc tu
n'y

connais rien! Alors, pourquoi me faire des réponses partielles qui
ne me

servent à rien ? Pour montrer que tu connais, lol, mais quand on
connaît ça

marche, t'es un pauvre type pour moi, un incompétent qui ne répond
qu'à des

questions de base et fait semblant de savoir en lançant deux trois
mots de

VBA, dans ce sens tu as bien raison d'écarter mes messages, car
depuis tout

à l'heure, tu m'as répondu trois fois des choses qui n'ont
absolument pas

fait avancer mes 2 procédures (je l'ai ai trouvé tout seul
celle-là), donc

tu es réellement un parasite, et tu me rendras service en ne
répondant pas

des conneries à mes questions, merci :o)
-----------

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

41b30bbb$0$11771$
Au fait le troll, tu poses souvent 2 fois les même questions dans le
même

forum ??
(cf. ta précédente intervention du 18/11)

Juste comme ça : c'est pas parce-que tu mets 'lol' toutes les 2
lignes que

ta manière de répondre en devient sympa ...
Et aussi : souviens-toi que les gens ici sont des bénévoles
passionnés et

non des 'pisseurs de ligne' corvéables à merci.

Tu programmes depuis 25 ans ??
Tu ne veux quand même pas apprendre le VBA pour juste faire une
pôôvre

macro, quand même ??!

Mais tu VEUX bien qu'un gusse s'exécute à ta place, pour rien, mais
sous tes

ordres...

Bienvenu dans ma boîtatrolls (anciennement boitakon).

Rai

"LE TROLL" <le a écrit dans le message de news:

Bonjour,

En VBA, comment faire une macro dans Excel, soit:

Objet: Pour pointer un compte, lors du rapprochement avec le
relevé de


compte, je coche une case d'un "X" graissé en majuscule quand
chaque


opération est identique sur le relevé et sur Excel où je fais le
compte...



Problème, quand je coche, ça m'oblige à mettre en majuscule, et
ou, je me


trompe de lettre (m'astreignant à corriger), d'onc une macro
serait la


bienvenue, comme suit:








1 2 3 4 5