[excel] Lors de l'évennement click

Bonjour,
je sais programmer en VB.Net, mais alors en VBA, pas du tout, même si j'ai eu l'occasion de voir que ça se ressemblait enormement.
Donc, ce que je voudrais, c'est tout simple:
j'ai deux colonnes, une avec des noms et une autre, (là intervient le code VBA) o{u, je voudrais que lorsqu'on clique dessus, un x s'affiche et que si on reclique dessus, celui-ci s'enlève(en cas d'erreur de clique), de plus je voudrais que l'on ne puisse faire que ça sur ce cases.

Merci de vos réponses.

bonjour

j'espere que ce lien pourra t'aider

http://silkyroad.developpez.com/VBA/...Feuille/#LII-I


michel

J'ai compris que l'évennement de clic sur une cellule, c'est:

Code:

---

1 2	Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub

---

Mais, ce que je ne sais pas faire, c'est préciser la colonne, et aussi dire d'afficher une croix. ou un x.
Je pense que c'est silple, mais j'arrive pas a bien comprendre ce langage...

Dans la fonction :

Code:

---

1 2	Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub

---

Target représente un Range, càd une plage de cellules (une cellule ou plusieurs)
c'est la plage de cellules "cible", càd la nouvelle plage sélectionnée (SelectionChange).
Ainsi, Target a les mêmes propriétés qu'un range :
Column (colonne), Row (ligne), etc...
Il faut donc que tu verifies que la colonne de ta Target est la même que celle de ta colonne "nom" ou autre, ensuite, que tu affectes un "X" dans la cellule Target :

Code:

---

1 2 3

If Target.Column = 5 Then ' 5 est le numéro de la colonne Target = "X" ' ou Target.Value = "X" ou Target.FormulaLocal = "X" End If

---

8-) Bonjour

Installe ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Application.EnableEvents = False Range("A1").Select If Target = "X" Then Target = "" Else Target = "X" End If   Application.EnableEvents = True   End Sub

---

Cordialement

Citation:

---

Envoyé par Lexot2

8-) Bonjour

Installe ce code :..

---

juste 3 problémes

à quoi cela sert dans ce code :

Code:

---

Range("A1").Select

---

et cela

Code:

---

Application.EnableEvents = False

---

comment fait-tu pour que les croix ne se mettent pas dans la colonne nom ..?

Je demande beaucoup, mais:
vous pourriez me donner le cod tout fait?
et comme il faut. SVP.

Citation:

---

Envoyé par Poulain

Je demande beaucoup, mais:
vous pourriez me donner le cod tout fait?
et comme il faut. SVP.

---

dadavyvy te la déjà donné 3 posts plus haut !!

8-) Bonjour

Désolé pour mon code erroné. Merci bbil pour tes remarques
Voici mon code rectifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Column = 5 Then If Target = "" Then Target = "X" Else Target = "" End If End If Range("A1").Select End Sub

---

Je vais essayer d'expliquer mes lignes de code :

Code:

---

Range("A1").Select

---

permet en cliquant 2 fois dans la même cellule de lancer la procédure. 1 clic = "X" 2 clics = "" (changement de cellule)...

Code:

---

Application.EnableEvents = True et False

---

permet de bloquer ou activer les évènements génants (déclenchement en chaîne, mais inutile dans ce contexte)

Mon nouveau code met "X" seulement dans la colonne 5!!!

Il est préférable de remplacer Range("A1").Select par

Code:

---

ActiveCell.Offset(0, -1).Select

---

Cordialement

Citation:

---

Envoyé par Lexot2

...
Je vais essayer d'expliquer mes lignes de code :

Code:

---

Range("A1").Select

---

permet en cliquant 2 fois dans la même ...

---

à oui j'avais pas compris ... cela mais en fait c'est il vaut peu-être mieux changer d'événement et utiser par exemple
:

Code:

---

1 2	Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

---

Bon, j'ai essayé le code, tout va bien, mais j'ai une erreur quand je fait une selection de plusieurs cellules dans la meme colonne, comment on peut faire pour empêcher la selection de plusieurs cellules dans un colonne?

bonjour

Code:

---

1 2 3 4

If Target.Cells.Count > 1 Then MsgBox "Sélectionnez une seule cellule." Exit Sub End If

---

bonne journée
michel

Merci beaucoup.

8-) Bonjour

Voici un code qui fait la synthèse, met "X" au 1er clic, "" au 2ème clic, et annule la sélection multiple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Column = 5 Then If Target.Cells.Count = 1 Then   If Target = "" Then Target = "X" Else Target = "" End If End If ActiveCell.Offset(0, -1).Select End If   End Sub

---

Cordialement

Voilà le code parfait!

Maintenant que j'arrive à mieux comprendre le code, voilà ce que j'ai mis(enfin, c'est le code dont j'avais besoin):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then If Target.Cells.Count = 1 Then   If Target = "" Then Target = "X" ElseIf Target = "X" Then Target = "" End If End If End If   End Sub

---

J'ai ajouté un ElseIf, car dans ces colonnes, je ne met que des croix, mais en heut, j'ai une cellule qui dit à quoi correspond mes croix et il ne faut pas qu'elle soit mlodifié si on clique dessus.
Pour appliquer à plusieurs colonnes, je n'ai pas trouvé dautre solution, de plus le

Code:

---

ActiveCell.Offset(0, -1).Select

---

je n'ai pas compris à quoi il servait, surtout qu'il m'affiche une erreur, je ne sais plus laquelle.
Merci de vote aide!

8-) Bonsoir

Code:

---

ActiveCell.Offset(0, -1).Select

---

est un déplacement relatif de 1 colonne vers la gauche, ce qui permet de cliquer 2 fois sur la même cellule, et de déclencher la procédure évènementielle. Si tu l'enlèves, ton 2ème clic n'est pas pris en compte, mais ce n'est pas très important.

Cordialement

Merci pour le renseignement.