Impression de formules

Bonjour,

-Ctrl+" permet de visualiser les formules de toute la feuille:

-Pour une colonne voir essai VBA:

http://cjoint.com/?kbr2z2CAEQ

Sub AfficheFormule()
' Macro enregistrée le 01/10/2006 par CEGOS-FRANCE
' Touche de raccourci du clavier: Ctrl+a
If ActiveCell.Formula = "" Then Exit Sub
ActiveSheet.DrawingObjects.Delete
For Each c In Range(ActiveCell, ActiveCell.End(xlDown))
largeur = Len(c.Formula)
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1,
largeur * 5, 9).Select
Selection.Characters.Text = c.Formula
Selection.Font.Name = "Arial"
Selection.Font.Size = 7
Selection.Characters.Text = c.Formula
nom = "Shape" & c.Row
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = c.Offset(0, 1).Left + 3
ActiveSheet.Shapes(nom).Top = c.Top + 1
Next c
End Sub

Sub EffaceShapes()
' EffaceShapes Macro
' Macro enregistrée le 01/10/2006 par CEGOS-FRANCE
' Touche de raccourci du clavier: Ctrl+e
ActiveSheet.DrawingObjects.Delete
End Sub

Cordialement JB

Bonjour,

Dans excel 2002, savez-vous comment imprimer une page pour que dans
certaines colonnes on puisse voir le détail des formules ?

Merci !

Bonjour Domaine,

Ctrl+# affiche les formules à la place des valeurs, mais pour l'ensemble des
cellules de l'onglet...
Tu pourrais néanmoins masquer les colonnes que tu ne souhaites pas voir
apparaître avant de lancer l'impression...

Tu peux aussi appeler cette proc qui, sur une nouvelle feuille, donnera le
détail des formules de l'onglet depuis laquelle elle aura été appelée.

Sub ListeForm()
Dim Zone As Range, Cell As Range
Dim Arr() As String
Dim NbCells As Long
On Error Resume Next
Set plgForm = [A1].SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
For Each Zone In Cells.SpecialCells(xlCellTypeFormulas)
ReDim Preserve Arr(1 To 2, 1 To NbCells + Zone.Count)
For Each Cell In Zone
NbCells = NbCells + 1
Arr(1, NbCells) = Cell.Address(0, 0)
If Cell.HasArray = True Then
Arr(2, NbCells) = "{" & Cell.FormulaLocal & "}"
Else
Arr(2, NbCells) = Cell.FormulaLocal
End If
Next Cell
Next Zone
Application.ScreenUpdating = False
Sheets.Add
With Range("A1").Resize(NbCells, 2)
.NumberFormat = "@"
.Value = WorksheetFunction.Transpose(Arr)
.Sort [A1]
End With
Set plgForm = Nothing
End Sub


ChrisV


"domaine" <milli2001fr@yahoo.fr> a écrit dans le message de news:
e2W7iSW5GHA.2264@TK2MSFTNGP02.phx.gbl...

Bonjour,

Dans excel 2002, savez-vous comment imprimer une page pour que dans
certaines colonnes on puisse voir le détail des formules ?

Merci !

Affiche la formule de la cellule active dans un SHAPE avec Ctrl+f

http://cjoint.com/?kbvut26pOL

Sub AfficheFormule()
' Macro enregistrée le 01/10/2006 par CEGOS-FRANCE
' Touche de raccourci du clavier: Ctrl+f
'
If ActiveCell.Formula = "" Or ActiveCell.HasFormula = False Then Exit
Sub
Set c = ActiveCell
largeur = Len(c.Formula)
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1,
largeur * 5, 9).Select
Selection.Characters.Text = c.Formula
Selection.Font.Name = "Arial"
Selection.Font.Size = 7
Selection.Characters.Text = c.Formula
nom = "Shape" & c.Row & c.Column
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = ActiveCell.Offset(0, 1).Left + 3
ActiveSheet.Shapes(nom).Top = ActiveCell.Top + 1
End Sub

JB

Bonjour,

Dans excel 2002, savez-vous comment imprimer une page pour que dans
certaines colonnes on puisse voir le détail des formules ?

Merci !