Discussion :

[Kiera]

Bonjour,

J'ai effectué une macro, mais en l'exécutant je ne vois si je l'ai bien rédiger.
Il s'agit de la macro suivante :

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
Macro4 2ème session
 
Sub macro4()
 
Dim Total As Long
Dim Variable As Long
'Dim Variableplus2 As Long
 
Do Until Total >= 100
Variable = Variable + 2
 
Total = Total + Variable
 
 
Loop
 
End Sub

La consigne de départ est la suivante :

Créer une macro qui fonctionnera jusqu'à ce que la valeur "total" soit supérieure ou égale à 100. Dans cette boucle il sera ajouté à la variable "total" de la valeur 2 au premier tour, au tour suivant la valeur 4 et au tour suivant 6 et ainsi de suite.

Pour ma part je ne comprends pas l'utilité de cette macro.


Autre chose : je vais passer un évaluation en vba très prochainement (cet examen consistera à créer des macros spécifiques suite à des consignes qu'on nous aura transmises). A tout hasard, Auriez vous quelques conseils à me prodiguer?

Merci

Cordialement

[Theze]

Bonjour,

Teste ceci et adapte à tes besoins :

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
 
Sub macro4()
 
    Dim Total As Long
    Dim Variable As Long
    Dim Passe As Integer
 
    Do Until Total >= 100
 
        Variable = Variable + 1
        Total = Total + Variable * 2
        Passe = Passe + 1
 
    Loop
 
    MsgBox "La valeur de la variable 'Total' est de " & Total & " donc " & IIf(Total > 100, "supérieure", "égale") & " à 100." & _
           vbCrLf & _
           "Il a fallut " & Passe & " passe(s) pour arriver à ce résultat !"
 
End Sub

Hervé.

[Thautheme]

Bonjour Kiera, Hervé, bonjour le forum,

Tu as raison cette macro n'a pas vraiment d'intérêt sinon celui de vous enseigner la méthode Do...Loop. Et ton code me semble tout à fait correct.

Voici quelques conseil (d'un autodidacte pas très évolué...)
• Pense à bien déclarer tes variables avec le type le mieux adapté. Dans cet exemple le type Byte était suffisant puisque la boucle s'arrête dès que tu atteins la valeur 100. Au pire, Integer mais Long me paraît excessif...
• Utilise toujours au moins une lettre en majuscule dans la déclaration de tes variables. Ensuite, quand tu écris le code, écris le en minuscule. L'éditeur VBA remettra automatiquement les majuscules. D'un rapide coup d'œil, cette astuce permet d'éviter les fautes de frappe entraînant des bugs...
• Fais tourner ta macro pas à pas [F8] avec des espions ou avec des Debug.Print pour vérifier l'état des variables avant de rendre le résultat.
• VBA est un langage et comme tel tu peux dire une même chose de plusieurs manières différentes. Essaie d'utiliser le minimum de lignes de code mais il faut que ça reste suffisamment clair pour qu'un autre utilisateur que toi le comprenne aisément.

M... pour ton évaluation !

[Kiera]

Bonjour,

Merci Thautheme pour vos conseils ainsi que pour votre aide. je prends note.
Cordialement.

[vinc_bilb]

Bonjour à tous,

A la liste fournie par Thautheme, et basé sur ma propre expérience, j'ajouterai:

1. Option explicit à mettre en entête de chaque module (force la déclaration des variables) et proscrire le type variant (par défaut)
2. Si un bout de code est susceptible d'être appelé plusieurs fois, le mettre en fonction ou en sub avec passage de paramètre, c'est un peu de temps de perdu à la création mais beaucoup de gain ensuite

Bonne continuation

[Kiera]

D'accord. je prends note. Merci
D'ailleurs: au lieu d'écrire au début de chaque module "Option explicit" à chaque fois, savez quelle est la manipulation à faire sur excel ?
Sur mon pc avec la version 2013, j'ai trouvé la manipulation à effectuer mais avec les versions antérieures (2010 par exemple), je ne trouve pas .
Merci.
Cordialement

[vinc_bilb]

Rebonjour,

Pour forcer l'insertion du 'option explicit' (Excel 2010 - Anglais),

1. Sous VBE, choisir 'Outils' puis 'Options'
2. Cocher toutes les options de l'onglet 'Editeur' (vértification syntaxe, déclaration de variables, ....)

[Igloobel]

Bonjour à tous

Bonjour Kiera, Hervé, bonjour le forum,

Tu as raison cette macro n'a pas vraiment d'intérêt sinon celui de vous enseigner la méthode Do...Loop. Et ton code me semble tout à fait correct.

Voici quelques conseil (d'un autodidacte pas très évolué...)
• Pense à bien déclarer tes variables avec le type le mieux adapté. Dans cet exemple le type Byte était suffisant puisque la boucle s'arrête dès que tu atteins la valeur 100. Au pire, Integer mais Long me paraît excessif...
• Utilise toujours au moins une lettre en majuscule dans la déclaration de tes variables. Ensuite, quand tu écris le code, écris le en minuscule. L'éditeur VBA remettra automatiquement les majuscules. D'un rapide coup d'œil, cette astuce permet d'éviter les fautes de frappe entraînant des bugs...
• Fais tourner ta macro pas à pas [F8] avec des espions ou avec des Debug.Print pour vérifier l'état des variables avant de rendre le résultat.
• VBA est un langage et comme tel tu peux dire une même chose de plusieurs manières différentes. Essaie d'utiliser le minimum de lignes de code mais il faut que ça reste suffisamment clair pour qu'un autre utilisateur que toi le comprenne aisément.

M... pour ton évaluation !

Je suis 100% d'accord avec toi et je fait pareil ...

A+

[Kiera]

Merci