Supprimer $

[Phil_PF]

Bonjour le forum

J'ai un tableau que je dois recopier x fois, mais dans celui ci j'ai des formules avec des références absolue et relatives.

Les références absolues me servent à la construction de ce tableau, mais quand je le recopie j'aimerais qu'elles repassent en relatives.

Je connais le truc du F4 ou de l'édition et enlever les Dollars à la main, mais cellule par cellule cela peut s'avérer long.

Je me demandais si il existait un raccourci type F4 qui marcherait sur une sélection de cellules ou si il me fallait passer par une macro, et là (c'est le drame) çà devient compliqué...


Merci pour votre aide

 

[Tibo]

Re : Supprimer $

Bonjour,

En sélectionnant les cellules concernées, puis

CTRL H (remplacer) $ par rien du tout

@+

 

[Raja]

Re : Supprimer $

Bonjour,

Je suis persuadé que si nous avons ton fichier, il est possible de trouver une solution.

 

[Phil_PF]

Re : Supprimer $

Grand merci à Tibo, c'est tellement simple qu'on y pense pas au premier abord ..;

 

[Staple1600]

Re : Supprimer $

Re


Tibo (bonjour) : aujourd'hui j'ai mis mes lunettes 😉

Sub Convertir_ref_absolue_REL()
'adapté de :[URL=http://support.microsoft.com/kb/213465]source[/URL]
Dim Mycell As Range
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:= _
"Veuillez sélectionner les cellules à convertir", _
Title:="Convertion en références relatives", Type:=8)
For Each Mycell In Plage
          If Len(Mycell.Formula) > 0 Then
             
                MyFormula = Mycell.Formula
             
                NewFormula = Application.ConvertFormula _
                    (Formula:=MyFormula, _
                    fromReferenceStyle:=xlA1, _
                    toReferenceStyle:=xlA1, _
                    toAbsolute:=xlRelative)
              
                Mycell.Formula = NewFormula
            End If
        Next
End Sub

 

[Phil_PF]

Re : Supprimer $

Merci à Staple1600, une macro comme ça cela ne se refuse pas ...