Inscrire X dans cellule en un clic
Résolu
jetset30
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaiterai obtenir une formule qui me permettrait d'inscrire, lors d'un clic sur une cellule, la lettre "X" et de l'effacer en cliquant de nouveau dessus.
Merci pour vos réponses.
Je souhaiterai obtenir une formule qui me permettrait d'inscrire, lors d'un clic sur une cellule, la lettre "X" et de l'effacer en cliquant de nouveau dessus.
Merci pour vos réponses.
A voir également:
- Inscrire X dans cellule en un clic
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Comment s'inscrire sur vinted - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
10 réponses
Bonjour,
tu aurais dû ouvrir ta propre discussion à la place de relancer cette ancienne
enfin teste ce code qui inscrit un X sur un double clic.
A adapter
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
tu aurais dû ouvrir ta propre discussion à la place de relancer cette ancienne
enfin teste ce code qui inscrit un X sur un double clic.
A adapter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([B17:H17], [J17:K17])) Is Nothing Then
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
voila le code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("case_cochée"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "x"
Cancel = True
Else
If Target = "x" Then
Target = ""
Cancel = True
End If
End If
End Sub
1 condition : creer une zone nommée case_cochée (insertion/nom/definir)
bonne réception
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("case_cochée"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "x"
Cancel = True
Else
If Target = "x" Then
Target = ""
Cancel = True
End If
End If
End Sub
1 condition : creer une zone nommée case_cochée (insertion/nom/definir)
bonne réception
Salut,
Pour suivre le code de Cherouana, tu places ce code dans le code feuille à traiter par exemple pour la feuill1
clic droit sur l'onglet de Feuil1 et colles ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
Ensuite pour l'utiliser un clic droit sur les cellules vide à traiter
A+
Pour suivre le code de Cherouana, tu places ce code dans le code feuille à traiter par exemple pour la feuill1
clic droit sur l'onglet de Feuil1 et colles ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
Ensuite pour l'utiliser un clic droit sur les cellules vide à traiter
A+
BONJOUR
PAR LE MOT "X" TU VEUX CREER UNE CASE DE VALIDATION POURQUOI NE PAS UTILISER L OUTIL "CASE A COCHER"?
PAR LE MOT "X" TU VEUX CREER UNE CASE DE VALIDATION POURQUOI NE PAS UTILISER L OUTIL "CASE A COCHER"?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonsoir
J'ai une solution dans mes archives... Je pense que cela doit se faire assez facilement avec un petit code en VBA.
Veux tu tenter le coup?
J'ai une solution dans mes archives... Je pense que cela doit se faire assez facilement avec un petit code en VBA.
Veux tu tenter le coup?
Bonjour et merci pour vos réponses !
En fait de la cellule de destination pour que le "X" s'inscrive se ferait uniquement sur la cellule A1, sans faire un double clic ou un clic droit, mais tout simplement un clic gauche (normal).
A+
En fait de la cellule de destination pour que le "X" s'inscrive se ferait uniquement sur la cellule A1, sans faire un double clic ou un clic droit, mais tout simplement un clic gauche (normal).
A+
Salut,
teste ces deux codes qui s'adressent uniquement à la cellule A1
le code ci dessous est celui qui marche le mieux mais avec double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
le code ci dessous un clic mets le X deuxième clic enléve le X
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
Ne peut pas faire mieux A+
teste ces deux codes qui s'adressent uniquement à la cellule A1
le code ci dessous est celui qui marche le mieux mais avec double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
le code ci dessous un clic mets le X deuxième clic enléve le X
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
Target = "X"
Cancel = True
Else
If Target = "X" Then
Target = ""
Cancel = True
End If
End If
End Sub
Ne peut pas faire mieux A+