Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel impression des formules

impression des formules

8 réponses
Avatar
tilivier
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000 d'imprimer
les formules d'une feuille excel au lieu des valeurs.
Merci d'avance
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
bonjour,

faire Outils/Options/Affichage et cocher Formules. Puis éditer

A+


Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000 d'imprimer
les formules d'une feuille excel au lieu des valeurs.
Merci d'avance


Avatar
ChrisV
Bonjour tilivier,

Sub ListeFormules()
Dim plgForm As Range, Cel As Range, _
wsRes As Worksheet, i As Integer, inF
On Error Resume Next
Set plgForm = Range("A1").SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
Application.ScreenUpdating = False
Set wsRes = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With wsRes
.Name = "Formules dans " & plgForm.Parent.Name
.[A1:E1] = [{"Cellule","Formule","Valeur","Format","Affichage"}]
.Columns(4).NumberFormat = "@"
End With
i = 2
For Each Cel In plgForm
Application.StatusBar = Format((i - 1) / plgForm.Count, _
"0%")
wsRes.Cells(i, 1) = Cel.Address(RowAbsolute:úlse, _
ColumnAbsolute:úlse)
If Cel.HasArray = True Then
wsRes.Cells(i, 2) = " {" & Cel.FormulaLocal & "}"
Else
wsRes.Cells(i, 2) = " " & Cel.FormulaLocal
End If
With wsRes
.Cells(i, 3) = Cel.Value
.Cells(i, 4) = Cel.NumberFormatLocal
.Cells(i, 5) = Cel.Value
.Cells(i, 5).NumberFormat = Cel.NumberFormat
i = i + 1
End With
Next Cel
[A1].AutoFormat Format:=xlRangeAutoFormatClassic2
Application.StatusBar = False
Set plgForm = Nothing
Set wsRes = Nothing
End Sub


ChrisV


"tilivier" a écrit dans le message de
news:
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000 d'imprimer
les formules d'une feuille excel au lieu des valeurs.
Merci d'avance


Avatar
jps
pfttttt
même pas cap' de centrer les titres de colonne...
allez, à la corbeille sur le champ....
jps

"ChrisV" a écrit dans le message de
news:
Bonjour tilivier,

Sub ListeFormules()
Dim plgForm As Range, Cel As Range, _
wsRes As Worksheet, i As Integer, inF
On Error Resume Next
Set plgForm = Range("A1").SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
Application.ScreenUpdating = False
Set wsRes = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With wsRes
.Name = "Formules dans " & plgForm.Parent.Name
.[A1:E1] = [{"Cellule","Formule","Valeur","Format","Affichage"}]
.Columns(4).NumberFormat = "@"
End With
i = 2
For Each Cel In plgForm
Application.StatusBar = Format((i - 1) / plgForm.Count, _
"0%")
wsRes.Cells(i, 1) = Cel.Address(RowAbsolute:úlse, _
ColumnAbsolute:úlse)
If Cel.HasArray = True Then
wsRes.Cells(i, 2) = " {" & Cel.FormulaLocal & "}"
Else
wsRes.Cells(i, 2) = " " & Cel.FormulaLocal
End If
With wsRes
.Cells(i, 3) = Cel.Value
.Cells(i, 4) = Cel.NumberFormatLocal
.Cells(i, 5) = Cel.Value
.Cells(i, 5).NumberFormat = Cel.NumberFormat
i = i + 1
End With
Next Cel
[A1].AutoFormat Format:=xlRangeAutoFormatClassic2
Application.StatusBar = False
Set plgForm = Nothing
Set wsRes = Nothing
End Sub


ChrisV


"tilivier" a écrit dans le message de
news:
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000
d'imprimer


les formules d'une feuille excel au lieu des valeurs.
Merci d'avance






Avatar
tilivier
Merci ChrisV,

C'est exactement ça que je voulais. Même si les titres ne sont pas Centré ;-))


Bonjour tilivier,

