[Résolu] Modifier plusieurs formules...

[Kiriko]

Bonjour,

J'ai un tableau rempli de formules...
Je voudrais, pour chacune d'elles, ajouter sierreur(MAFORMULE;"")
Est-ce possible ?

Merci par avance...

 

[néné06]

Re : Modifier plusieurs formules...

Bonsoir Kiriko

Je pense que avec concatener et " ' " cela doit être possible mais avec une pièce jointe , cela serait plus facile.

A+

 

[Kiriko]

Re : Modifier plusieurs formules...

Merci de cette réponse plus que rapide.
Voici le fichier "épuré".
L'onglet en question est "formule".
L'objectif est de récupéré exactement le même tableau en lieu et place de l'original, mais avec l'ajout à chacune des formules la mention sierreur(xxxxx;"").

Merci encore !

 

[JCGL]

Re : Modifier plusieurs formules...

Bonjour à tous,

Si tu souhaites simplement ne pas voir les #REF :


A + à tous

 

[Kiriko]

Re : Modifier plusieurs formules...

Bonjour JCGL, et merci de ta participation !
Maitrisant mal les mises en formes conditionnelles, je n'ai pas réussi à appliquer ton conseil...
Peux-tu me guider ?
Cordialement,

 

[JCGL]

Re : Modifier plusieurs formules...

Bonjour à tous,

Dans le ruban et sur l'onglet Accueil.
Mise en Forme Conditionnelle
Gérer les règles
Nouvelle règle
Dans le types : Utiliser une formule
Poser la formule : =ESTERREUR(A2)
Couleur de police : Blanc
S'applique à : =$A$2:$O$100
OK



A + à tous

 

[Kiriko]

Re : Modifier plusieurs formules...

Merci JCGL, c'était pourtant simple...
Toutefois, la dernière ligne reste en noir...
Ceci me convient visuellement, mais n'existe-t'il pas une méthode autre (sans jouer sur les couleurs)? D'une façon générale, ne peut-on pas copier le "texte" d'une formule d'une cellule dans une autre cellule (en vu de "concaténation")?
La piste de néné06 me paraissait également intéressante, mais je n'arrive pas à "creuser".
Ou insérer une macro dans le "code de la page" qui renvoit un affichage vide si erreur ?

Cordialement à tous, merci encore de l'attention portée...

 

[mapomme]

Re : Modifier plusieurs formules...

Bonsoir,

Vous pouvez essayer cette macro:

Sub SiErreurFormule()
Dim xcell, myRG As Range

On Error GoTo SiErreurFormule_err_01

    Set myRG = Application.InputBox(prompt:="Sélectionner la zone à traiter :", Type:=8)
    On Error GoTo 0
    For Each xcell In myRG
        If xcell.HasFormula And Left(xcell.Formula, 9) <> "=IFERROR(" Then
        xcell.Formula = "=iferror(" & Right(xcell.Formula, Len(xcell.Formula) - 1) & ","""")"
        End If
    Next xcell
    
SiErreurFormule_err_01:
End Sub

Edit : une erreur rectifiée

 

[Kiriko]

Re : Modifier plusieurs formules...

Merci beaucoup mapomme !

Le fin du fin serait que cette macro s'exécute automatiquement lors de la "sélection de l'onglet" (code de page?), et que la zone soit $A:$Q (sans avoir à saisir une inputBox).
J'en demande peut-être beaucoup...
Cordialement...

 

[mapomme]

Re : Modifier plusieurs formules...

(re) Bonsoir,

Collez le code suivant dans le module de feuille correspondant à votre feuille 'Formule'.

Private Sub Worksheet_Activate()
Dim xcell, myRG As Range

On Error GoTo PasDerreur
    Set myRG = Range("A:Q").SpecialCells(xlCellTypeFormulas, 16)
    On Error GoTo 0
    For Each xcell In myRG
        If xcell.HasFormula And Left(xcell.Formula, 9) <> "=IFERROR(" Then
        xcell.Formula = "=iferror(" & Right(xcell.Formula, Len(xcell.Formula) - 1) & ","""")"
        End If
    Next xcell
   
PasDerreur:
End Sub

Edit: modifié code pour ne prendre en compte que les cellules des colonnes A à Q.

 

[Kiriko]

Re : Modifier plusieurs formules...

Mille merci, c'est parfait...