Macro défectueuse boucle

**Mickamax** · 25/03/2019, 11h30

Bonjour à tous,
Je rencontre un problème qui est sans doute assez simple. Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub indicateurs()
Dligne = Range("A1500").End(xlUp).Row
 
For J = 7 To Dligne
compteur = 0
If Cells(J, 7) > Cells(1, 8) Then compteur = compteur + 1
Next J
Cells(4, 1) = compteur
 
End Sub

Pour information: Mon tableau débute en ligne 7.
Je souhaite ici comparer toutes les cellules de ma colonne 7 (ce sont des dates) à la cellule en (1,8) (date également), et faire une somme de +1 à chaque fois qu'une cellule est supérieur à la date en (1,8).

Malheureusement, il semble y avoir une erreur dans mon code… Une âme charitable pour m'aiguiller ?

Bonne journée,
Mickamax

**ARTURO83** · 25/03/2019, 11h43

Bonjour,

ligne compteur = 0 avant For j

Cdlt

**MarcelG** · 25/03/2019, 11h44

Bonjour Mickamax,

Le compteur doit bien entendu être initié hors boucle.
Prends l'habitude de bien rattacher les objets Range à leur feuille Parent.

Cela dit.

Sans passer par VBA , privilégier les fonctions natives d'Excel (nb.si.....)

Voir la liste des fonctions Microsoft

**Menhir** · 25/03/2019, 12h31

Quand un problème comme ça survient, fais tourner ta macro en pas-à-pas (touche F8) en observant les valeurs des variables dans la fenêtre de variables locales.

**Mickamax** · 25/03/2019, 14h02

Hello,
Merci beaucoup pour vos réponses, c'était évident, mais pas assez pour le débutant que je suis on dirait.
J'ai avancé sur mon code, et je tombe sur un problème outrément plus dérangeant. VBA bloque sur le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 2) = compteur / compteur2

Avec le message d'erreur "erreur d'exécution 6, dépassement de capacité".

J'ai fouillé sur le forum, et ce message semble arriver dans le cas où la valeur est inférieure ou supérieure à -32000 et +32000 (à la louche).
Ce n'est pas mon cas puisqu'il s'agit en fait d'un ratio, qui est compris entre 0 et 1. Je me demande si le problème ne viens pas du nombre de décimale trop important.
Toujours est-il que je n'arrive pas à avancer, quelqu'un saurait me filer un petit coup de pouce ?

Voici mon code: j'ai créé un formulaire où figurent deux arguments:
datedebut: inscrire la date de début d'une période.
Datefin: inscrire la date de fin de la période.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dligne = Sheets("indicateurs devis cdes sp?ciale").Range("A1500").End(xlUp).Row
 
compteur = 0
    For J = 7 To Dligne
    If Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) <= Datefin And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 7) <= Sheets("indicateurs devis cdes sp?ciale").Cells(J, 15) Then compteur = compteur + 1
    Next J
compteur2 = 0
    For K = 7 To Dligne
    If Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) <= Datefin Then compteur2 = compteur2 + 1
    Next K
 
Sheets("TDB performance").Cells(1, 2) = Datedebut
Sheets("TDB performance").Cells(1, 4) = Datefin
 
 
Cells(3, 2) = compteur / compteur2
 
 
 
 
 
Majdate.Hide
End Sub

Merci beaucoup !

Mickamax

**MarcelG** · 25/03/2019, 14h17

Plusieurs choses:
Tu ne rattaches toujours pas les objets
Menhir

t'a conseillé d'utiliser la fenêtre des variables locales.
Qu'en est-il de
Date début?
Idem pour date fin?
compteur 2?

Je reprends donc Menhir.
Place un point d'arrêt au début de ton code puis procède à une exécution pas à pas en affichant la fenêtre des variables locales.

Cela dit, la prudence est de mise lors de la gestion de date par formulaire.
En effet, une Textbox ne retourne que du texte.
Dès lors, ne conviendrait-il pas de transformer les textes de date en date?

Enfin, je me demande si la fonction NB.SI.ENS ne serait pas plus adéquate.

**Mickamax** · 25/03/2019, 17h01

Envoyé par MarcelG

Plusieurs choses:
Tu ne rattaches toujours pas les objets

Bonjour,
Je n'ai jamais appris à attacher des variables à mes fichiers, il s'agit sûrement d'une habitude qui montre rapidement ses limites, comme dans cette situation il semblerait.
Pour ma défense, mes connaissances VBA se basent sur les 8h de cours qui m'ont été dispensées cette année, et des infos que j'ai trouvé par-ci par-là.
Je prendrais cette habitude à partir de maintenant.

Menhir

t'a conseillé d'utiliser la fenêtre des variables locales.
Qu'en est-il de
Date début?
Idem pour date fin?
compteur 2?

