comment mettre une croix dans une cellule

[céline]

bonjour

y a t'il une formule pour pouvoir mettre une croix dans une cellule sans avoir à passer par le vba.
merci

 

[lapix]

salut

Tu pourrais nous dire ce que c'est une croix pour toi ?

un X ou un + ou....

Est ce que c'est en fonction de quelque chose ou pas ?

...

 

[Jeannot45]

Bonsoir Céline

tu peux utilier la fonction SI

ainsi
si la cellule A1 contient une valeur alors afficher X dans la cellule B1

on aura la formule suivante dans B1:

=si(A1 = 10; 'X'; '')

ce qui veut dire que si dans A1 j'ai la valeur 10
j'affiche un X dans B1 sinon je simule un vide

Bonne continuation

Jeannot

 

[céline]

c'est à dire quand je clique sur la cellule j'aimerais qu'il m'affiche une croix (un caractère spécial) et quand je reclic dessus qu'elle s'enlève.

 

[PascalXLD]

Bonjour

1 - Tu sélectionnes la cellule désirée
2 - tu tapes sur la touche X
3 - tu peux faire varier la taille de ta croix par la touche MAJ ou par la taille de la police



Bonne soirée

 

[PascalXLD]

Re

Oups ça s'est croisé ici

Sans VBA ce que tu demandes va être dur

 

[lapix]

Et avec une liste de choix ca ne pourrait pas aller ?

 

[Dan]

Bonjour,

Comme le dis Pascal76, dur dur cela.

Enfin pas VBA :

- ALT + F11 pour accéder à VBA
- CTRL + R pour afficher la fenetre VBA project
- Double clique sur la feuille concernée par les croix
- A droite place cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range('B2:D20')) Is Nothing Then 'modifie ton tableau
If Target.Value = '' Then
Target.Value ='X'
Else
Target.Value = ''
End If
End If
End Sub

- Ferme VBA et Enregistre ton fichier

remarque : valable entre les cellules B2 et D20


Message édité par: Dan, à: 19/01/2006 15:55

 

[pascal21]

salut j'avais déja demandé ça sur un autre forum voilà la réponse que j'avais gardé


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range('A1:IV65536'), Target) Is Nothing Then Exit Sub
If ActiveCell.Value = '' Then ActiveCell.Value = 'X'
End Sub

double clic gauche ou droit ecrit le X



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous Then 'Effacement des diagonales
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Else ' Tracer des diagonales
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
End Sub


celle-ci trace une diagonale dans la cellule
voir pour la selection des cellules

Message édité par: pascal21, à: 19/01/2006 16:05

 

[pascal21]

grrrrrr!
j'arrive pas à mettre le fichier [file name=croixdanslescellules.zip size=9486]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/croixdanslescellules.zip[/file]
ah!!! j'oublie toujours d'enlever les espaces

Message édité par: pascal21, à: 19/01/2006 16:07

Message édité par: pascal21, à: 19/01/2006 16:08

 

[céline]

donc je suis obligé de passer par le vba

 

[céline]

donc je suis obligé de passer par le vba

 

[pascal21]

salut
rien de compliqué tu fais un copier/coller du code que je t'ai donné et le tour est joué
dans le cas du fichier que j'ai joint (méthode double/clic)
tu clic droit sur l'onglet de la feuille
visualiser le code/clic droit sue feuille1/exporter le code/enregistrer
ensuite dans ton classeur visualiser le code/clic sur la pfeuille où tu veux mettre la fonction/importer le code
cette partie du code te donne la zone d'application du double/clic A1:IV65536 sit u as plusieurs zones tu separe avec une virgule
pascal

 

[Dan]

Bonsoir,

Céline quelle est la plage à couvrir dans ton fichier et sur quelle feuille ?

A te lire

 

[céline]

bonsoir,

c'est la plage d28:d30 et sur le feuille 'devis_detail'