Figer plusieurs cellules en même temps

[vince2k]

Bonjour,

J'ai un tableau avec plusieurs cellules avec des formules du type :
A1=('Onglet A'!G2)
A2=('Onglet A'!G7)
A3=('Onglet A'!G9)

Je souhaite simplement copier ce tableau dans mon onglet sans que les formules changent.
Je ne peux pas appliquer les $ et glisser ensuite les formules car les liens ne vont pas chercher des cellules qui se suivent (G2 puis G7 puis G9 etc.).

Y a t-il une solution pour figer plusieurs cellules en même temps ?
Comment faire ?

Merci pour votre aide,

 

[Tibo62]

Re : Figer plusieurs cellules en même temps

Bonjour un fichier joint serait appréciable pour illustrer ton problème .....
Ce que je peux te dire c'est que si tu fait copier---->clic droit----->collage spécial----->formules cela va copier uniquement les formule cependant si tu veux garder exactement la même formule ajoute des $. Parce que ton problème est pas très claire, tu veux faire :
='ongletA'!G$2$
ou ='ongletA'!$G$2

 

[vince2k]

Re : Figer plusieurs cellules en même temps

Vous trouverez un exemple ci-joint.

Je ne peux ajouter des dollars dans chaque cellule, cela me prendrait beaucoup trop de temps, il s'agit d'un tableau d'une cinquantaine de lignes et de plusieurs colonnes.

Merci,

 

[Tibo62]

Re : Figer plusieurs cellules en même temps

Tu n'as pas poster ton exemple ??
Parce qu'il existe la possibilité avec INDEX et EQUIV ou encore rechercheV de renvoyer des valeurs qui se fiche de la position.

 

[Tibo62]

Re : Figer plusieurs cellules en même temps

Parce que si tu veux vraiment mettre des $ rapidement sur l'ensemble de ta liste tu peux utiliser la fonction remplacer:
Remplacer G par $G$

 

[Tibo62]

Re : Figer plusieurs cellules en même temps

Ou si tu veux passer par VBA pour mettre des dollars partout tu fait sa :

Sub changement()
Dim c As Range
Dim LaFormule As String
For Each c In Selection
LaFormule = c.Formula
If LaFormule Like "*$*" Then
c.Value = Application.ConvertFormula _
(Formula:=LaFormule, fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
Else
c.Value = Application.ConvertFormula _
(Formula:=LaFormule, fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
Next c
end sub

Tu selectionne la plage ou tu veux ajouter des $ et tu lance la macro.
A essayer je ne l'ai pas tester.

 

[vince2k]

Re : Figer plusieurs cellules en même temps

J'ai édite mon message précédent et ajouté la pièce jointe.

Il ne m'est pas possible de faire facilement des remplacements. J'ai parfois des cellules avec des sommes, c'est aléatoire...

Merci, je testerais à l'occasion le VBA même si je préfère la simplicité.

 

[vince2k]

Re : Figer plusieurs cellules en même temps

La macro fonctionne !

Merci, je vais utiliser cette solution.

 

[Tibo62]

Re : Figer plusieurs cellules en même temps

Je viens de tester avec ton fichier, la macro marche parfaitement et ajoute bien les dollars sans changer la formule de base ensuite tu peux copier coller à ton bon vouloir.

 

[Gounch69]

Sélectionner la plage de cellules, puis appliquer la macro suivante (créée préalablement) :
Sub "nom-macro"
For Each c In Selection.SpecialCells(xlCellTypeFormulas)
c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1, toabsolute:=xlA1)
Next c
End Sub