J'ai une feuille de calcul avec des formules dont certaines utilisent des
plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une
cellule nommée). Le problème est que certaines cellules sont mal renommées
ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes
cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y
ajoutant un test sur le calcul ? Remplacer =monA1/A5 par
=SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette
feuille etc.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Stéph D,
tu pourrais utilisé soit un bouton ou l'événement open pour recréer les nom, voici un exemple.
Private Sub Workbook_Open() ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="þuil4!D3" End Sub
isabelle
Bonjour,
J'ai une feuille de calcul avec des formules dont certaines utilisent des plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une cellule nommée). Le problème est que certaines cellules sont mal renommées ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y ajoutant un test sur le calcul ? Remplacer =monA1/A5 par =SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette feuille etc.
Merci d'avance pour votre aide Stéph D.
bonjour Stéph D,
tu pourrais utilisé soit un bouton ou l'événement open pour recréer les
nom, voici un exemple.
Private Sub Workbook_Open()
ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="þuil4!D3"
End Sub
isabelle
Bonjour,
J'ai une feuille de calcul avec des formules dont certaines utilisent des
plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une
cellule nommée). Le problème est que certaines cellules sont mal renommées
ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes
cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y
ajoutant un test sur le calcul ? Remplacer =monA1/A5 par
=SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette
feuille etc.
tu pourrais utilisé soit un bouton ou l'événement open pour recréer les nom, voici un exemple.
Private Sub Workbook_Open() ActiveWorkbook.Names.Add Name:="zaza", RefersTo:="þuil4!D3" End Sub
isabelle
Bonjour,
J'ai une feuille de calcul avec des formules dont certaines utilisent des plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une cellule nommée). Le problème est que certaines cellules sont mal renommées ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y ajoutant un test sur le calcul ? Remplacer =monA1/A5 par =SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette feuille etc.
Merci d'avance pour votre aide Stéph D.
Shnoulle
Salut Steph,
J'ai fait cette petite macro pour faire ce que tu veut avez un pti bouton ,
Sub AjouteTestFormule() ' ' Dim Formule As String Dim CelluleModif As Range
For Each CelluleModif In Selection Formule = CelluleModif.FormulaR1C1 Formule = Right(Formule, Len(Formule) - 1)
CelluleModif.FormulaR1C1 = "=IF(ISERROR((" & Formule & ")),""/""," & Formule & ")"
Next CelluleModif ' End Sub
Heu peut étre rajouter un pti test pour vérifier que CelluleModif soit bien une formule et pis c'est tout
A+ Shnoulle
De : "Steph_D" Société : Guest of France Telecom Oleane's newsreading service Groupes : microsoft.public.fr.excel Date : Tue, 20 Jul 2004 16:17:45 +0200 Objet : Aide pour automatisme
Bonjour,
J'ai une feuille de calcul avec des formules dont certaines utilisent des plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une cellule nommée). Le problème est que certaines cellules sont mal renommées ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y ajoutant un test sur le calcul ? Remplacer =monA1/A5 par =SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette feuille etc.
Merci d'avance pour votre aide Stéph D.
Salut Steph,
J'ai fait cette petite macro pour faire ce que tu veut avez un pti bouton
,
Sub AjouteTestFormule()
'
'
Dim Formule As String
Dim CelluleModif As Range
For Each CelluleModif In Selection
Formule = CelluleModif.FormulaR1C1
Formule = Right(Formule, Len(Formule) - 1)
CelluleModif.FormulaR1C1 = "=IF(ISERROR((" & Formule & ")),""/""," & Formule
& ")"
Next CelluleModif
'
End Sub
Heu peut étre rajouter un pti test pour vérifier que CelluleModif soit bien
une formule et pis c'est tout
A+
Shnoulle
De : "Steph_D" <steph_D@caramail.com>
Société : Guest of France Telecom Oleane's newsreading service
Groupes : microsoft.public.fr.excel
Date : Tue, 20 Jul 2004 16:17:45 +0200
Objet : Aide pour automatisme
Bonjour,
J'ai une feuille de calcul avec des formules dont certaines utilisent des
plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une
cellule nommée). Le problème est que certaines cellules sont mal renommées
ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes
cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y
ajoutant un test sur le calcul ? Remplacer =monA1/A5 par
=SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette
feuille etc.
J'ai fait cette petite macro pour faire ce que tu veut avez un pti bouton ,
Sub AjouteTestFormule() ' ' Dim Formule As String Dim CelluleModif As Range
For Each CelluleModif In Selection Formule = CelluleModif.FormulaR1C1 Formule = Right(Formule, Len(Formule) - 1)
CelluleModif.FormulaR1C1 = "=IF(ISERROR((" & Formule & ")),""/""," & Formule & ")"
Next CelluleModif ' End Sub
Heu peut étre rajouter un pti test pour vérifier que CelluleModif soit bien une formule et pis c'est tout
A+ Shnoulle
De : "Steph_D" Société : Guest of France Telecom Oleane's newsreading service Groupes : microsoft.public.fr.excel Date : Tue, 20 Jul 2004 16:17:45 +0200 Objet : Aide pour automatisme
Bonjour,
J'ai une feuille de calcul avec des formules dont certaines utilisent des plages nommées d'un autre onglet. Par exemple, =monA1/A5 (monA1 est une cellule nommée). Le problème est que certaines cellules sont mal renommées ou détruites par l'utilisateur ce qui provoque l'affichage de #NOM dans mes cellules.
Y-a-t-il la possibilité de remplacer automatiquement mes formules en y ajoutant un test sur le calcul ? Remplacer =monA1/A5 par =SI(ESTERREUR(monA1/A5);0;monA1/A5) et ce pour chaque cellule de cette feuille etc.
