passage en dur de formules sur des plages discontinues...
4 réponses
Domi
Bonjour,
J'utilise un petit code de ce genre pour ecrire une formule dans des plages
nommées discontinues (plage1, plage2, plage3...)
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
End With
La partie inscription et calcul de la formule se passe bien.
Le problème survient quand je veux ensuite figer les résultats obtenus
si comme pour une plage simple j'ajoute.value=.value ça plante..
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
.Value = .Value
End With
Comment contourner ce problème ?
Merci
Domi
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
JB
Bonjour,
Sur mon poste,c'est ok:
With Range("plage1,plage2,plage3") .Formula = "=$A$1" .Value = .Value End With
JB
Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plag es nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
Bonjour,
Sur mon poste,c'est ok:
With Range("plage1,plage2,plage3")
.Formula = "=$A$1"
.Value = .Value
End With
JB
Bonjour,
J'utilise un petit code de ce genre pour ecrire une formule dans des plag es
nommées discontinues (plage1, plage2, plage3...)
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
End With
La partie inscription et calcul de la formule se passe bien.
Le problème survient quand je veux ensuite figer les résultats obtenus
si comme pour une plage simple j'ajoute.value=.value ça plante..
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
.Value = .Value
End With
Comment contourner ce problème ?
Merci
Domi
With Range("plage1,plage2,plage3") .Formula = "=$A$1" .Value = .Value End With
JB
Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plag es nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
MichDenis
Bonjour Domi,
As-tu essayé ceci :
Ce que tu évoques avec ce type de syntaxe : Range("plage1, plage2, plage3....") se produit ....et même si cela fonctionne, il arrive que cela ne fonctionne plus sans "raison".
Cette syntaxe est plus sécuritaire !
'--------------------------- Sub test() Dim are As Range With Worksheets("Feuil1") For Each are In Range("A1:A10,C1:C5").Areas With are .Formula = "=$K$5" .Value = .Value End With Next End With
End Sub '---------------------------
"Domi" a écrit dans le message de news: Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plages nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
Bonjour Domi,
As-tu essayé ceci :
Ce que tu évoques avec ce type de syntaxe :
Range("plage1, plage2, plage3....")
se produit ....et même si cela fonctionne, il arrive
que cela ne fonctionne plus sans "raison".
Cette syntaxe est plus sécuritaire !
'---------------------------
Sub test()
Dim are As Range
With Worksheets("Feuil1")
For Each are In Range("A1:A10,C1:C5").Areas
With are
.Formula = "=$K$5"
.Value = .Value
End With
Next
End With
End Sub
'---------------------------
"Domi" <scrat83@free.fr> a écrit dans le message de news: urGumfc6GHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'utilise un petit code de ce genre pour ecrire une formule dans des plages
nommées discontinues (plage1, plage2, plage3...)
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
End With
La partie inscription et calcul de la formule se passe bien.
Le problème survient quand je veux ensuite figer les résultats obtenus
si comme pour une plage simple j'ajoute.value=.value ça plante..
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
.Value = .Value
End With
Comment contourner ce problème ?
Merci
Domi
Ce que tu évoques avec ce type de syntaxe : Range("plage1, plage2, plage3....") se produit ....et même si cela fonctionne, il arrive que cela ne fonctionne plus sans "raison".
Cette syntaxe est plus sécuritaire !
'--------------------------- Sub test() Dim are As Range With Worksheets("Feuil1") For Each are In Range("A1:A10,C1:C5").Areas With are .Formula = "=$K$5" .Value = .Value End With Next End With
End Sub '---------------------------
"Domi" a écrit dans le message de news: Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plages nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
Domi
C'est bizarre, j'ai le pb au boulot (XP pro / Office 2003) mais pas à la maison sur un exemple banal...(avec la même config). Pourrait-il y avoir un lien avec la nature de la formule ? c'est vrai que dans mon cas qui plante j'ai une mêchante formule avec un sommeprod à rallonge... A suivre. J'approfondis et je reviens si necessaire en début de semaine ;o) Merci, Domi
"JB" a écrit dans le message de news:
Bonjour,
Sur mon poste,c'est ok:
With Range("plage1,plage2,plage3") .Formula = "=$A$1" .Value = .Value End With
JB
Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plages nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
C'est bizarre, j'ai le pb au boulot (XP pro / Office 2003) mais pas à la
maison sur un exemple banal...(avec la même config). Pourrait-il y avoir un
lien avec la nature de la formule ? c'est vrai que dans mon cas qui plante
j'ai une mêchante formule avec un sommeprod à rallonge...
A suivre. J'approfondis et je reviens si necessaire en début de semaine ;o)
Merci,
Domi
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160197894.231926.66980@m7g2000cwm.googlegroups.com...
Bonjour,
Sur mon poste,c'est ok:
With Range("plage1,plage2,plage3")
.Formula = "=$A$1"
.Value = .Value
End With
JB
Bonjour,
J'utilise un petit code de ce genre pour ecrire une formule dans des
plages
nommées discontinues (plage1, plage2, plage3...)
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
End With
La partie inscription et calcul de la formule se passe bien.
Le problème survient quand je veux ensuite figer les résultats obtenus
si comme pour une plage simple j'ajoute.value=.value ça plante..
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
.Value = .Value
End With
Comment contourner ce problème ?
Merci
Domi
C'est bizarre, j'ai le pb au boulot (XP pro / Office 2003) mais pas à la maison sur un exemple banal...(avec la même config). Pourrait-il y avoir un lien avec la nature de la formule ? c'est vrai que dans mon cas qui plante j'ai une mêchante formule avec un sommeprod à rallonge... A suivre. J'approfondis et je reviens si necessaire en début de semaine ;o) Merci, Domi
"JB" a écrit dans le message de news:
Bonjour,
Sur mon poste,c'est ok:
With Range("plage1,plage2,plage3") .Formula = "=$A$1" .Value = .Value End With
JB
Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plages nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
Domi
Sur mon classeur test ça marche bien Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
As-tu essayé ceci :
Ce que tu évoques avec ce type de syntaxe : Range("plage1, plage2, plage3....") se produit ....et même si cela fonctionne, il arrive que cela ne fonctionne plus sans "raison".
Cette syntaxe est plus sécuritaire !
'--------------------------- Sub test() Dim are As Range With Worksheets("Feuil1") For Each are In Range("A1:A10,C1:C5").Areas With are .Formula = "=$K$5" .Value = .Value End With Next End With
End Sub '---------------------------
"Domi" a écrit dans le message de news:
Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plages nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
Sur mon classeur test ça marche bien
Merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OvKh6fg6GHA.200@TK2MSFTNGP05.phx.gbl...
Bonjour Domi,
As-tu essayé ceci :
Ce que tu évoques avec ce type de syntaxe :
Range("plage1, plage2, plage3....")
se produit ....et même si cela fonctionne, il arrive
que cela ne fonctionne plus sans "raison".
Cette syntaxe est plus sécuritaire !
'---------------------------
Sub test()
Dim are As Range
With Worksheets("Feuil1")
For Each are In Range("A1:A10,C1:C5").Areas
With are
.Formula = "=$K$5"
.Value = .Value
End With
Next
End With
End Sub
'---------------------------
"Domi" <scrat83@free.fr> a écrit dans le message de news:
urGumfc6GHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'utilise un petit code de ce genre pour ecrire une formule dans des
plages
nommées discontinues (plage1, plage2, plage3...)
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
End With
La partie inscription et calcul de la formule se passe bien.
Le problème survient quand je veux ensuite figer les résultats obtenus
si comme pour une plage simple j'ajoute.value=.value ça plante..
With Range("plage1, plage2, plage3....")
.Formula = Ma formule.........
.Value = .Value
End With
Comment contourner ce problème ?
Merci
Domi
Ce que tu évoques avec ce type de syntaxe : Range("plage1, plage2, plage3....") se produit ....et même si cela fonctionne, il arrive que cela ne fonctionne plus sans "raison".
Cette syntaxe est plus sécuritaire !
'--------------------------- Sub test() Dim are As Range With Worksheets("Feuil1") For Each are In Range("A1:A10,C1:C5").Areas With are .Formula = "=$K$5" .Value = .Value End With Next End With
End Sub '---------------------------
"Domi" a écrit dans le message de news:
Bonjour, J'utilise un petit code de ce genre pour ecrire une formule dans des plages nommées discontinues (plage1, plage2, plage3...) With Range("plage1, plage2, plage3....") .Formula = Ma formule......... End With La partie inscription et calcul de la formule se passe bien. Le problème survient quand je veux ensuite figer les résultats obtenus si comme pour une plage simple j'ajoute.value=.value ça plante.. With Range("plage1, plage2, plage3....") .Formula = Ma formule......... .Value = .Value End With Comment contourner ce problème ? Merci Domi
