saisie par clic

[tany]

Bonjour à tous,

Peut on sur un simple clic saisir un caractère quelconque dans une cellule ?
par exemple j'aimerai, si possible, sur un clic dans "A1" y voir un "*".
Probablement par code VBA ?
Merci à vous.

 

[Dull]

Re : saisie par clic

Salut Tany, le Forum

Essaye ça

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target.Value = "*"
End If
End Sub

Code a coller dans le module de ta feuille

Bonne Journée

 

[pierrejean]

Re : saisie par clic

bonjour

vois si cela te convient

 

[tany]

Re : saisie par clic

Merci à tous deux, déjà un gros plus !
dans l'exemple tany.xls si je veux toute une colonne A1:A10
comment faire ?
Mille excuses je ne suis pas très ferré en la matière...

 

[pierrejean]

Re : saisie par clic

Re
pour toute la colonne A

[FONT=Times New Roman][SIZE=3]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]If Target.Column = 1 Then[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]Target = "*"[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End If[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]

pour la plage A1:A10

[FONT=Times New Roman][SIZE=3]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]If Target.Column = 1 And Target.row<11 Then[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]Target = "*"[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End If[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]

 

[Dull]

Re : saisie par clic

Re Tany, le Forum

Salut pierrejean 🙂

Juste pour saluer l'ami pierrejean et pour donner la variante par rapport a mon post

Pour la Colonne A

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Value = "*"
End If
End Sub

Pour la Plage A1:A10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Target.Value = "*"
End If
End Sub

Bonne Journée