Sub ListeFormules()
Dim plgForm As Range, Cel As Range, _
wsRes As Worksheet, i As Integer, inF
On Error Resume Next
Set plgForm = Range("A1").SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
Application.ScreenUpdating = False
Set wsRes = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With wsRes
.Name = "Formules dans " & plgForm.Parent.Name
.[A1:E1] = [{"Cellule","Formule","Valeur","Format","Affichage"}]
.Columns(4).NumberFormat = "@"
End With
i = 2
For Each Cel In plgForm
Application.StatusBar = Format((i - 1) / plgForm.Count, _
"0%")
wsRes.Cells(i, 1) = Cel.Address(RowAbsolute:úlse, _
ColumnAbsolute:úlse)
If Cel.HasArray = True Then
wsRes.Cells(i, 2) = " {" & Cel.FormulaLocal & "}"
Else
wsRes.Cells(i, 2) = " " & Cel.FormulaLocal
End If
With wsRes
.Cells(i, 3) = Cel.Value
.Cells(i, 4) = Cel.NumberFormatLocal
.Cells(i, 5) = Cel.Value
.Cells(i, 5).NumberFormat = Cel.NumberFormat
i = i + 1
End With
Next Cel
[A1].AutoFormat Format:=xlRangeAutoFormatClassic2
Application.StatusBar = False
Set plgForm = Nothing
Set wsRes = Nothing
End Sub


ChrisV


"tilivier" a écrit dans le message de
news:
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000 d'imprimer
les formules d'une feuille excel au lieu des valeurs.
Merci d'avance







Avatar
ChrisV
C'est sûr...! ;-)

et puis, pas facile avec les 678 BO installées sur ton poste, de se souvenir
de toutes les icônes et de leur fonction...
Mais tu en as une qui se nomme "Mise en forme", et dans laquelle tu
trouveras le petit dessin d'un texte (inutile d'augmenter le zoom, ce texte
est fictif...) et qui te permettra de centrer le texte dans la cellule,
cette icône ressemble à ceci
pfffffff
pfff
pfffffffffffffff
pfff
pfffffff


ChrisV
[qui te souhaite néanmoins un bon WE, le mien commence ce soir et jusqu'à
Mardi !]


"jps" a écrit dans le message de news:
%
pfttttt
même pas cap' de centrer les titres de colonne...
allez, à la corbeille sur le champ....
jps

"ChrisV" a écrit dans le message de
news:
Bonjour tilivier,

Sub ListeFormules()
Dim plgForm As Range, Cel As Range, _
wsRes As Worksheet, i As Integer, inF
On Error Resume Next
Set plgForm = Range("A1").SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
Application.ScreenUpdating = False
Set wsRes = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With wsRes
.Name = "Formules dans " & plgForm.Parent.Name
.[A1:E1] = [{"Cellule","Formule","Valeur","Format","Affichage"}]
.Columns(4).NumberFormat = "@"
End With
i = 2
For Each Cel In plgForm
Application.StatusBar = Format((i - 1) / plgForm.Count, _
"0%")
wsRes.Cells(i, 1) = Cel.Address(RowAbsolute:úlse, _
ColumnAbsolute:úlse)
If Cel.HasArray = True Then
wsRes.Cells(i, 2) = " {" & Cel.FormulaLocal & "}"
Else
wsRes.Cells(i, 2) = " " & Cel.FormulaLocal
End If
With wsRes
.Cells(i, 3) = Cel.Value
.Cells(i, 4) = Cel.NumberFormatLocal
.Cells(i, 5) = Cel.Value
.Cells(i, 5).NumberFormat = Cel.NumberFormat
i = i + 1
End With
Next Cel
[A1].AutoFormat Format:=xlRangeAutoFormatClassic2
Application.StatusBar = False
Set plgForm = Nothing
Set wsRes = Nothing
End Sub


ChrisV


"tilivier" a écrit dans le message
de
news:
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000
d'imprimer


les formules d'une feuille excel au lieu des valeurs.
Merci d'avance









Avatar
ChrisV
;-)

ChrisV

nb: ;-P


"tilivier" a écrit dans le message de
news:
Merci ChrisV,

C'est exactement ça que je voulais. Même si les titres ne sont pas Centré
;-))


Bonjour tilivier,

