problème d'objet erreur 404 Fermé

Question

Bonjours,
pour mon code ci-dessous j'ai un message d'erreur "erreur d'execution 424" objet requis
pour l'écriture de mon avant derniere ligne de code
"sheet1.Range("E5").Value = somme_usd"



Sub test()

Dim tableau As Variant
Dim i As Variant
Dim j As Variant
Dim somme_usd As Integer
Dim nb_usd As interger
Dim somme_usd_eur As Integer

somme = 0
nb_usd = 0

For i = 3 To 9

       If (Range("C" & i).Value = "usd") And (Range("F" & i).Value = "bloqué") Then
                                 nb_usd = nb_usd + 1
                                 somme_usd = somme_usd + Range("d" & i).Value
                                 'determiner les deux montants max et leur lignes et éqivalence en eu
      
      End If
      
       
       
Next

'creer une fonction pour faire le change usd /eur
somme_usd_eur = (somme_usd * 0.89261)


MsgBox ("le nombre d'opé usd est égale à" & nb_usd)
MsgBox ("le somme opé usd est égale à" & somme_usd)

'placer la valeur de somme_usd dans la cellule E5 feuille1
sheet1.Range("E5").Value = somme_usd

End Sub

jacques · Answer

Essaye ce code VBA :

Option Explicit

Function EnEuros(mnt As Currency) As Currency
  EnEuros = mnt * 0.89261
End Function

Sub test()

Dim nb_usd As Integer, mnt As Currency, maxusd As Currency
  Dim somme_usd As Currency, lig As Long, lig_maxusd As Long

For lig = 3 To 9
    If Range("C" & lig) = "usd" And Range("F" & lig) = "bloqué" Then
      mnt = Val(Range("D" & lig))
      If mnt > 0 Then
        nb_usd = nb_usd + 1: somme_usd = somme_usd + mnt
        If mnt > maxusd Then maxusd = mnt: lig_maxusd = lig
      End If
    End If
  Next lig
  
  MsgBox "nombre opé usd : " & nb_usd & vbLf & vbLf _
    & "somme opé usd : " & somme_usd & vbLf _
    & "somme opé eur : " & EnEuros(somme_usd) & vbLf & vbLf _
    & "ligne " & lig_maxusd & " : maxusd = " & maxusd & vbLf _
    & "maxusd en eur : " & EnEuros(maxusd) & " €"
  
  Worksheets("Feuil1").[E5] = somme_usd

End Sub

Merci de me dire si ça te convient.

ccm81 · Answer

Bonjour à tous les deux

Essaies ceci pour la ligne "fautive"
Sheets(1).Range("E5").Value = somme_usd 

Cdlmnt

Problème d'objet erreur 404

2 réponses

Discussions similaires