Problème d'objet erreur 404
wil_2638
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
jacques -
jacques -
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
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
A voir également:
- Problème d'objet erreur 404
- Vente objet occasion entre particulier - Guide
- Erreur 404 iptv - Guide
- Objet interdit en cabine ryanair - Guide
- Erreur 0x80070643 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
2 réponses
Essaye ce code VBA :
Merci de me dire si ça te convient.
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.
Merci pour ton retour rapide
je vais essayer ton code il est beaucoup plus élaborer que le mien
mais j'ai trouvé mon erreur
en faite la solution était Feuil1.range("E5").Value = somme_usd
je devais écrire feuil1 au lieu de sheet1
toutefois merci pour ton aide
a) Tu peux écrire plus simplement : Feuil1.[E5] = somme_usd
et ça fera la même chose : résultat identique.
b) Dans mon code VBA, la sub test() se termine par :
Worksheets("Feuil1").[E5] = somme_usd
⚠ J'espère que tu connais la différence entre ces 2 instructions !
Ce n'est pas juste une autre façon d'écrire la même instruction :
c'est très important, et ce n'est pas du tout la même chose !
----------------------------------------------
L'instruction [Feuil1!E5] = somme_usd est synonyme de ma
1ère instruction, donc elle aussi est différente de la tienne.
Worksheets(1).[E5] = somme_usd est une instruction valide,
qui peut avoir un résultat différent de nos 2 instructions.
----------------------------------------------
Tu peux laisser ton instruction tel que, à condition de bien
savoir ce que tu fais ! ;)