Remplacer des #ref! - Macro VBA

Résolu/Fermé
pseudo_polo - Modifié par pseudo_polo le 20/03/2012 à 16:12
 pseudo_polo - 21 mars 2012 à 09:32
Bonjour,


Mon problème, je viens de supprimer des feuilles dans un fichier, ce qui me créée des formules comportant des #ref!. je souhaiterais fair une macro afin de remplacer automatiquement #REF!P17 par "" / rien. En effet, j'ai aujourd'hui une formule ='fromages'!Z648+'lait'!Z648+viandes!Z648+...

Si j'utilise le CTRL H, cela me laissera P17, ce qui ne va pas.


Voici le début de mon code=

Sub Ref_Polo()
Dim c As Range

For Each c In Columns("N:AO")
If IsError(c) Then c = """"
Next c
End Sub

Idélamenent, la macro détecte à l'intérieur des cellules où il y a des ref et remplace le nbre de caractères qu'il ya après (p17, dans mon exemple) et remplace l'ensemble par "" / RIEN.

Merci!!!

Polo



A voir également:

3 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 mars 2012 à 16:04
Bonjour,
Sais pas si c'est ça que tu veux..
Supprimer les détections d'erreurs d'une plage..
On Error Resume Next
With Range("H6:V40")
    .SpecialCells(xlCellTypeFormulas, xlErrors).Value = 0
    .SpecialCells(xlCellTypeConstants, xlErrors).Value = 0
End With
On Error GoTo 0

A+
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
20 mars 2012 à 16:30
Bonjour,

Avec remplacer +#REF!?? tu peux le faire.
(faire en premier remplacer +#REF!??? si tu as des lignes >100)

eric
0
pseudo_polo
21 mars 2012 à 09:32
Eriic,

tu cartonnes!!... c'est tout bête, ce +#Ref!???. ça marche suyper nickel et bien moins compliqué que les macros...

Merci pour votre réactivité et vive ce forum!!!
Bonne journée!
pseudo_polo
0