Scribd Logo
Importer

Bienvenue sur Scribd !

  • 174 vues

    Cours VBA - Les Boucles

    Transféré par

    boy jorg
    Le document décrit différents types de boucles en VBA comme les boucles While, Do While, For. Il montre comment ces boucles peuvent être utilisées pour répéter des instructions de manière à numéroter automatiquement plusieurs lignes dans Excel.

    Droits d'auteur :

    © All Rights Reserved
    Téléchargez comme PDF, TXT ou lisez en ligne sur Scribd

    Cours VBA - Les Boucles

    Transféré par

    boy jorg
    174 vues2 pages
    Le document décrit différents types de boucles en VBA comme les boucles While, Do While, For. Il montre comment ces boucles peuvent être utilisées pour répéter des instructions de manière à numéroter automatiquement plusieurs lignes dans Excel.

    Description originale:

    VBA

    Titre original

    Cours VBA _ Les Boucles

    Copyright

    © © All Rights Reserved

    Formats disponibles

    PDF, TXT ou lisez en ligne sur Scribd

    Avez-vous trouvé ce document utile ?

    Ce contenu est-il inapproprié ?

    Le document décrit différents types de boucles en VBA comme les boucles While, Do While, For. Il montre comment ces boucles peuvent être utilisées pour répéter des instructions de manière à numéroter automatiquement plusieurs lignes dans Excel.

    Droits d'auteur :

    © All Rights Reserved
    Téléchargez comme PDF, TXT ou lisez en ligne sur Scribd
    Télécharger au format pdf ou txt
    174 vues2 pages

    Cours VBA - Les Boucles

    Transféré par

    boy jorg
    Le document décrit différents types de boucles en VBA comme les boucles While, Do While, For. Il montre comment ces boucles peuvent être utilisées pour répéter des instructions de manière à numéroter automatiquement plusieurs lignes dans Excel.

    Droits d'auteur :

    © All Rights Reserved
    Téléchargez comme PDF, TXT ou lisez en ligne sur Scribd
    Télécharger au format pdf ou txt
    sur 2

    Cours VBA : les boucles http://www.excel-pratique.com/fr/vba/boucles.

    php

    Les boucles permettent de rpter des instructions un certain nombre de fois, ce qui peut tre un gain de
    temps considrable.

    Le code suivant numrote les cellules de la colonne A (de la ligne 1 12) :

    Sub boucle_while()

    Cells(1, 1) = 1
    Cells(2, 1) = 2
    Cells(3, 1) = 3
    Cells(4, 1) = 4
    Cells(5, 1) = 5
    Cells(6, 1) = 6
    Cells(7, 1) = 7
    Cells(8, 1) = 8
    Cells(9, 1) = 9
    Cells(10, 1) = 10
    Cells(11, 1) = 11
    Cells(12, 1) = 12

    End Sub

    Ce code est trs rptitif ...

    Maintenant, imaginez qu'il faille numroter plusieurs centaines de lignes ... Vous comprenez donc l'intrt de crer des boucles.

    Voici la boucle While :

    Sub boucle_while()

    While [condition]
    'Instructions
    Wend

    End Sub

    Tant que la condition est vraie, les instructions sont excutes en boucle (attention ne pas crer une boucle infinie).

    Voici la macro rptitive ci-dessus avec la boucle While :

    Sub boucle_while()

    Dim numero As Integer


    numero = 1 'Numro de dpart (correspond ici au n de ligne et au n de numrotation)

    While numero <= 12 'TANT QUE la variable numero est <= 12, la boucle est rpte
    Cells(numero, 1) = numero 'Numrotation
    numero = numero + 1 'Le numro est augment de 1 chaque boucle
    Wend

    End Sub

    Avec cette boucle, si nous voulons numroter 500 lignes, il suffit alors de remplacer 12 par 500 ...

    Cette boucle fonctionne de la mme manire que While Wend (tant que la condition est vraie, la boucle est excute) :

    Sub boucle_do_while()

    Do While [condition]
    'Instructions
    Loop

    End Sub

    1 of 2 16/10/2016 14:15
    Cours VBA : les boucles http://www.excel-pratique.com/fr/vba/boucles.php
    La condition peut galement tre place en fin de boucle Do Loop, ce qui implique que les instructions sont excutes au moins une fois :

    Sub boucle_do_while()

    Do
    'Instructions
    Loop While [condition]

    End Sub

    Plutt que de rpter la boucle tant que la condition est vraie, il est possible de quitter la boucle lorsque la condition est vraie en remplaant While par Until :

    Sub boucle_do_while()

    Do Until [condition]
    'Instructions
    Loop

    End Sub

    Sub boucle_for()

    For i = 1 To 5
    'Instructions
    Next

    End Sub

    La boucle For est rpte ici 5 fois.

    A chaque rptition de la boucle, la variable i est automatiquement augmente de 1 :

    Sub boucle_for()

    For i = 1 To 5
    MsgBox i
    Next

    End Sub

    Il est possible de quitter une boucle For prmaturment grce l'instruction suivante :

    Exit For 'Quitter une boucle For

    En voici un exemple :

    Sub boucle_for()
    Dim max_boucles As Integer
    max_boucles = Range("A1") 'En A1 : une limite de rptitions de la boucle est dfinie

    For i = 1 To 7 'Boucles prvues : 7


    If i > max_boucles Then 'Si A1 est vide ou contient un nombre < 7, diminution du nb de boucles
    Exit For 'Si condition vraie, on quitte la boucle For
    End If

    MsgBox i
    Next

    End Sub

    Les autres instructions Exit :

    Exit Do 'Quitter une boucle Do Loop

    Exit Sub 'Quitter une procdure

    Exit Function 'Quitter une fonction

    2 of 2 16/10/2016 14:15

    Vous aimerez peut-être aussi