Sub ListeFormules()
Dim plgForm As Range, Cel As Range, _
wsRes As Worksheet, i As Integer, inF
On Error Resume Next
Set plgForm = Range("A1").SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
Application.ScreenUpdating = False
Set wsRes = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With wsRes
.Name = "Formules dans " & plgForm.Parent.Name
.[A1:E1] = [{"Cellule","Formule","Valeur","Format","Affichage"}]
.Columns(4).NumberFormat = "@"
End With
i = 2
For Each Cel In plgForm
Application.StatusBar = Format((i - 1) / plgForm.Count, _
"0%")
wsRes.Cells(i, 1) = Cel.Address(RowAbsolute:úlse, _
ColumnAbsolute:úlse)
If Cel.HasArray = True Then
wsRes.Cells(i, 2) = " {" & Cel.FormulaLocal & "}"
Else
wsRes.Cells(i, 2) = " " & Cel.FormulaLocal
End If
With wsRes
.Cells(i, 3) = Cel.Value
.Cells(i, 4) = Cel.NumberFormatLocal
.Cells(i, 5) = Cel.Value
.Cells(i, 5).NumberFormat = Cel.NumberFormat
i = i + 1
End With
Next Cel
[A1].AutoFormat Format:=xlRangeAutoFormatClassic2
Application.StatusBar = False
Set plgForm = Nothing
Set wsRes = Nothing
End Sub


ChrisV


"tilivier" a écrit dans le message
de
news:
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000
d'imprimer
les formules d'une feuille excel au lieu des valeurs.
Merci d'avance









Avatar
jps
:-)))))
dès fois que chris nous le fasse gratos, tilivier
jps

"tilivier" a écrit dans le message de
news:
Merci ChrisV,

Même si les titres ne sont pas Centré ;-))



Avatar
jps
:-)))))))
sauf que chez moi; elle s'appelle "Centré" mais bon....
pilamayale eyapi (de tête), chris, et bon long week end....
jps

"ChrisV" a écrit dans le message de
news:
C'est sûr...! ;-)

et puis, pas facile avec les 678 BO installées sur ton poste, de se
souvenir

de toutes les icônes et de leur fonction...
Mais tu en as une qui se nomme "Mise en forme", et dans laquelle tu
trouveras le petit dessin d'un texte (inutile d'augmenter le zoom, ce
texte

est fictif...) et qui te permettra de centrer le texte dans la cellule,
cette icône ressemble à ceci
pfffffff
pfff
pfffffffffffffff
pfff
pfffffff


ChrisV
[qui te souhaite néanmoins un bon WE, le mien commence ce soir et jusqu'à
Mardi !]


"jps" a écrit dans le message de news:
%
pfttttt
même pas cap' de centrer les titres de colonne...
allez, à la corbeille sur le champ....
jps

"ChrisV" a écrit dans le message de
news:
Bonjour tilivier,

Sub ListeFormules()
Dim plgForm As Range, Cel As Range, _
wsRes As Worksheet, i As Integer, inF
On Error Resume Next
Set plgForm = Range("A1").SpecialCells(xlFormulas)
If plgForm Is Nothing Then
inF = MsgBox("La feuille de calcul active " & _
"ne contient aucune formule.", vbExclamation)
Exit Sub
End If
Application.ScreenUpdating = False
Set wsRes = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With wsRes
.Name = "Formules dans " & plgForm.Parent.Name
.[A1:E1] [{"Cellule","Formule","Valeur","Format","Affichage"}]
.Columns(4).NumberFormat = "@"
End With
i = 2
For Each Cel In plgForm
Application.StatusBar = Format((i - 1) / plgForm.Count, _
"0%")
wsRes.Cells(i, 1) = Cel.Address(RowAbsolute:úlse, _
ColumnAbsolute:úlse)
If Cel.HasArray = True Then
wsRes.Cells(i, 2) = " {" & Cel.FormulaLocal & "}"
Else
wsRes.Cells(i, 2) = " " & Cel.FormulaLocal
End If
With wsRes
.Cells(i, 3) = Cel.Value
.Cells(i, 4) = Cel.NumberFormatLocal
.Cells(i, 5) = Cel.Value
.Cells(i, 5).NumberFormat = Cel.NumberFormat
i = i + 1
End With
Next Cel
[A1].AutoFormat Format:=xlRangeAutoFormatClassic2
Application.StatusBar = False
Set plgForm = Nothing
Set wsRes = Nothing
End Sub


ChrisV


"tilivier" a écrit dans le message
de
news:
Bonjour,
J'aimerais savoir si qqn sait s'il est possible dans excel 2000
d'imprimer


les formules d'une feuille excel au lieu des valeurs.
Merci d'avance