Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Uniquement la valeur d'une formule dans une cellule sans la formule en VBA

Uniquement la valeur d'une formule dans une cellule sans la formule en VBA

5 réponses
Avatar
Eric549
bonjour

merci =E0 ceux qui m'ont fourni la formule suivante

ActiveCell.FormulaR1C1 =3D "=3DSUM(Janvier_2010:Decembre_2010!R[-1]C[46])"


comment sur la cellule r=E9sultat : afficher le r=E9sultat de cette
formule uniquement et sans la formule

merci pour vos r=E9ponses
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Jacky
Bonsoir,
Ceci retourne dans la cellule active le total des cellules "az3" des feuilles en question
ActiveCell = [SUM(Janvier_2010:Decembre_2010!az3)]

ActiveCell, tu es sûr ???
--
Salutations
JJ


"Eric549" a écrit dans le message de news:

bonjour

merci à ceux qui m'ont fourni la formule suivante

ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!R[-1]C[46])"


comment sur la cellule résultat : afficher le résultat de cette
formule uniquement et sans la formule

merci pour vos réponses
Avatar
Eric549
On 24 mar, 18:10, "Jacky" wrote:
Bonsoir,
Ceci retourne dans la cellule active le total des cellules "az3" des feui lles en question
ActiveCell = [SUM(Janvier_2010:Decembre_2010!az3)]

ActiveCell, tu es sûr ???
--
Salutations
JJ

"Eric549" a écrit dans le message de news:

bonjour

merci à ceux qui m'ont fourni la formule suivante

ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!R[-1]C[46]) "

comment sur la cellule résultat : afficher le résultat de cette
formule uniquement et sans la formule

merci pour vos réponses



oui c'est vrai mais avec la formule suivante ;:
SOMME(Janvier_2010:Decembre_2010!AY3)
moi je désire uniquement la valeur trouvée
Avatar
Jacky
Re...
moi je désire uniquement la valeur trouvée




Et cela ne fait pas ?????

--
Salutations
JJ


"Eric549" a écrit dans le message de news:

On 24 mar, 18:10, "Jacky" wrote:
Bonsoir,
Ceci retourne dans la cellule active le total des cellules "az3" des feuilles en question
ActiveCell = [SUM(Janvier_2010:Decembre_2010!az3)]

ActiveCell, tu es sûr ???
--
Salutations
JJ

"Eric549" a écrit dans le message de news:

bonjour

merci à ceux qui m'ont fourni la formule suivante

ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!R[-1]C[46])"

comment sur la cellule résultat : afficher le résultat de cette
formule uniquement et sans la formule

merci pour vos réponses



oui c'est vrai mais avec la formule suivante ;:
SOMME(Janvier_2010:Decembre_2010!AY3)
moi je désire uniquement la valeur trouvée
Avatar
Eric549
On 24 mar, 18:36, "Jacky" wrote:
Re...>>moi je désire uniquement la valeur trouvée

Et cela ne fait pas ?????

--
Salutations
JJ

"Eric549" a écrit dans le message de news:

On 24 mar, 18:10, "Jacky" wrote:



> Bonsoir,
> Ceci retourne dans la cellule active le total des cellules "az3" des fe uilles en question
> ActiveCell = [SUM(Janvier_2010:Decembre_2010!az3)]

> ActiveCell, tu es sûr ???
> --
> Salutations
> JJ

> "Eric549" a écrit dans le message de news:
>
> bonjour

> merci à ceux qui m'ont fourni la formule suivante

> ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!R[-1]C[46 ])"

> comment sur la cellule résultat : afficher le résultat de cette
> formule uniquement et sans la formule

> merci pour vos réponses

oui c'est vrai mais avec la formule suivante ;:
SOMME(Janvier_2010:Decembre_2010!AY3)
moi je désire uniquement la valeur trouvée





Merci pour tes réponses

voici mon code

Lorsque le Filtre2 est activée
IL remplace automatiquement les valeurs du Filtre1 par les valeurs du
Filtre2

Il me faut sur une ligne les valeurs du Filtre1
et sur la ligne suivante les valeurs du Filtre2

donc je pensais récupérer uniquement les valeurs du Filtre1 afin de
pouvoir activer sans problème le Filtre2

Hélas , je tourne en rond

merci pour vos réponses

Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
Select Case Sh.Name
Case Is <> "Récap_IDE"


Sh.[a12:Am1000].AutoFilter Field:=1, Criteria1:="7205"
Sh.[a12:Am1000].AutoFilter Field:=3, Criteria1:="IDE"

End Select
Next

If Worksheets("PARAM").AutoFilterMode Then
Worksheets("PARAM").AutoFilterMode = False
End If
If Worksheets("Récap_IDE").AutoFilterMode Then
Worksheets("Récap_IDE").AutoFilterMode = False
End If

