macro : rajouter un "=" dans la barre de formule

Efgé

XLDnaute Barbatruc

• 13 Janvier 2010

• #2

Re : macro : rajouter un "=" dans la barre de formule

Bonjour bloup:

Code:

Sub Test2()
Dim Texte As String
For i = 9 To 13
    For j = 1 To 4
        Texte = Cells(i, j).Value
        Cells(i, j).Value = "=" & Texte
    Next j
Next i
End Sub

Cordialement

 

Pièces jointes

• macro rajouter(2).xls

  29 KB · Affichages: 43

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 13 Janvier 2010

• #3

Re : macro : rajouter un "=" dans la barre de formule

Bonjour bloup,

Ecris ta macro comme ceci :

Code:

Sub test1()
For Each cel In Range("A9:D13")
  cel.Value = "=" & cel.Value
Next

End Sub

Espérant t'avoir aidé.

Cordialement.

Oups, bonjour Efgé !

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 13 Janvier 2010

• #4

Re : macro : rajouter un "=" dans la barre de formule

Bonjour bloup,

pour qu'il n'y ait pas de modification de cellule tu dois également ajouter un apostrophe devant ton signe =

à+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Janvier 2010

• #5

Re : macro : rajouter un "=" dans la barre de formule

bonjour bloup

Code:

Sub test()
For Each cel In Range("A9:D13")
 cel.Formula = "=" & cel.Value
Next cel
End Sub

Edit: a la bourre moi !
Salut a tous

 

Vote positif 0 Vote négatif

B

bloup

Guest

• 13 Janvier 2010

• #6

Re : macro : rajouter un "=" dans la barre de formule

Merci pour ces réponses collégiales, ca fonctionne impeccable!

 

Vote positif 0 Vote négatif