Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour,
Si j'ai bien compris
Hypothèse: La colonne A est renseignée par des
nombres et on veut calculer la somme de la plage
A1 à A3 (par exemple) avec le résultat qui s'affiche
en C1.
1) Simulation de ce que vous décrivez
'**********
Sub votreFormule()
Dim Adresse1 As String
Dim Adresse2 As String
Adresse1 = "a1"
Adresse2 = "a3"
[c1].NumberFormat = "@"
[c1].Formula = "=somme(" & Adresse1 & ":" & Adresse2 & ")"
[c1].NumberFormat = "0.00"
End Sub
'**********
Effectivement dans ce cas, on est obligé de cliquer
dans la barre de formule et d'entériner
2) Procédez plutôt comme suit
'**********
Sub FormuleModifiee()
Dim Adresse1 As String
Dim Adresse2 As String
Adresse1 = "a1"
Adresse2 = "a3"
[c1].Formula = "=sum(" & Adresse1 & ":" & Adresse2 & ")"
End Sub
'**********
On a entré la formule en langage VBA (sum) et non
pas en language de l'utilisateur (somme).
Pour trouver les fonctions en langage VBA allez dans
l'explorateur d'objets (raccourci F2) et consultez la
liste de l'objet WorksheetFunction.
Cordialement.
Bonjour,
Si j'ai bien compris
Hypothèse: La colonne A est renseignée par des
nombres et on veut calculer la somme de la plage
A1 à A3 (par exemple) avec le résultat qui s'affiche
en C1.
1) Simulation de ce que vous décrivez
'**********
Sub votreFormule()
Dim Adresse1 As String
Dim Adresse2 As String
Adresse1 = "a1"
Adresse2 = "a3"
[c1].NumberFormat = "@"
[c1].Formula = "=somme(" & Adresse1 & ":" & Adresse2 & ")"
[c1].NumberFormat = "0.00"
End Sub
'**********
Effectivement dans ce cas, on est obligé de cliquer
dans la barre de formule et d'entériner
2) Procédez plutôt comme suit
'**********
Sub FormuleModifiee()
Dim Adresse1 As String
Dim Adresse2 As String
Adresse1 = "a1"
Adresse2 = "a3"
[c1].Formula = "=sum(" & Adresse1 & ":" & Adresse2 & ")"
End Sub
'**********
On a entré la formule en langage VBA (sum) et non
pas en language de l'utilisateur (somme).
Pour trouver les fonctions en langage VBA allez dans
l'explorateur d'objets (raccourci F2) et consultez la
liste de l'objet WorksheetFunction.
Cordialement.
Bonjour,
Si j'ai bien compris
Hypothèse: La colonne A est renseignée par des
nombres et on veut calculer la somme de la plage
A1 à A3 (par exemple) avec le résultat qui s'affiche
en C1.
1) Simulation de ce que vous décrivez
'**********
Sub votreFormule()
Dim Adresse1 As String
Dim Adresse2 As String
Adresse1 = "a1"
Adresse2 = "a3"
[c1].NumberFormat = "@"
[c1].Formula = "=somme(" & Adresse1 & ":" & Adresse2 & ")"
[c1].NumberFormat = "0.00"
End Sub
'**********
Effectivement dans ce cas, on est obligé de cliquer
dans la barre de formule et d'entériner
2) Procédez plutôt comme suit
'**********
Sub FormuleModifiee()
Dim Adresse1 As String
Dim Adresse2 As String
Adresse1 = "a1"
Adresse2 = "a3"
[c1].Formula = "=sum(" & Adresse1 & ":" & Adresse2 & ")"
End Sub
'**********
On a entré la formule en langage VBA (sum) et non
pas en language de l'utilisateur (somme).
Pour trouver les fonctions en langage VBA allez dans
l'explorateur d'objets (raccourci F2) et consultez la
liste de l'objet WorksheetFunction.
Cordialement.
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Si tu n'as pas encore trouvé, tu peux m'envoyer la partie de ton fichier où tu éprouves le problème sans oublier quelques
explications de ta part.
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Ma cellule est bien au départ en format nombre "0.00". Ma formule donnée
dans l'exemple est récupérée par concaténation, mais le problème, c'est que
c'est le résultat du calcul que je désire voir apparaitre pas la formule.
Si qq voit comment...
merci.
Stach ;-)
--
Stach ;-)Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Si tu n'as pas encore trouvé, tu peux m'envoyer la partie de ton fichier où tu éprouves le problème sans oublier quelques
explications de ta part.
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 04D2758B-CF9C-47AA-977E-2A652745DF32@microsoft.com...
Bonjour,
Ma cellule est bien au départ en format nombre "0.00". Ma formule donnée
dans l'exemple est récupérée par concaténation, mais le problème, c'est que
c'est le résultat du calcul que je désire voir apparaitre pas la formule.
Si qq voit comment...
merci.
Stach ;-)
--
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Si tu n'as pas encore trouvé, tu peux m'envoyer la partie de ton fichier où tu éprouves le problème sans oublier quelques
explications de ta part.
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Ma cellule est bien au départ en format nombre "0.00". Ma formule donnée
dans l'exemple est récupérée par concaténation, mais le problème, c'est que
c'est le résultat du calcul que je désire voir apparaitre pas la formule.
Si qq voit comment...
merci.
Stach ;-)
--
Stach ;-)Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Si tu n'as pas encore trouvé, tu peux m'envoyer la partie de ton fichier où tu éprouves le problème sans oublier quelques
explications de ta part.
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Ma cellule est bien au départ en format nombre "0.00". Ma formule donnée
dans l'exemple est récupérée par concaténation, mais le problème, c'est que
c'est le résultat du calcul que je désire voir apparaitre pas la formule.
Si qq voit comment...
merci.
Stach ;-)
--
Stach ;-)Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Si tu n'as pas encore trouvé, tu peux m'envoyer la partie de ton fichier où tu éprouves le problème sans oublier quelques
explications de ta part.
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news: 04D2758B-CF9C-47AA-977E-2A652745DF32@microsoft.com...
Bonjour,
Ma cellule est bien au départ en format nombre "0.00". Ma formule donnée
dans l'exemple est récupérée par concaténation, mais le problème, c'est que
c'est le résultat du calcul que je désire voir apparaitre pas la formule.
Si qq voit comment...
merci.
Stach ;-)
--
Stach ;-)
Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------
Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)
Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news:
6CE3D382-4EF2-48BD-A7F0-55C55ACD3FF9@microsoft.com...
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)
Bonjour Stach,
Si tu n'as pas encore trouvé, tu peux m'envoyer la partie de ton fichier où tu éprouves le problème sans oublier quelques
explications de ta part.
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Ma cellule est bien au départ en format nombre "0.00". Ma formule donnée
dans l'exemple est récupérée par concaténation, mais le problème, c'est que
c'est le résultat du calcul que je désire voir apparaitre pas la formule.
Si qq voit comment...
merci.
Stach ;-)
--
Stach ;-)Pourtant la solution proposée par Denis (changer le format de la cellule du
format "texte" au format "standard" puis y entrer ta formule) doit fonctionner !
Attention cependant au séparateur décimal (point obligatoire en VBA).
Pour faire bonne mesure tu peux ajouter une instruction Calculate ou
CalculateFull (à partir d'Excel 2000) mais ça ne devrait pas être nécessaire..
Sub essai()
Range("A1").NumberFormat = "General"
Range("A1").Formula = "U.24-(((55.24-54.74)/(1.58-0.41))*(1.58-0.41))"
Application.Calculate
End Sub
----------
Ange Ounis
----------Salut,
J'ai essayer ta solution ainsi que l'autre proposée, mais au lieu de me
donnée la valeur calculée dans la cellule, il de donne ma formule:
U,24-(((55,24-54,74)/(1,58-0,41))*(1,58-0,41))
si je veux obtenir la valeur dans la cellule je dois clicquer dans la barre
de formule puis faire "enter" ou alors, faire "F2" puis "F9" et ensuite
"enter".
Ce que je voudrai c'est avoir automatiquement le résultat du calcul et pas
sa formule.
Merci encore
Stach ;-)Bonjour Stach,
Tu formates ta cellules au format standard et tu ajoutes ta formule.
Range("A1").NumberFormat = "General"
Range("A1").FormulaLocal = "±"
Ou comme ceci selon ta préférence ...
Range("A1").Formula = "±"
Salutations!
"Stach" a écrit dans le message de news:
Bonjour,
Par automation VBA, je crée une formule par concaténation. Je colle cette
formule dans une cellule que j'ai préalablement mise au format "texte".
Pour que le calcul s'effectue, je remets (toujours par vba) la cellule au
format "0.00".
Seulement, pour que le calcul s'effectue dans la cellule, je dois avec ma
souris sélectionner la cellule, clicquer dans la formule dans la barre de
formule puis faire "enter". Comment réaliser ces dernières opérations par VBA?
Merci bien.
Stach ;-)