Problème sur le code VBA

Koky Dramé · 1 Octobre 2018

Bonjour, j'aurais besoin de votre aide sur mon code VBA. Quand je clique sur le bouton que j'ai créé et affecté une macro pour vérifier mon code , on me signale une erreur. L'image de la boîte de dialogue qui décèle l'erreur et celle de mon code VBA sont ci-jointes.
Merci d'avance.

vgendron · 2 Octobre 2018

Bonjour
c'est sympa des images..... mais ca ne donne rien...
au hasard.. ta range ("StockT_01") est elle bien définie?

Koky Dramé · 2 Octobre 2018

Bonjour vgendron,
Oui la range("StocksT_01") est bien définie. Voici le fichier. Je me demande maintenant si j'ai bien fait de définir Row, 1 au lieu de Row, 3 par exemple.
Merci

vgendron · 2 Octobre 2018

et elle est où la macro dans ton fichier..?

Koky Dramé · 2 Octobre 2018

Je ne comprendss pas....

vgendron · 2 Octobre 2018

Dans le fichier que tu as posté.. il n'y a pas la macro..
je ne vais quand meme pas recopié ton code que tu as mis juste en image..

Koky Dramé · 2 Octobre 2018

An OK, je vois....Quand j'enregistrais le fichier, il y avait Classeur en macro or l'un enregistrait le fichier sous format xltm et je le choisissais sans le savoir, du coup je ne pouvais pas joindre un fichier de cette extension, désolé. Voici le nouveau (enfin le même avec un format xlsm).

vgendron · 2 Octobre 2018

Essaie ceci

VB:

Sub Macro01()
Dim StocksT01 As Range
For Each Valeur In ActiveSheet.Range("StocksT_01")
    If Valeur > 50 And Valeur < 100 Then
        MsgBox "Niveau de stock de" & Valeur & "Tigo moyen.", vbInformation, "Niveau de stock faible"
    End If
    If Valeur < 50 Then
        MsgBox "La référence: " & Valeur.Offset(0, -3) & " doit être commandée.", vbCritical, "Quantité en stock insuffisante"
    End If
Next Valeur
End Sub

Koky Dramé · 2 Octobre 2018

Merci beaucoup vgendron, ça a marché à merveille. J'aurai juste deux ou trois questions à propos...
Pourquoi vous n'avez pass eu besoin de cette ligne (Valeur = Cells(StocksT_01.Row, 1)) dans votre code?
Pourquoi "Valeur" après Next?
Pourquoi le mien ne marchait, quelle étai(en)t m(es)on erreur?
Merci encore un fois

vgendron · 2 Octobre 2018

For each Valeur in range
Valeur.. c'est déjà la valeur.. et pas l'adresse;; donc pas besoin des "Cells(StocksT_01.Row, 1)) "

next valeur.. c'est une question de syntaxe... ce n'est pas obligatoire.. mais quand il y a plusieurs "for" imbriqués sans indentation.. c'est plus pratique pour voir à quel moment la boucle est fermée..
tout comme
if condition then
action
else
end if

si tu ne fais rien dans le else..pas besoin de le mettre.. ca surcharge le code inutilement
d'ailleurs.. on pourrait meme écrire
if condition then action
mais la.. perso..j'aime pas...
juste une question de gout..
j'imagine qu'à un niveau supérieur de codage (avec optimisation d'execution), il vaut mieux limiter le nombre de lignes.. mais.. ca.. vu mon utilisation.. je n'en suis pas à ce niveau..

job75 · 2 Octobre 2018

Bonsoir Koky Dramé, vgendron,

vgendron à dit:
j'imagine qu'à un niveau supérieur de codage (avec optimisation d'execution), il vaut mieux limiter le nombre de lignes.. mais.. ca.. vu mon utilisation.. je n'en suis pas à ce niveau..

Chez moi ce code s'effectue en 1 seconde :

Code:

Sub a()
t = Timer
For i = 1 To 100000000
Next
MsgBox Timer - t
End Sub

J'ai ensuite inséré 1000 lignes vides dans la boucle For/Next : la durée reste exactement la même.

A+

Koky Dramé · 2 Octobre 2018

vgendron à dit:
For each Valeur in range
Valeur.. c'est déjà la valeur.. et pas l'adresse;; donc pas besoin des "Cells(StocksT_01.Row, 1)) "

next valeur.. c'est une question de syntaxe... ce n'est pas obligatoire.. mais quand il y a plusieurs "for" imbriqués sans indentation.. c'est plus pratique pour voir à quel moment la boucle est fermée..
tout comme
if condition then
action
else
end if

si tu ne fais rien dans le else..pas besoin de le mettre.. ca surcharge le code inutilement
d'ailleurs.. on pourrait meme écrire
if condition then action
mais la.. perso..j'aime pas...
juste une question de gout..
j'imagine qu'à un niveau supérieur de codage (avec optimisation d'execution), il vaut mieux limiter le nombre de lignes.. mais.. ca.. vu mon utilisation.. je n'en suis pas à ce niveau..

OK je vois, je suis débutant et je me rend compte que j'ai beaucoup d'astuces à mettre en tête.
Merci beaucoup encore une fois

Koky Dramé · 2 Octobre 2018

job75 à dit:
Bonsoir Koky Dramé, vgendron,

Chez moi ce code s'effectue en 1 seconde :

Code:

Sub a() t = Timer For i = 1 To 100000000 Next MsgBox Timer - t End Sub

J'ai ensuite inséré 1000 lignes vides dans la boucle For/Next : la durée reste exactement la même.

A+

Et quel sera le message d'alerte à afficher

Problème sur le code VBA

Koky Dramé

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Koky Dramé

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Koky Dramé

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Koky Dramé

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Koky Dramé

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Koky Dramé

XLDnaute Nouveau

Koky Dramé

XLDnaute Nouveau

Discussions similaires