Création du macro avec une boucle

Version imprimable

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:

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

Bonjour,

Teste ceci et adapte à tes besoins :

Code:

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é.

09/01/2015, 09h23
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 !
09/01/2015, 10h43
Kiera

Bonjour,

Merci Thautheme pour vos conseils ainsi que pour votre aide. je prends note.
Cordialement.
09/01/2015, 10h44
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 :)
09/01/2015, 10h54
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
09/01/2015, 11h04
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, ....)
09/01/2015, 11h06
Kiera

Rebonjour,

Merci beaucoup!

Cordialement
09/01/2015, 11h19
Igloobel

Bonjour à tous

Citation:

Envoyé par 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 !

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

A+
09/01/2015, 11h26
Kiera

Merci