Figer plusieurs cellules en même temps

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #2

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

 

Dernière édition: 19 Février 2015

Vote positif 0 Vote négatif

V

vince2k

XLDnaute Nouveau

• 19 Février 2015

• #3

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,

 

Pièces jointes

• exemple.xls

  26 KB · Affichages: 49
• exemple.xls

  26 KB · Affichages: 54
• exemple.xls

  26 KB · Affichages: 54

Dernière édition: 19 Février 2015

Vote positif 0 Vote négatif

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #4

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.

 

Vote positif 0 Vote négatif

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #5

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$

 

Vote positif 0 Vote négatif

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #6

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.

 

Vote positif 0 Vote négatif

V

vince2k

XLDnaute Nouveau

• 19 Février 2015

• #7

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é.

 

Vote positif 0 Vote négatif

V

vince2k

XLDnaute Nouveau

• 19 Février 2015

• #8

Re : Figer plusieurs cellules en même temps

La macro fonctionne !

Merci, je vais utiliser cette solution.

 

Vote positif 0 Vote négatif

T

Tibo62

XLDnaute Occasionnel

• 19 Février 2015

• #9

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.

 

Vote positif 0 Vote négatif