Discussion :

[Poulain]

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.

[SilkyRoad]

bonjour

j'espere que ce lien pourra t'aider

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


michel

[Poulain]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dadavyvy]

Dans la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lexot2]

Bonjour

Installe ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour

Installe ce code :..

juste 3 problémes

à quoi cela sert dans ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("A1").Select

et cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Application.EnableEvents = False

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