à quoi sert le boolean ici ?

120Watts Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
Bonjour,
voici une super macro générique fait par Frenchie83, que je remercie au passage. Une question de compréhension pour qu'on puisse progresser, quel rôle joue le boolean "NomTraite" dans la Macro et comment le lien s'opère-t-il entre "Nom" et "NomTraite" à la 8è ligne de code après les déclarations des variables. Merci d'avance pour les explications !
Le message de base date du 6 mai 2019 - Copie valeur cellule si condition remplie

Sub Restit()
    Dim DerLig As Long, DerCol As Long, Lig As Long, Col As Long
    Dim NomTraite As Boolean
    Dim l As Long, c As Long
    
    Application.ScreenUpdating = False
    DerLig = [A1000].End(xlUp).Row
    DerCol = [A1].End(xlToRight).Column
    Lig = 13 'ligne de départ du tableau de la collecte
    Col = 5 'Colonne de départ du tableau de la collecte
    For c = 2 To DerCol
        Nom = Cells(1, c)
        NomTraite = False
        For l = 2 To DerLig
            If Cells(l, c) = "x" Then
                If NomTraite = False Then Cells(Lig, Col) = Nom
                Cells(Lig, Col + 1) = Cells(l, "A")
                NomTraite = True
                Lig = Lig + 1
            End If
        Next l
    Next c


Configuration: Windows / Firefox 78.0

3 réponses

Utilisateur anonyme
 
Bonjour
Dim NomTraite As Boolean sert à définir la "variable" NomTraite qui sera que Vrai ou Faux.
On change cette valeur en ligne 13 ou 18 en fonction de l'action réalisée
Et si NomTraite est à Faux en ligne 16, on effectue le Then de la ligne 16
A+
___________
Si la réponse vous a aidé, un petit clic sur le pouce vers le haut, c'est top... Résolu c'est parfait.
Que celui qui n'a jamais ouvert un manuel utilisateur me jette la 1ère souris ;-)
1
120Watts Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour Merci pour les renseignements. Je vais jouer avec les True et False dans la macro pour voir concrètement comment se fait la bascule.
0
Utilisateur anonyme
 
Bonjour
Ce qui signifie que votre soucis est résolu ?
Si c'est le cas, n'oubliez pas de le faire, les 3 ... dans votre 1er post.
A+
0