à quoi sert le boolean ici ?
120Watts
Messages postés
12
Statut
Membre
-
Utilisateur anonyme -
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
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
-
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 ;-) -
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.
-
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+
