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 Formule dans une cellule

Formule dans une cellule

2 réponses
Avatar
imej-clavier
Bonjour,
Quelqu'un peut-il comprendre ce qui ne va pas dans mon programme ?
Private Sub Moy()
Dim Ligne As Integer
Ligne = 16
While Worksheets(1).Cells(Ligne, 13).Value <> ""
Worksheets(1).Cells(Ligne, 16).Formula =
"=Average(Cells(Ligne,13),(Ligne,15))"
Ligne = Ligne + 1
Wend
End Sub
'Je n'arrive pas à comprendre pourquoi cela ne marche pas, et comment faire
pour mettre le résultat de ma formule dans une cellule. (J'ai essayé avec
Cell, avec : , etc., mais cela ne marche pas.
D'avance merci

Jean-michel
Signaler un problème avec ce contenu

2 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
Joël GARBE
Bonsoir, sans tester :

Private Sub Moy()
Dim Ligne As Integer
Ligne = 16
While Worksheets(1).Cells(Ligne, 13).Value <> ""
Worksheets(1).Cells(Ligne, 16).Formula "=Average(" & Cells(Ligne,13).address & "," & cells((Ligne,15).address & ")"
Ligne = Ligne + 1
Wend
End Sub

quelque chose comme ça en tout cas ;-)
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"imej-clavier" a écrit dans le message de news:
O%
Bonjour,
Quelqu'un peut-il comprendre ce qui ne va pas dans mon programme ?
Private Sub Moy()
Dim Ligne As Integer
Ligne = 16
While Worksheets(1).Cells(Ligne, 13).Value <> ""
Worksheets(1).Cells(Ligne, 16).Formula > "=Average(Cells(Ligne,13),(Ligne,15))"
Ligne = Ligne + 1
Wend
End Sub
'Je n'arrive pas à comprendre pourquoi cela ne marche pas, et comment
faire
pour mettre le résultat de ma formule dans une cellule. (J'ai essayé avec
Cell, avec : , etc., mais cela ne marche pas.
D'avance merci

Jean-michel




Avatar
Joël GARBE
et en testant :

Private Sub Moy()
Dim Ligne As Integer
Ligne = 16
While Worksheets(1).Cells(Ligne, 13).Value <> ""
Worksheets(1).Cells(Ligne, 16).Formula = _
"=Average(" & Cells(Ligne, 13).Address & "," & Cells(Ligne,
15).Address & ")"
Ligne = Ligne + 1
Wend
End Sub



--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joël GARBE" a écrit dans le message de news:
419f838e$0$7241$
Bonsoir, sans tester :

Private Sub Moy()
Dim Ligne As Integer
Ligne = 16
While Worksheets(1).Cells(Ligne, 13).Value <> ""
Worksheets(1).Cells(Ligne, 16).Formula > "=Average(" & Cells(Ligne,13).address & "," & cells((Ligne,15).address &
")"
Ligne = Ligne + 1
Wend
End Sub

quelque chose comme ça en tout cas ;-)
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"imej-clavier" a écrit dans le message de news:
O%
Bonjour,
Quelqu'un peut-il comprendre ce qui ne va pas dans mon programme ?
Private Sub Moy()
Dim Ligne As Integer
Ligne = 16
While Worksheets(1).Cells(Ligne, 13).Value <> ""
Worksheets(1).Cells(Ligne, 16).Formula >> "=Average(Cells(Ligne,13),(Ligne,15))"
Ligne = Ligne + 1
Wend
End Sub
'Je n'arrive pas à comprendre pourquoi cela ne marche pas, et comment
faire
pour mettre le résultat de ma formule dans une cellule. (J'ai essayé avec
Cell, avec : , etc., mais cela ne marche pas.
D'avance merci

Jean-michel