Je reprends donc Menhir.
Place un point d'arrêt au début de ton code puis procède à une exécution pas à pas en affichant la fenêtre des variables locales.

Cela dit, la prudence est de mise lors de la gestion de date par formulaire.
En effet, une Textbox ne retourne que du texte.
Dès lors, ne conviendrait-il pas de transformer les textes de date en date?

Bon, je repasse pour le gros noob de service, mais je ne sais pas non plus utiliser l'exécution pas à pas (boouuuuh le nul !) ni ouvrir ma fenêtre des variables locales.

Effectivement les variables Datedebut et Datefin sont en format textBox. Petite question qui rejoint le fait que j'ai peu de connaissance en variable:
Est-ce que si je déclare : Dim Datedebut as Date et Dim Datefin as Date, le format va changer?

Enfin, je me demande si la fonction NB.SI.ENS ne serait pas plus adéquate.

J'ai pour idée de confectionner un tableau de bord qui se met à jour selon la date de début et date de fin. Il y aura par la suite des requêtes plus complexes, d'où l'utilisation de VBA.

Déclare tes variables et donne-leur un type.
Déclare-les TOUTES.

Rend cette déclaration obligatoire en utilisant avant ton premier Sub un Option Explicit ou, mieux, en rendant ça automatique.
Outils > Options > Cocher "Déclaration de variables obligatoire"

Quand on laisse VBA faire et qu'on ne met dans la variable que des entiers, VBA considère la variable comme un Integer.
Et une opération entre deux Integer est considérée comme un Integer, même si, dans le cas d'une division, c'est aberrant (beaucoup de langages informatiques font cette erreur).
Il se peut que ton problème vienne de là.

Hello, j'ai déclaré mes variables comme suivi dans le code.
Le problème n'est pas résolu pour autant. Peut-être que l'erreur viens de moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
 
Dim Datedebut As Date
Dim Datefin As Date
Dim compteur As Integer
Dim compteur2 As Integer
 
 
Dligne = Sheets("indicateurs devis cdes sp?ciale").Range("A1500").End(xlUp).Row
compteur = 0
    For J = 7 To Dligne
    If Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) <= Datefin And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 7) <= Sheets("indicateurs devis cdes sp?ciale").Cells(J, 15) Then compteur = compteur + 1
    Next J
compteur2 = 0
    For K = 7 To Dligne
    If Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) <= Datefin Then compteur2 = compteur2 + 1
    Next K
 
Sheets("TDB performance").Cells(1, 2) = Datedebut
Sheets("TDB performance").Cells(1, 4) = Datefin
 
Sheets("TDB performance").Cells(3, 2) = compteur / compteur2
 
 
Majdate.Hide
End Sub

Petite question: considère t-on les "compteurs" comme des variables ou non ?
Merci pour votre aide.
Mickamax

**MarcelG** · 25/03/2019, 17h15

Salut Mickamax,

Je n'ai jamais appris à attacher des variables à mes fichiers

Ouh là!

Le plus simple serait de débuter par le commencement.
Sur ce forum, tu trouveras bon nombre de tutoriels qui pourront t'aider à structurer un code basique.

En pièce jointe, une liste de liens utiles, dont certains vers des espaces documentaires de base.
Tu consulteras notamment le tutoriel de Silkyroad sur les variables.

Bonne suite.

**Menhir** · 26/03/2019, 14h01

Envoyé par Mickamax

Effectivement les variables Datedebut et Datefin sont en format textBox. Petite question qui rejoint le fait que j'ai peu de connaissance en variable:
Est-ce que si je déclare : Dim Datedebut as Date et Dim Datefin as Date, le format va changer?

Cette instruction sert à déclarer des variables, pas à changer le type d'un objet.

Donc, il faut créer 2 nouvelles variables de type date avec un nom qui ne corresponde pas à celui d'un objet existant et mettre dedans le contenu de tes textbox convertit en date.
La méthode de conversion dépend de ce qui se trouve dans ces textbox mais il est possible qu'une fonction DateValue puisse faire l'affaire.
https://docs.microsoft.com/fr-fr/off...value-function

**Menhir** · 25/03/2019, 15h35

Envoyé par Mickamax

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 2) = compteur / compteur2

Avec le message d'erreur "erreur d'exécution 6, dépassement de capacité".

Déclare tes variables et donne-leur un type.
Déclare-les TOUTES.

Rend cette déclaration obligatoire en utilisant avant ton premier Sub un Option Explicit ou, mieux, en rendant ça automatique.
Outils > Options > Cocher "Déclaration de variables obligatoire"

Quand on laisse VBA faire et qu'on ne met dans la variable que des entiers, VBA considère la variable comme un Integer.
Et une opération entre deux Integer est considérée comme un Integer, même si, dans le cas d'une division, c'est aberrant (beaucoup de langages informatiques font cette erreur).
Il se peut que ton problème vienne de là.

Macro défectueuse boucle

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager