Erreur 1004
Résolu
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
5 réponses
-
ModérateurBonjour,
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 -
ContributeurBonjour,
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 -
désole je viens juste de me connecté et donc de vous lire
je vous en remercie de tout coeur -
mon soucis d'erreur 1004 me bloque je suis désole de demander de l'aide
merci d'avance -
ModérateurBonjour,
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
