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

[bloup]

Bonjour,
Sur le modèle en PJ, je cherche à créer une macro qui pour être définie avec des mots de cette façon :
"rajoute un "=" en 1ère position dans la barre de formule dans toutes les cellules de telle plage de données et sans qu'il y ait modification du contenu des cellules".


J'espère que j'ai été clair, sinon je me ferai un plaisir de réexpliquer 🙂

merci

 

[Efgé]

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

Bonjour bloup:

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

 

[Papou-net]

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

Bonjour bloup,

Ecris ta macro comme ceci :

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é !

 

[phlaurent55]

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 =

à+

 

[pierrejean]

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

bonjour bloup

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

 

[bloup]

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

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