Macro permettant de figer les cellules selectionnés

  • Initiateur de la discussion Initiateur de la discussion yusukens
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

yusukens

XLDnaute Occasionnel
Bonjour,
Pouvez-vous à créer une macro permettant de FIGER les cellules sélectionnés
une petite vidéo pour montrer ce que je souhaite :
[video=youtube;62s_sImANzY]http://www.youtube.com/watch?v=62s_sImANzY&feature=youtu.be[/video]

En espérant que quelqu'un entend mon appel.
 
Re : Macro permettant de figer les cellules selectionnés

Bonjour yusukens,

Avec cette macro, ça doit le faire :

VB:
Option Explicit

Sub Figer()
Dim a$, b$, i&, c As Range
For Each c In Selection
  If InStrRev(c.Formula, "$") Then GoTo Suite
    b = Right(c.Formula, Len(c.Formula) - InStrRev(c.Formula, "!"))
    For i = 1 To Len(c.Formula) - InStrRev(c.Formula, "!")
      If IsNumeric(Mid(b, i, 1)) Then
      Exit For
      End If
    Next
    a = "$" & Mid(b, 1, i - 1) & "$" & Right(b, Len(b) - (i - 1))
    c = Replace(c.Formula, b, a)
Suite:
Next
End Sub

Il faut sélectionner les cellules dans lesquelles tu veux changer la formule.

A te relire

Martial
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour