Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

croix sur ligne quant on clique sur un chiffre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : croix sur ligne quant on clique sur un chiffre

Bonjour MASSJIPE, salut pierrejean 🙂

Autre solution, dans le code de la feuille :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Cells.SpecialCells(xlCellTypeConstants, 1).Offset(-1).ClearContents
If IsNumeric(CStr(ActiveCell)) Then ActiveCell.Offset(-1) = Chr(207)
Application.EnableEvents = True
End Sub

Edit : au cas où l'on ajouterai des chiffres n'importe où :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Cells.SpecialCells(xlCellTypeConstants, 1).Offset(-1).ClearContents
If IsNumeric(CStr(ActiveCell)) Then
  [COLOR="Red"][C8].Copy ActiveCell.Offset(-1)[/COLOR]
  ActiveCell.Offset(-1) = Chr(207)
End If
Application.EnableEvents = True
End Sub

A+
 

Pièces jointes

Dernière édition:
Re : croix sur ligne quant on clique sur un chiffre

Merci à vous trois
mais dans la solution de JOB ca fonctionne que pour une ligne pas pour le reste comme il y a plusieurs lignes à documenter la solution 1 ou 3 me convient le mieux
Merci encore à vous trois
 
Re : croix sur ligne quant on clique sur un chiffre

Re,

Et si l'on veut que la croix disparaisse quand on efface le nombre, ajouter :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.EnableEvents = False
For Each cel In Me.UsedRange
  If cel = Chr(207) Then cel = ""
Next
Application.EnableEvents = True
End Sub

Edit : salut Robert, pas rafraîchi

A+
 

Pièces jointes

Dernière édition:
Re : croix sur ligne quant on clique sur un chiffre

Re

Il faut que la selection ait été modifiée
Apres avoir créé la croix il faut selectionner une cellule puis revenir
Si tu preferes un double click c'est bien sur possible
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Réponses
3
Affichages
114
regis6460
R
Réponses
2
Affichages
107
Réponses
2
Affichages
249
Réponses
4
Affichages
321
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…