Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA : Inscrire une valeur sur simple selection...(ou fausses cases à cocher)

VBA : Inscrire une valeur sur simple selection...(ou fausses cases à cocher)

3 réponses
Avatar
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...

Merci pour votre aide
Domi
Signaler un problème avec ce contenu

3 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
Avatar
AV
Dans le module de la feuille :

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




Avatar
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