Insérer un egal (=) automatiquement sur une selection

[Merlin258413]

Bonjour à tous
Je souhaite savoir si vous avez une macro afin de rajouter au début de chaque cellule selectionnée (une selection) un =
Par exemple si j'ai 0.2*5400 je veux automatiquement avoir devant =0.2*5400
J'avais cette macro sous une autre version d'excel qui ne fonctionne plus sur 2013. on m'indique une erreur de compilation ou Projet ou bibliothèque introuvable

Sub egale()
a = ActiveCell.Offset(0, 0)
résultat = "=" & a
ActiveCell.FormulaLocal = résultat
End Sub

Merci pour votre aide

 

[Dranreb]

Re : Insérer un egal (=) automatiquement sur une selection

Bonjour.
Bon ben il faut p'tet d'abord régler ce problème avant de dire que ça ne marche plus.
Voyez si coté VBA il n'y aurait pas, dans la liste Référence disponibles, menu Outils, Référence… une ligne portée MANQUANT à dé-cocher pour qu'elle n'empêche plus une bibliothèque de même nom d'être chargée depuis son véritable emplacement dans la nouvelle version d'Excel.

 

[Merlin258413]

Re : Insérer un egal (=) automatiquement sur une selection

Bonjour Dranreb merci beaucoup désolé je suis novice.
Maintenant cela fonctionne est-il possible d'étendre cette macro à une sélection active (je ne sais pas si c'est le terme) par exemple si je sélectionne de A1:A12 mettre un égale devant chaque cellule
en vous remerciant et bon we

 

[Paf]

Re : Insérer un egal (=) automatiquement sur une selection

Bonjour Merlin258413, Dranreb

outre le pb évoqué par Dranreb,
une modif qui marche sous XL 2003

a = ActiveCell.Offset(0, 0)  ' c'est à dire ActiveCell
résultat = "=" & a
ActiveCell.Formula = résultat

une autre approche qui permet de sélectionner plusieurs cellules:

For Each MaCel In Selection
    MaCel.Formula = "=" & MaCel
Next

A+

 

[Merlin258413]

Re : Insérer un egal (=) automatiquement sur une selection

Bonjour merci beaucoup pour votre réponse. Excellent we