Call Filtre1

Call Filtre2

Sub Filtre1()

Sheets("PARAM").Range("B4").Copy Sheets("Récap_IDE").Range("A4")
Sheets("PARAM").Range("B3").Copy Sheets("Récap_IDE").Range("A6")

Worksheets("Récap_IDE").Activate
Range("E4").Select
ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("E5").Value = MemoE4
Range("F4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("H4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("G4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("I4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("J4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("K4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("L4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("A1").Select
End Sub

Sub Filtre2()

For Each Sh2 In ActiveWorkbook.Sheets
Select Case Sh2.Name
Case Is <> "Récap_IDE"


Sh2.[a12:Am1000].AutoFilter Field:=1, Criteria1:="7417"
Sh2.[a12:Am1000].AutoFilter Field:=3, Criteria1:="IDE"

End Select

Next
End Sub
Avatar
Jacky
Re...
Par certain d"avoir compris.........
Essaye en modifiant cette partie du code
'-------------
Worksheets("Récap_IDE").Activate
Range("E5").Value = MemoE4
Range("E4") = [SUM(Janvier_2010:Decembre_2010!ay3)]
Range("F4") = [SUM(Janvier_2010:Decembre_2010!AZ3)]
Range("g4") = [SUM(Janvier_2010:Decembre_2010!BA3)]
Range("h4") = [SUM(Janvier_2010:Decembre_2010!BB3)]
Range("i4") = [SUM(Janvier_2010:Decembre_2010!BC3)]
Range("j4") = [SUM(Janvier_2010:Decembre_2010!BD3)]
Range("k4") = [SUM(Janvier_2010:Decembre_2010!BE3)]
Range("L4") = [SUM(Janvier_2010:Decembre_2010!BF3)]
'-------------
--
Salutations
JJ


"Eric549" a écrit dans le message de news:

On 24 mar, 18:36, "Jacky" wrote:
Re...>>moi je désire uniquement la valeur trouvée

Et cela ne fait pas ?????

--
Salutations
JJ

"Eric549" a écrit dans le message de news:

On 24 mar, 18:10, "Jacky" wrote:



> Bonsoir,
> Ceci retourne dans la cellule active le total des cellules "az3" des feuilles en question
> ActiveCell = [SUM(Janvier_2010:Decembre_2010!az3)]

> ActiveCell, tu es sûr ???
> --
> Salutations
> JJ

> "Eric549" a écrit dans le message de news:
>
> bonjour

> merci à ceux qui m'ont fourni la formule suivante

> ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!R[-1]C[46])"

> comment sur la cellule résultat : afficher le résultat de cette
> formule uniquement et sans la formule

> merci pour vos réponses

oui c'est vrai mais avec la formule suivante ;:
SOMME(Janvier_2010:Decembre_2010!AY3)
moi je désire uniquement la valeur trouvée





Merci pour tes réponses

voici mon code

Lorsque le Filtre2 est activée
IL remplace automatiquement les valeurs du Filtre1 par les valeurs du
Filtre2

Il me faut sur une ligne les valeurs du Filtre1
et sur la ligne suivante les valeurs du Filtre2

donc je pensais récupérer uniquement les valeurs du Filtre1 afin de
pouvoir activer sans problème le Filtre2

Hélas , je tourne en rond

merci pour vos réponses

Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
Select Case Sh.Name
Case Is <> "Récap_IDE"


Sh.[a12:Am1000].AutoFilter Field:=1, Criteria1:="7205"
Sh.[a12:Am1000].AutoFilter Field:=3, Criteria1:="IDE"

End Select
Next

If Worksheets("PARAM").AutoFilterMode Then
Worksheets("PARAM").AutoFilterMode = False
End If
If Worksheets("Récap_IDE").AutoFilterMode Then
Worksheets("Récap_IDE").AutoFilterMode = False
End If

Call Filtre1

Call Filtre2

Sub Filtre1()

Sheets("PARAM").Range("B4").Copy Sheets("Récap_IDE").Range("A4")
Sheets("PARAM").Range("B3").Copy Sheets("Récap_IDE").Range("A6")

Worksheets("Récap_IDE").Activate
Range("E4").Select
ActiveCell.FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("E5").Value = MemoE4
Range("F4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("H4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("G4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("I4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("J4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("K4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("L4").FormulaR1C1 = "=SUM(Janvier_2010:Decembre_2010!
R[-1]C[46])"
Range("A1").Select
End Sub

Sub Filtre2()

For Each Sh2 In ActiveWorkbook.Sheets
Select Case Sh2.Name
Case Is <> "Récap_IDE"


Sh2.[a12:Am1000].AutoFilter Field:=1, Criteria1:="7417"
Sh2.[a12:Am1000].AutoFilter Field:=3, Criteria1:="IDE"

End Select

Next
End Sub