croix sur ligne quant on clique sur un chiffre

[MASSJIPE]

Bonjour à tous
Si je clique sur un chiffre EX 3,5 une croix doit se mettre sur la ligne
Mais comment faire vba ou graphique
voir PJ
merci

 

[pierrejean]

Re : croix sur ligne quant on clique sur un chiffre

bonjour MASSJIPE

Vois si cela te convient

 

[job75]

Re : croix sur ligne quant on clique sur un chiffre

Bonjour MASSJIPE, salut pierrejean 🙂

Autre solution, dans le code de la feuille :

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ù :

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+

 

[Robert]

Re : croix sur ligne quant on clique sur un chiffre

Bonjour le fil, bonjour le forum,

Hou la la y'a du monde et du beau !!! Comme c'est fait, j'envoie quand même une proposition VBA...

 

[MASSJIPE]

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

 

[job75]

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 :

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+

 

[MASSJIPE]

Re : croix sur ligne quant on clique sur un chiffre

Slt Job
Il faut que ca soit appliquable pour chaque ligne et sur seule croix par ligne

 

[pierrejean]

Re : croix sur ligne quant on clique sur un chiffre

Salut Robert 🙂
Salut Job 🙂

Heureux de vous croiser

Version avec effacement si la croix est deja la

 

[MASSJIPE]

Re : croix sur ligne quant on clique sur un chiffre

Pierre Jean
Chez moi ca fonctionne pas les croix reste

 

[pierrejean]

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

 

[MASSJIPE]

Re : croix sur ligne quant on clique sur un chiffre

Ok
Ca fonctionne

Merci et bonne soirée

 

[kjin]

Re : croix sur ligne quant on clique sur un chiffre

Bonjour le fil,
Juste pour le fün
A+
kjin