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

Le
Eric549
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #21433201
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"
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
Eric549
Le #21433311
On 24 mar, 18:10, "Jacky"
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"
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
Jacky
Le #21433411
Re...
moi je désire uniquement la valeur trouvée




Et cela ne fait pas ?????

--
Salutations
JJ


"Eric549"
On 24 mar, 18:10, "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"
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
Eric549
Le #21433511
On 24 mar, 18:36, "Jacky"
Re...>>moi je désire uniquement la valeur trouvée

Et cela ne fait pas ?????

--
Salutations
JJ

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


> 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" >
> 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
Jacky
Le #21433941
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"
On 24 mar, 18:36, "Jacky"
Re...>>moi je désire uniquement la valeur trouvée

Et cela ne fait pas ?????

--
Salutations
JJ

"Eric549"
On 24 mar, 18:10, "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" >
> 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
Publicité
Poster une réponse
Anonyme