Croix qui apparait quand clique sur 1 cellule
Résolu
babs44
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
babs44 Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
babs44 Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Est-ce que quelqu'un pourrait me renseigner pour faire en sorte que lorsque l'on clique dans la cellule C2 par exemple, il y ait une croix qui apparaisse ? Et quand on reclique dans la même cellule, la croix disparait ? De même pour toutes les cellules du tableau !
Je sais que c'est faisable mais je ne sais pas comment donc si quelqu'un pouvait me renseigner ce serait super !
Merci par avance !
Ci dessous mon tableau :
http://www.cijoint.fr/cjlink.php?file=cj201104/cijfjXCDWt.xlsx
Est-ce que quelqu'un pourrait me renseigner pour faire en sorte que lorsque l'on clique dans la cellule C2 par exemple, il y ait une croix qui apparaisse ? Et quand on reclique dans la même cellule, la croix disparait ? De même pour toutes les cellules du tableau !
Je sais que c'est faisable mais je ne sais pas comment donc si quelqu'un pouvait me renseigner ce serait super !
Merci par avance !
Ci dessous mon tableau :
http://www.cijoint.fr/cjlink.php?file=cj201104/cijfjXCDWt.xlsx
A voir également:
- Faire une croix dans une cellule excel
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Bloquer une cellule excel - Guide
2 réponses
Pour tous ceux que ça intéresse, j'ai trouvé la solution :
Il faut donc cliquer sur l'onglet Feuil1 (clique gauche), Visualiser le code et rentrer ce dernier ainsi :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("C2:F16")) Is Nothing Then 'modifie ton tableau
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
Il faut enregistrer son fichier en excel avec macros sinon cela ne fonctionnera pas !
Voilà, désolée pijaku pour la version d'excel jointe, je note pour la prochaine fois ! Je tâcherais également d'être plus précise dans ma question !
Il faut donc cliquer sur l'onglet Feuil1 (clique gauche), Visualiser le code et rentrer ce dernier ainsi :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("C2:F16")) Is Nothing Then 'modifie ton tableau
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
Il faut enregistrer son fichier en excel avec macros sinon cela ne fonctionnera pas !
Voilà, désolée pijaku pour la version d'excel jointe, je note pour la prochaine fois ! Je tâcherais également d'être plus précise dans ma question !
