Sujet Précédent Sujet Suivant

Erreur 1004

Résolu/Fermé
mylord6666 Messages postés 53 Date d'inscription lundi 28 avril 2014 Statut Membre Dernière intervention 12 juillet 2014 - Modifié par pijaku le 17/06/2014 à 07:49
mylord6666 Messages postés 53 Date d'inscription lundi 28 avril 2014 Statut Membre Dernière intervention 12 juillet 2014 - 18 juin 2014 à 07:21
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 
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


5 réponses

Réponse 1 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
17 juin 2014 à 07:50
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
0
Réponse 2 / 5
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 juin 2014 à 09:27
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
0
Réponse 3 / 5
mylord6666 Messages postés 53 Date d'inscription lundi 28 avril 2014 Statut Membre Dernière intervention 12 juillet 2014
17 juin 2014 à 15:20
désole je viens juste de me connecté et donc de vous lire
je vous en remercie de tout coeur
0
Réponse 4 / 5
mylord6666 Messages postés 53 Date d'inscription lundi 28 avril 2014 Statut Membre Dernière intervention 12 juillet 2014
17 juin 2014 à 15:21
mon soucis d'erreur 1004 me bloque je suis désole de demander de l'aide
merci d'avance
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 17/06/2014 à 15:25
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 : 
With Worksheets("donnees")
    Set myrange = .Range(.Cells(no_de_la_ligne, 8), .Cells(no_de_la_ligne, 16))
End With


Cordialement,
Franck
0
mylord6666 Messages postés 53 Date d'inscription lundi 28 avril 2014 Statut Membre Dernière intervention 12 juillet 2014
17 juin 2014 à 16:40
merci beaucoup je vais le tester desuite
0
mylord6666 Messages postés 53 Date d'inscription lundi 28 avril 2014 Statut Membre Dernière intervention 12 juillet 2014
18 juin 2014 à 07:21
merci encore de votre dévouement cela marche à merveilles bravo !!!!
0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Erreur d'éxecution 1004
Damien -
Leclaudefranc -

14 réponses