cerhu > microsoft.* > microsoft.excel

Gerard (28/09/2005, 22h32)
Bonsoir
tout est dans le titre pour une cellule
merci
gege
Patrick BASTARD (28/09/2005, 22h47)
Bonsoir, *Gerard*

Tout est dans le titre, AMHA
Jacky (28/09/2005, 22h48)
Bonsoir
Ca sera très dur, même dans le titre
;o))
JJ

"Gerard" <gege> a écrit dans le message de
news:b975
[..]
LSteph (28/09/2005, 23h14)
Bonsoir,
la bonne formule pour faire cela sera elle aussi dans le contenu

Alors il faut appeler la police!

du contenu..soit la Cellule via le menu format
et comme ce que tu demandes est tout à fait exceptionnel
elle devra mettre un costume blanc!

lSteph
"Gerard" <gege> a écrit dans le message de news:
433afde5$0$27430$8fcfb975...
[..]
Gerard (29/09/2005, 05h33)
salut
merci a tous pour la confirmation.....
mais c'est une evidence meme, sauf en bidouillant avec un copier, d'une
autre plage cachée...
merci
"Gerard" <gege> a écrit dans le message de news:
433afde5$0$27430$8fcfb975...
[..]
Â+ (29/09/2005, 07h23)
Bonjour,

Effacer le contenu sans la formule cela ne me semble pas possible, mais bien
caher le contenu.

Deux possibilités simples :
Couleur de la police = couleur du motif (en principe blanc)
Format de la cellule : ;;; (trois points-virgules)

Â+

"Gerard" a écrit :
[..]
Â+ (29/09/2005, 08h19)
Resalut,

Autre méthode, un peu plus sophistiquée.

Choisir une cellule vide quelconque, par exemple A1 pour l'exemple.
Dans les formules dont il faut ne pas calculer le résultat, faire précéder
les formules par :=SI(A1="";"";la formule)
Vérouiller et masquer ces cellules

Tant que la cellule A1 (ou la cellule choisie) est vide, la formule ne
calcule pas son résultat, et comme la formule n'est pas affichée dans la
barre d'outils, il n'y a pas moyen de découvrir l'astuce employée.

Â+

"Â+" a écrit :
[..]
LSteph (29/09/2005, 08h44)
Bonjour,
tu ne vois pas mon message,
pourtant je n'ai pas mis la police en blanc.

Sinon ,si le but était, ceci..donc alternative:
=si(ou(b1=0;b1="");"";a1/b1)

lSteph

"Gerard" <gege> a écrit dans le message de news:
433b6075$0$7852$8fcfb975...
[..]
Ange Ounis (02/10/2005, 14h39)
Une approche possible est de chercher les cellules auxquelles la formule fait
référence et d'en effacer le contenu. La procédure ci-dessous fait ce travail.
C'est une adaptation d'une procédure trouvée sur le groupe anglophone. Les
antécédents de la formule peuvent être dans le même classeur, sur différentes
feuilles, ou dans un autre :

'''''''''''''''''''''''''''''
Sub essai()
ClearPrecedents Range("C1")
End Sub

Sub ClearPrecedents(cell As Range)
'adaptation d'une procédure (FindPrecedents)
'written by Bill Manville, revised by Paul S.
'mpep, August 14, 2001
'this procedure finds the cells which are the direct precedents of the active cell
'et en efface le contenu (02/10/2005)
Dim rLast As Range, iLinkNum As Integer, iArrowNum As Integer
Dim bNewArrow As Boolean

Application.ScreenUpdating = False
cell.Select
ActiveCell.ShowPrecedents
Set rLast = cell
iArrowNum = 1
iLinkNum = 1
bNewArrow = True
Do
Do
Application.Goto rLast
On Error Resume Next
ActiveCell.NavigateArrow _
TowardPrecedent:=True, ArrowNumber:=iArrowNum, _
LinkNumber:=iLinkNum
If Err.Number > 0 Then Exit Do
On Error GoTo 0
If rLast.Address(external:=True) = _
ActiveCell.Address(external:=True) Then Exit Do
bNewArrow = False
If rLast.Worksheet.Parent.Name = _
ActiveCell.Worksheet.Parent.Name Then
If rLast.Worksheet.Name = _
ActiveCell.Parent.Name Then
' local
Selection.ClearContents
Else
Selection.ClearContents
End If
Else
' external
Selection.ClearContents
End If
iLinkNum = iLinkNum + 1 ' try another link
Loop
If bNewArrow Then Exit Do
iLinkNum = 1
bNewArrow = True
iArrowNum = iArrowNum + 1 'try another arrow
Loop
rLast.Parent.ClearArrows
Application.Goto rLast
End Sub
'''''''''''''''''''''''''''''

----------
Ange Ounis
----------

Gerard a écrit :
[..]
Discussions similaires
Effacer le contenu des cellules jaunes sans supprimer les formules

Effacer le contenu de cellules à l?aide d?une formule conditionnel

Comment ajouter des options sans effacer le contenu

Supprimer le contenu sans effacer les formules


Fuseau horaire GMT +2. Il est actuellement 02h21. | Privacy Policy