Erreur 1004
Résolu
mylord6666
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
mylord6666 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
mylord6666 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Qui peut m'aider sur ce module j'ai un soucis j'obtiens le code d"erreur '1004 sur la partie 'afficher le prix minimum c'est surtout la ligne set= qui pose problème la variable myrange reste égale à rien
je n'arrive pas à savoir pourquoi
merci encore de m'aider une fois de plus
Qui peut m'aider sur ce module j'ai un soucis j'obtiens le code d"erreur '1004 sur la partie 'afficher le prix minimum c'est surtout la ligne set= qui pose problème la variable myrange reste égale à rien
je n'arrive pas à savoir pourquoi
merci encore de m'aider une fois de plus
Private Sub prix_min_Click()
Dim answer As Double, myrange As Range
i = 6
nombredelignes = 200
For i = 6 To nombredelignes
If Sheets("donnees").Cells(i, 5) = Comb_produit.Value Then
no_de_la_ligne = i
End If
Next
MsgBox "no de la ligne" & " " & no_de_la_ligne
'afficher le prix minimum
Set myrange = Worksheets("donnees").Range(Cells(no_de_la_ligne, 8), Cells(no_de_la_ligne, 16))
answer = Application.WorksheetFunction.Min(myrange)
Txfb_prix_min.Value = answer
End Sub
A voir également:
- Erreur 1004
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
5 réponses
Bonjour,
Lorsque vous placez du code sur notre forum, merci d'utiliser les balises code à votre disposition.
Le mode d'emploi (au cas ou) est ICI.
Cordialement,
Pijaku
Lorsque vous placez du code sur notre forum, merci d'utiliser les balises code à votre disposition.
Le mode d'emploi (au cas ou) est ICI.
Cordialement,
Pijaku
Bonjour,
As tu regardé ma proposition car je n'ai eu aucun écho de ta part: bon ou mauvais, peu importe mais un peu de courtoisie ne ferait pas de mal et ne découragerait pas des bénévoles à passer du temps pour essayer de donner un coup de main...
. https://forums.commentcamarche.net/forum/affich-30369325-changer-la-couleur-d-une-cellule-en-fonction-d-un-test
Votre dévoué serviteur
As tu regardé ma proposition car je n'ai eu aucun écho de ta part: bon ou mauvais, peu importe mais un peu de courtoisie ne ferait pas de mal et ne découragerait pas des bénévoles à passer du temps pour essayer de donner un coup de main...
. https://forums.commentcamarche.net/forum/affich-30369325-changer-la-couleur-d-une-cellule-en-fonction-d-un-test
Votre dévoué serviteur
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Alors, il se peut que vous lanciez cette procédure depuis un UserForm, et que la Worksheets("donnees") ne soit pas active.
Pour pallier ce type de souci, vous pouvez utiliser des blocs With-End With se rapportant à votre objet Worksheets, comme ceci :
Cordialement,
Franck
Alors, il se peut que vous lanciez cette procédure depuis un UserForm, et que la Worksheets("donnees") ne soit pas active.
Pour pallier ce type de souci, vous pouvez utiliser des blocs With-End With se rapportant à votre objet Worksheets, comme ceci :
With Worksheets("donnees")
Set myrange = .Range(.Cells(no_de_la_ligne, 8), .Cells(no_de_la_ligne, 16))
End With
Cordialement,
Franck
