Remplacer des #ref! - Macro VBA
Résolu
pseudo_polo
-
pseudo_polo -
pseudo_polo -
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
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:
- Remplacer des #ref! - Macro VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Remplacer disque dur par ssd - Guide
- Remplacer word - Guide
- Remplacer coco - Accueil - Réseaux sociaux
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
3 réponses
Bonjour,
Sais pas si c'est ça que tu veux..
Supprimer les détections d'erreurs d'une plage..
A+
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+
