VBA : Inscrire une valeur sur simple selection...(ou fausses cases à cocher)
3 réponses
Domi
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée :
Pour les cellules d'une plage donnée (MaPlage)
Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X", sinon
elle se vide.
Mon but étant de faire de fausses cases à cocher...
Private Sub Worksheet_SelectionChange(ByVal zz As Range) If Selection.Count > 1 Then Exit Sub If zz = "" Then zz = "x" Else zz = "" End Sub
AV
MichelB
Bonjour Domi
Pour une plage M4:M54, j'ai fait çà :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If Intersect(Target, Range("m4:m54")) Is Nothing Then Exit Sub If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X" ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = "" End If Cancel = True End Sub
Cela convient-il ?
-- Salut Michel ---- ;o) Enlever _nospam pour me répondre
"Domi" a écrit dans le message de news:%
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée : Pour les cellules d'une plage donnée (MaPlage) Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X", sinon elle se vide. Mon but étant de faire de fausses cases à cocher...
Merci pour votre aide Domi
Bonjour Domi
Pour une plage M4:M54, j'ai fait çà :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target, Range("m4:m54")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub
Cela convient-il ?
--
Salut
Michel ---- ;o)
Enlever _nospam pour me répondre
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23NTaHAlYEHA.716@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée :
Pour les cellules d'une plage donnée (MaPlage)
Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X", sinon
elle se vide.
Mon but étant de faire de fausses cases à cocher...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If Intersect(Target, Range("m4:m54")) Is Nothing Then Exit Sub If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X" ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = "" End If Cancel = True End Sub
Cela convient-il ?
-- Salut Michel ---- ;o) Enlever _nospam pour me répondre
"Domi" a écrit dans le message de news:%
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée : Pour les cellules d'une plage donnée (MaPlage) Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X", sinon elle se vide. Mon but étant de faire de fausses cases à cocher...
Merci pour votre aide Domi
Domi
tout à fait ;o) Merci Domi
"MichelB" a écrit dans le message de news:%
Bonjour Domi
Pour une plage M4:M54, j'ai fait çà :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If Intersect(Target, Range("m4:m54")) Is Nothing Then Exit Sub If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X" ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = "" End If Cancel = True End Sub
Cela convient-il ?
-- Salut Michel ---- ;o) Enlever _nospam pour me répondre
"Domi" a écrit dans le message de news:%
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée :
Pour les cellules d'une plage donnée (MaPlage) Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X", sinon
elle se vide. Mon but étant de faire de fausses cases à cocher...
Merci pour votre aide Domi
tout à fait ;o)
Merci
Domi
"MichelB" <m.bedain_nospam@free.fr> a écrit dans le message de
news:%233DsuSlYEHA.3804@TK2MSFTNGP10.phx.gbl...
Bonjour Domi
Pour une plage M4:M54, j'ai fait çà :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target, Range("m4:m54")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub
Cela convient-il ?
--
Salut
Michel ---- ;o)
Enlever _nospam pour me répondre
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23NTaHAlYEHA.716@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée
:
Pour les cellules d'une plage donnée (MaPlage)
Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X",
sinon
elle se vide.
Mon but étant de faire de fausses cases à cocher...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If Intersect(Target, Range("m4:m54")) Is Nothing Then Exit Sub If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X" ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = "" End If Cancel = True End Sub
Cela convient-il ?
-- Salut Michel ---- ;o) Enlever _nospam pour me répondre
"Domi" a écrit dans le message de news:%
Bonjour,
Je pense que c'est possible mais je n'arrive pas à concrétiser mon idée :
Pour les cellules d'une plage donnée (MaPlage) Si je sélectionne une cellule : Si elle est vide, il s'inscrit "X", sinon
elle se vide. Mon but étant de faire de fausses cases à cocher...