Macro permettant de figer les cellules selectionnés

[yusukens]

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.

 

[Yaloo]

Re : Macro permettant de figer les cellules selectionnés

Bonjour yusukens,

Avec cette macro, ça doit le faire :

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

 

[yusukens]

Re : Macro permettant de figer les cellules selectionnés

Magnifique Yaloo, C'est exactement ce qu'il me fallait.
un grand merci mon ami !!!