Ajouter signe dans chaque cellule

[Henriett]

Bonjour,

J' ai plusieurs cellules dont leur contenu est sous la forme : $V$143 , $A$5 , $B$15 ...

Je voudrais ajouter le signe = au début de toutes ces cellules ( exemple : =$A$5 : pour que la cellule affiche ce qu' il y a en A5 ) ...

Pensez-vous que c' est possible ?

Cordialement,

 

[Softmama]

Re : Ajouter signe dans chaque cellule

Bonjour Henriett,

Une solution de ce que j'ai compris de ton problème, à adapter :

Sub Egal()
For Each c In Cells.SpecialCells(xlCellTypeConstants, 23) 'On scanne les cellules qui contiennent des données
    if left$(c,1)="$" then c.Formula = "=" & c 'Si la cellule commence par $, alors je la transformule en formule
Next c
End Sub

 

[ROGER2327]

Re : Ajouter signe dans chaque cellule

Bonjour Henriett

Essayez cette procédure :

Sub toto()
Dim oCel As Range
  On Error Resume Next
  For Each oCel In Selection.Cells
    oCel.Formula = "=" & oCel.Text
  Next
  On Error GoTo 0
End Sub

Mode d'emploi : sélectionnez les cellules à traiter et exécutez toto.​

ROGER2327
#4815

Jeudi 26 Sable 138 (Monsieur Sisyphe, SQ)
6 Nivôse An CCXIX
2010-W51-7T09:53:03Z

 

[Henriett]

Re : Ajouter signe dans chaque cellule

Merci Softmama et ROGER2327.

Vos formules fonctionnent autant l' une que l' autre.

Bonne journée,

Cordialement,