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
LeSteph
Bonjour Coronna,

C'est vrai ! et outre les réponses qui lui tout de même été données ,
par RAI sous forme de Formule et Vba pour ma part
je n'ai pas été vraiment poli non plus avec ce Troll prétentieux mais
vu son comportement et ses propos vis à vis de RAI,
et ce n'est pas accidentel, je le revendique pleinement.

:-)
'lSteph

"Corona" <Philippe Tulliez> a écrit dans le message de news:

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
Clément Marcotte
Ouais, toi, JEAN et Papy Bernard dans la même pièce, ce ne serait pas
banal.
Avatar
Pierre CFI [mvp]
un client pour michdenis :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Clément Marcotte" a écrit dans le message de news:
Ouais, toi, JEAN et Papy Bernard dans la même pièce, ce ne serait pas
banal.



Avatar
Misange
Salut Rai,

Ben quoi, il annonce la couleur le mec non, il ne signe pas "le gentil
qui sait pas et demande poliment" ? Il dit clairement je suis un troll,
j'en suis fier et je m'en vante. Alors oui éleveuse de troll c'est un
métier mais a-t-il beaucoup d'avenir ça... :-) Sérieusement, les pseudos
ça révèle quand mmême bien ce que certains ont dans la tête non ?

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 05/12/2004 14:22:
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
Bonzour :o)

Merci, mais dis-moi, préalablement, as-tu regardé mon code, car ça
marche et je cherchais à l'améliorer (j'connais pas vb"A")... En plus
j'avais un problème, je sortais de l'if par un end sub, et ça bouclait tout
le temps, alors je lui ai balancé un end, mais pourquoi ça bouclait tout le
temps?

Je suis content qu'il y ait des gens et qui répondent, et qui s'y
connaissent, comme toi, merci, depuis le début de l'après-midi, je n'avais
que des truc vaseux, inexploitables, et en plus des réflexions quand je
disais que la réponse était inexploitable... ah, merci, à te lire ???
---------

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

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
LE TROLL
Eh mon pote, je demande un truc, alors il y a plusieurs possibilités:
Soit on ne sait pas, donc on ne répond pas...
Soit on sait mais on ne veut pas (plus rare), ben idem
Soit on sait et on répond...

Dans les deux premiers cas on ferme sa gueule, le problème et que j'ai
des cons qui m'ont répondu sans pour autant faire avancer le problème, et
sans savoir comment faire...

C'est clair, je demande un procédure qui marche (faute de compétence de
ma part), soit on me file la procédure, soit on passe son chemin, c'est
simple, pourquoi y a toujours des vermines qui viennent parasiter les
questions (toi y compris, car je pose une question, et tu réponds autre
chose)???
-------------

"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
LE TROLL
Ben moi je voudrais surtout des gens compétents, en un mot, car en ce
qui te concerne, ce serait plutôt en deux mots, regardes, on m'a en
définitive répondu, aussi en forum VB d'ailleurs, tu verras la qualité des
réponses, elle n'est pas la même que les conneries inutiles que tu m'a
répondu"...
----------

"LeSteph" a écrit dans le message de news:
ux%
:-)
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
LE TROLL
On t'a pas sifflé toi, t'écris pas dans ma question, on n'écrit dans
ma question que pour me donner une réponse qui fonctionne par copier/coller
(car je ne connais pas VBA), pigé p'tite tête :o)
-------------

"Corona" <Philippe Tulliez> a écrit dans le message de news:

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
LE TROLL
Ben voui "Miso", j'annonce la couleur:
-1- Je ne connais pas VBA, donc
-2- Je demande "s'il vous plaît":
-3- Une procédure qu'en collant, fonctionne pour une action que je décris,
c'est un cahier des charges, ça doit fonctionner comme je le désir, on
accepte ou pas, le code est libre, mais pas le résultat, on sait le faire ou
pas, mais je ne bidouille pas avec des approximations, c'est ainsi).
POINT final, on me donne ou pas (et je dis merci quand on me donne)...

Et si tu doutes de ma compétence face d'oeuf, vas voir un de mes sites (j'ai
dû faire plus de 100 applications vendues), et lis un de mes douze romans
aussi...

http://irolog.free.fr/


REGARDE !
Si tu doutes, voici ce que je demande (et je dis "merci")
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. <<<-------

*-*-*-*-*-*-*
ET VOICI CE QUE REPONDENT NOTAMMENT:
-------------------------------------------------------
Ça c'est "RAI"
- 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
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"; ....)

Ça c'est "Le Steph"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Target = "X"
End Sub

*-*-*-*-
TU VEUX QUE JE FASSE QUOI DES REPONSES DE CES DEUX CRETINS, TU CROIS QUE SI
JE COLLE ÇA, ÇA VA FONCTIONNER ??? Ben non, ça ne peut faire l'affaire,
alors pourquoi ils me répondent s'ils ne connaissent pas (comme moi) le VBA
???
Nous sommes d'accord j'espère, j'ai demandé avec politesse 2 procédures,
soit on me les file, soit on passe son chemin, mais quand on me balance des
merdes comme ça en réponse, oui, ça chauffe sous le chapeau...
------------

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

Salut Rai,

Ben quoi, il annonce la couleur le mec non, il ne signe pas "le gentil qui
sait pas et demande poliment" ? Il dit clairement je suis un troll, j'en
suis fier et je m'en vante. Alors oui éleveuse de troll c'est un métier
mais a-t-il beaucoup d'avenir ça... :-) Sérieusement, les pseudos ça
révèle quand mmême bien ce que certains ont dans la tête non ?

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 05/12/2004 14:22:
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
Oui, ça met un "X", mais ça ne l'enlève pas quand on re-doubleClick,
alors ça ne sert à rien, manifestement tu ne sais pas lire un algorithme,
donc ne répond pas à ce genre de question si tu ne sais pas :o)
----------

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

Re, bonjour,

Cela met un Xmajuscule dans ta colonne g sur double clic
donc cela résoud ci en objet:

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...



Et c'est bien en Majuscule!

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,
C'est fait


comme suit:
Désolé ce que tu suggères ne convient pas du tout à ce que tu demandes.


Donc: faire
exclusivement et exactement ce que j'ai
proposé et cela devrait convenir.


.|

;-)

'lSteph

"LE TROLL" <le a écrit dans le message de news:
%
Bonjour, merci, mais c'est juste un morceau, ça ne ressemble pas
trop à ma demande, lol, si tu veux biens regarder et , car ça devrait
fonctionner ainsi, merci d'avance :o)
---------

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

...et au cas où tu doives faire dblclick ailleurs sans mettre de x:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Target.Column = 7 Then Target = "X"
End Sub

"LeSteph" a écrit dans le message de news:
%
Bonjour,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Target = "X"
End Sub

'lSteph
'..un troll qui sait lâcher le manche de temps en temps respire!
"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:


' 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 !





















1 2 3 4 5