je rencontre un problème que je ne m'explique pas..et que je ne sais pas
résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour
pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les
valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un
document source vers la même feuille (F1) d'un document cible, dans laquelle
je veux conserver les données présentes. ça fonctionne pas mal sauf que dans
certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère
des erreurs #NOM?.
La macro :
Sub import1()
Dim Rg As Range, Are As Range
On Error Resume Next
With Workbooks("SOURCE.xls").Worksheets("F1") 'source
Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas)
If Err <> 0 Then Err = 0: Exit Sub
For Each Are In Rg.Areas
'Destination
With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address)
.Formula = Are.FormulaLocal
End With
Next
End With
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,
une piste peut être en remplacant : Are.FormulaLocal par Are.Formula
isabelle
Bonjour,
je rencontre un problème que je ne m'explique pas..et que je ne sais pas résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un document source vers la même feuille (F1) d'un document cible, dans laquelle je veux conserver les données présentes. ça fonctionne pas mal sauf que dans certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère des erreurs #NOM?.
La macro : Sub import1() Dim Rg As Range, Are As Range On Error Resume Next With Workbooks("SOURCE.xls").Worksheets("F1") 'source Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) If Err <> 0 Then Err = 0: Exit Sub For Each Are In Rg.Areas 'Destination With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address) .Formula = Are.FormulaLocal End With Next End With
' End Sub
Merci d'avance et bon courage.
bonjour,
une piste peut être en remplacant :
Are.FormulaLocal
par
Are.Formula
isabelle
Bonjour,
je rencontre un problème que je ne m'explique pas..et que je ne sais pas
résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour
pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les
valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un
document source vers la même feuille (F1) d'un document cible, dans laquelle
je veux conserver les données présentes. ça fonctionne pas mal sauf que dans
certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère
des erreurs #NOM?.
La macro :
Sub import1()
Dim Rg As Range, Are As Range
On Error Resume Next
With Workbooks("SOURCE.xls").Worksheets("F1") 'source
Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas)
If Err <> 0 Then Err = 0: Exit Sub
For Each Are In Rg.Areas
'Destination
With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address)
.Formula = Are.FormulaLocal
End With
Next
End With
une piste peut être en remplacant : Are.FormulaLocal par Are.Formula
isabelle
Bonjour,
je rencontre un problème que je ne m'explique pas..et que je ne sais pas résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un document source vers la même feuille (F1) d'un document cible, dans laquelle je veux conserver les données présentes. ça fonctionne pas mal sauf que dans certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère des erreurs #NOM?.
La macro : Sub import1() Dim Rg As Range, Are As Range On Error Resume Next With Workbooks("SOURCE.xls").Worksheets("F1") 'source Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) If Err <> 0 Then Err = 0: Exit Sub For Each Are In Rg.Areas 'Destination With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address) .Formula = Are.FormulaLocal End With Next End With
' End Sub
Merci d'avance et bon courage.
Milodon
bonjour et merci,
en fait, j'ai bien Are.Formula dans mon script et c'est effectivement ce qu'il faut utiliser ... mais le problème demeure (j'avais effectué un test avec ARE.FormulaLocal mais ça ne fonctionne pas non plus, et même moins bien)
...bonne journée!
bonjour,
une piste peut être en remplacant : Are.FormulaLocal par Are.Formula
isabelle
Bonjour,
je rencontre un problème que je ne m'explique pas..et que je ne sais pas résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un document source vers la même feuille (F1) d'un document cible, dans laquelle je veux conserver les données présentes. ça fonctionne pas mal sauf que dans certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère des erreurs #NOM?.
La macro : Sub import1() Dim Rg As Range, Are As Range On Error Resume Next With Workbooks("SOURCE.xls").Worksheets("F1") 'source Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) If Err <> 0 Then Err = 0: Exit Sub For Each Are In Rg.Areas 'Destination With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address) .Formula = Are.FormulaLocal End With Next End With
' End Sub
Merci d'avance et bon courage.
bonjour et merci,
en fait, j'ai bien Are.Formula dans mon script et c'est effectivement ce
qu'il faut utiliser ... mais le problème demeure (j'avais effectué un test
avec ARE.FormulaLocal mais ça ne fonctionne pas non plus, et même moins bien)
...bonne journée!
bonjour,
une piste peut être en remplacant :
Are.FormulaLocal
par
Are.Formula
isabelle
Bonjour,
je rencontre un problème que je ne m'explique pas..et que je ne sais pas
résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour
pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les
valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un
document source vers la même feuille (F1) d'un document cible, dans laquelle
je veux conserver les données présentes. ça fonctionne pas mal sauf que dans
certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère
des erreurs #NOM?.
La macro :
Sub import1()
Dim Rg As Range, Are As Range
On Error Resume Next
With Workbooks("SOURCE.xls").Worksheets("F1") 'source
Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas)
If Err <> 0 Then Err = 0: Exit Sub
For Each Are In Rg.Areas
'Destination
With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address)
.Formula = Are.FormulaLocal
End With
Next
End With
en fait, j'ai bien Are.Formula dans mon script et c'est effectivement ce qu'il faut utiliser ... mais le problème demeure (j'avais effectué un test avec ARE.FormulaLocal mais ça ne fonctionne pas non plus, et même moins bien)
...bonne journée!
bonjour,
une piste peut être en remplacant : Are.FormulaLocal par Are.Formula
isabelle
Bonjour,
je rencontre un problème que je ne m'explique pas..et que je ne sais pas résoudre... si quelqu'un a une idée...
J'utilise une macro (ci-dessous-trouvée sur ce même forum -merci- pour pallier à l'erreur de collage spécial / formules qui en fait écrase aussi les valeurs...) pour recopier uniquement les formules d'une feuille (F1) d'un document source vers la même feuille (F1) d'un document cible, dans laquelle je veux conserver les données présentes. ça fonctionne pas mal sauf que dans certains cas, des fonctions "SOMME" sont traduites par "SUM", ce qui génère des erreurs #NOM?.
La macro : Sub import1() Dim Rg As Range, Are As Range On Error Resume Next With Workbooks("SOURCE.xls").Worksheets("F1") 'source Set Rg = .UsedRange.SpecialCells(xlCellTypeFormulas) If Err <> 0 Then Err = 0: Exit Sub For Each Are In Rg.Areas 'Destination With Workbooks("CIBLE.xls").Worksheets("F1").Range(Are.Address) .Formula = Are.FormulaLocal End With Next End With
