Discussion :

[rossemma]

Bonjour,
Je suis débutant mais j'adore chercher.

Ce bout de code bloque, pq?
ai je mal écrit ?

il s'agit d'un test, voilà pourquoi a et b ne comprennent que deux valeurs.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub userform_initialize()
 
Dim a, b As Byte
 
For a = 2 To 3 'num de lignes
For b = 1 To 2 'num du label
 
Label(b) = TabAbsences.Range("A:" & a).Text
 
Next a
Next b
 
End Sub

[rossemma]

j'ai un peu modifié mais null

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub userform_initialize()
 
Dim a As Byte
 
For a = 1 To 2 'num de lignes
 
Me.Controls("label" & a).Value = Worksheets("TabAbsences").range("A:" & a).Text
 
Next a
 
End Sub

[Theze]

Bonjour,

comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub userform_initialize()
 
    Dim a, b As Byte
 
    For a = 2 To 3 'num de lignes
        For b = 1 To 2 'num du label
 
        Controls("Label" & b) = TabAbsences.Range("A" & a).Value
 
        Next b
    Next a
 
End Sub

Utiliser la propriété "Controls" et lui passer un String en argument !
Les deux points : servent à identifier une plage, si une seule cellule, ne pas mettre de double points
Attention aux références de contrôle de boucle, tu dois indique la boucle intérieur et ensuit la boucle extérieure !
Compares les deux codes et vois les différences

[rossemma]

il coince à Range. Il indique membre de méthode ou données introuvable

Bonjour,

comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub userform_initialize()
 
    Dim a, b As Byte
 
    For a = 2 To 3 'num de lignes
        For b = 1 To 2 'num du label
 
        Controls("Label" & b) = TabAbsences.Range("A" & a).Value
 
        Next b
    Next a
 
End Sub

Utiliser la propriété "Controls" et lui passer un String en argument !
Les deux points : servent à identifier une plage, si une seule cellule, ne pas mettre de double points
Attention aux références de contrôle de boucle, tu dois indique la boucle intérieur et ensuit la boucle extérieure !
Compares les deux codes et vois les différences

[rossemma]

comme ceci cela fonctionne mais il y a la même valeur dans les 2 labels alors que cela doit différent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub userform_initialize()
 
Dim a, b As Byte
 
For a = 2 To 3 'num de lignes
    For b = 1 To 2 'num du label
 
    Controls("Label" & b) = Worksheets("TabAbsences").range("A" & a).Value
 
    Next b
Next a
 
End Sub

[MarcelG]

Il est logique que les label 1 et 2 aient la même cation que la cellule A2
A mon avis, il y a erreur d'indice de boucle.
Une simple exécution du code en pas à pas te permettra d'y voir plus clair.
Tu peux également afficher la fenêtre des variables locales.

Une remarque.
Ici une seule variable est déclarée en Byte, l'autre l'est en Variant

[patricktoulon]

bonjour
je suis pas sur que tu es compris ce que font tes 2 boucles imbriquée ce dont je suis sur c'est que tu ne metrise pas tes object label et ses propriétés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub userform_initialize()
 
Dim a, b As long
 
For a = 2 To 3 'num de lignes 2 et 3
    For b = 1 To 2 'num du label label1 et label2
 'ici tes label1 et 2 vont changer de valeur 2 fois forcement d'abords .range("A2").Value puis .range("A3").Value pour autant que tu te sert de la bonne propriéte
'en l'occurence .caption 
    Controls("Label" & b) = Worksheets("TabAbsences").range("A" & a).Value
 
    Next b
Next a
 
End Sub

c'est tellement evident que au final on sait pas ce que tu veux faire
d'autant plus que c'est pas le label qui est egal mais sa caption
tu veux quoi exactement comme résultat?
label1.caption=A2
label2.caption=A3
c'est ca ?
si c'est ca pas besoins de 2 boucles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub userform_initialize()
 
Dim a, b As long
 
For a = 2 To 3 'num de lignes 2 et 3
       Controls("Label" & a-1) = Worksheets("TabAbsences").range("A" & a).Value
Next a
 
End Sub

[MarcelG]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label(b)

ne signifie rien.
Pour indicer les contrôles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to 2
 Controls("Label_"& i).Caption = "Toto"
Next i

iIci, les contrôles de type Label ont pour nom Label_1 et Label_2
Je conseille toujours de nommer les contrôles pour en faciliter la gestion comme ici, mais aussi l'utilisation de boucles.
Les noms d'une feuille de travail sont associés chacun au nom du contrôle correspondant.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to 2
 Worksheets("lawks").Range("Lavaleur_" & i).Value = Controls("Txt_" & i).Value
Next i