rajout d'un apostrophe dans 200 lignes en 1 fois

[gnimitz]

Bonjour à tous

Je désire afin d'afficher dans 1 seule colonne les formules d'un tableau, je dis bien 1 seule colonne (je connais CTRL-MAJ 2), donc en insérant un apostrophe dans ma cellule , elle se tranforme en format texte ok ca marche, mais je désire appliquer sur mes 200 lignes mon apostrophe comment faire ??

Un grand merci de vos réponse

avec une fonction si ?
=si(D2<>""; "'"D2;"") ?

SI D2 EST DIFFéRENT DE RIEN RAJOUTE UN APOSTROPHE DANS LA CELLULE ?
cela ne marche pas

gnimitz

 

[hoerwind]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonjour,

Essaie ceci : =SI(D2="";"";"'"&D2)

 

[gnimitz]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonjour,

ok ca marche , j'ai un apostrophe mais sur la valeur !!, mais elle ne transforme pas ma cellule au format texte ?, mon objectif est de voir la formule dans ma cellule(dans 1 colonne) ?
Merci quand même

gnimitz

Bonjour,

Essaie ceci : =SI(D2="";"";"'"&D2)

 

[Gorfael]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Salut gnimitz et le forum
Avec une macro peut-être :

Sub test()
Dim Cel As Range, Plage As Range

Set Plage = Range(Cells(2, "D"), Cells(Rows.Count, "D").End(xlUp))

For Each Cel In Plage
    If Left(Cel.Formula, 1) = "=" Then Cel.Formula = "'" & Cel.Formula
Next Cel
End Sub

J'ai supposé que tu commençais en D2, et jusqu'à la denière ligne non-vide en D.

Si tu n'y connais rien en macro :
Menu Outils>>Macro>>Nouvelle macro
tu valides et tu l'arrêtes
Menu Outils>>Macro>>Macros => tu cliques sur modifier
en étant sous VBE, tu peux effacer la macro que tu viens de créer et y coller celle de ce poste.
Menu Outils>>Macro>>Macros => tu lances la macro test, soit avec Pas-à-pas, soit avec exécuter.

J'ai fait simple : on change les formules en texte en rajotant {'} devant les formules commençant par {=}
A+

 

[paspat]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonjour,

essaie Ctrl " cela affiche les formules et de nouveau Ctrl " pour voir les calculs

 

[Staple1600]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonsoir à tous


Dans le même style que Gorfael (que je salue)

Sub Macro1()
Dim cf As Range, c As Range
Set cf = Range([D1], [D6556].End(xlUp)).SpecialCells(xlCellTypeFormulas, 23)
For Each c In cf
c.Formula = "'" & c.FormulaLocal
Next c
End Sub

 

[gnimitz]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonsoir,

Du grand Art...parfait, merci

PS
la preuve que j'ai été clair, tu as compris mon post...

Une bonne soirée
Mike

Salut gnimitz et le forum
Avec une macro peut-être :

Sub test()
Dim Cel As Range, Plage As Range

Set Plage = Range(Cells(2, "D"), Cells(Rows.Count, "D").End(xlUp))

For Each Cel In Plage
    If Left(Cel.Formula, 1) = "=" Then Cel.Formula = "'" & Cel.Formula
Next Cel
End Sub

J'ai supposé que tu commençais en D2, et jusqu'à la denière ligne non-vide en D.

Si tu n'y connais rien en macro :
Menu Outils>>Macro>>Nouvelle macro
tu valides et tu l'arrêtes
Menu Outils>>Macro>>Macros => tu cliques sur modifier
en étant sous VBE, tu peux effacer la macro que tu viens de créer et y coller celle de ce poste.
Menu Outils>>Macro>>Macros => tu lances la macro test, soit avec Pas-à-pas, soit avec exécuter.

J'ai fait simple : on change les formules en texte en rajotant {'} devant les formules commençant par {=}
A+

 

[gnimitz]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonsoir
Merci quand m^me, mais je ne désire pas toute la feuille seulement 1 colonne...

Bonne soirée

Bonjour,

essaie Ctrl " cela affiche les formules et de nouveau Ctrl " pour voir les calculs

 

[gnimitz]

Re : rajout d'un apostrophe dans 200 lignes en 1 fois

Bonsoir,

Un grand merci

Bonne soirée

Mike

Bonsoir à tous


Dans le même style que Gorfael (que je salue)

Sub Macro1()
Dim cf As Range, c As Range
Set cf = Range([D1], [D6556].End(xlUp)).SpecialCells(xlCellTypeFormulas, 23)
For Each c In cf
c.Formula = "'" & c.FormulaLocal
Next c
End Sub