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" a écrit dans le message de news: 433afde5$0$27430$
Bonsoir tout est dans le titre pour une cellule merci gege
Gerard
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" a écrit dans le message de news: 433afde5$0$27430$
Bonsoir tout est dans le titre pour une cellule merci gege
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@microsoft.fr> a écrit dans le message de news:
433afde5$0$27430$8fcfb975@news.wanadoo.fr...
Bonsoir
tout est dans le titre pour une cellule
merci
gege
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" a écrit dans le message de news: 433afde5$0$27430$
Bonsoir tout est dans le titre pour une cellule merci gege
Â+
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)
Â+
Bonsoir tout est dans le titre pour une cellule merci gege
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)
Â+
Bonsoir
tout est dans le titre pour une cellule
merci
gege
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)
Â+
Bonsoir tout est dans le titre pour une cellule merci gege
Â+
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.
Â+
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)
Â+
Bonsoir tout est dans le titre pour une cellule merci gege
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.
Â+
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)
Â+
Bonsoir
tout est dans le titre pour une cellule
merci
gege
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.
Â+
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)
Â+
Bonsoir tout est dans le titre pour une cellule merci gege
LSteph
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" a écrit dans le message de news: 433b6075$0$7852$
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" a écrit dans le message de news: 433afde5$0$27430$
Bonsoir tout est dans le titre pour une cellule merci gege
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@microsoft.fr> a écrit dans le message de news:
433b6075$0$7852$8fcfb975@news.wanadoo.fr...
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@microsoft.fr> a écrit dans le message de news:
433afde5$0$27430$8fcfb975@news.wanadoo.fr...
Bonsoir
tout est dans le titre pour une cellule
merci
gege
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" a écrit dans le message de news: 433b6075$0$7852$
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" a écrit dans le message de news: 433afde5$0$27430$
Bonsoir tout est dans le titre pour une cellule merci gege
Ange Ounis
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 ----------
Bonsoir tout est dans le titre pour une cellule merci gege
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
----------
Bonsoir
tout est dans le titre pour une cellule
merci
gege
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 ----------
Bonsoir tout est dans le titre pour une cellule merci gege