Collage spécial

[andré]

Salut à tous et bonne semaine (de saint Nicolas),

Lorsque je fais un "collage spécial formule" d'un tableau (par exemple A1😀10), XL copie également les constantes, alors que je ne veux que les formules.
Quelqu'un en connaîtrait-il la raison ?
Que dois-je faire pour ne copier que les formules ?

Ândré.

 

[C@thy]

Bonjour André


il y a bien Edition Atteindre Cellules formules, mais cela va sélectionner toutes les formules de ta feuille de calcul, et non pas seulement une plage que tu souhaiterais recopier.

Bonne journée

C@thy

 

[C@thy]

André, il y aurait bien une macro, mais tu ne vas pas aimer...

For Each cel In Selection
If HasFormula Then
'ta copie dans une autre cellule (éventuellement par décaler (offset)
Next cel

C@thy

 

[C@thy]

pardon, c'est

if cel.HasFormula Then


C@thy

 

[andré]

Salut C@thy,

J'ai une série de 300 petits tableaux sur 15 lignes et 30 colonnes qui contiennent plein de formules.
Dans un tableau récapitulatif je vois que j'ai quelque part une erreur.
Elle provient d'une référence de cellule dans des formules, erreur qui se reproduit donc 300 fois et ceci sur plusieurs lignes de chaque tableau.
Comme ces tableaux sont déjà remplis de constantes, je souhaite corriger les formules d'un seul tableau et recopier les formules en écrasant les formules des autres tableaux.

Mais voilà, cela ne marche pas !
Le collage spécial formule me copie également les constantes.
J'avais songé à recréer une feuille avec mes 300 tableaux, vierge de constantes mais avec les bonnes formules, puis d'y copier les constantes.
Mais comme les résultats sont liés à d'autres feuilles, cela ne marche pas plus.

Vois-tu une façon de procéder ... rapidement ?

Ândré.

 

[C@thy]

André, j'ai eu le même problème que toi, je voulais remplacer partout

=E19/D19 (donc en relatif) par

=SI(D19=0;"";E19/D19) pour éviter l'erreur #DIV/0!

donc j'ai fait :

Selection.SpecialCells(xlCellTypeFormulas, 23).Select (pour sélectionner les cellules qui ont des formules)


For Each cel In Selection
if Cel.FormulaR1C1 = "=RC[-3]/RC[-4])" then
Cel.FormulaR1C1 = "=IF(RC[-4]=0,"""",RC[-3]/RC[-4])"
end if

Est-ce que tu as le même genre de problème par exemple remplacer #REF!
par F4 (en relatif) partout par exemple?

(si tu veux tu m'envoies ton fichier dans ma bal).

C@thy

 

[andré]

Salut C@thy,

Et voilà, c'est parti.

Ândré.