Compréhension erreur code

Version imprimable

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:

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

j'ai un peu modifié mais null

Code:

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

Bonjour,

comme ceci :
Code:

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

08/03/2019, 15h16
MarcelG
Salut

Code:

Label(b)

ne signifie rien.
Pour indicer les contrôles
Code:

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:

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

il coince à Range. Il indique membre de méthode ou données introuvable
Citation:
Envoyé par Theze
Bonjour,

comme ceci :
Code:

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

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

Code:

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

08/03/2019, 15h43
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

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:

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:

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

Bonsoir

Un contrôle Label n’a qu’un contenu donc sans aucune boucle

Code:

1
2
3
4
Private Sub Userform_initialize()
   Label1 = Worksheets("TabAbsences").Cells(2, 1)
   Label2 = Worksheets("TabAbsences").Cells(3, 1)
End Sub

Une boucle serait utile avec 36 étiquettes :

Code:

1
2
3
4
5
6
Private Sub Userform_initialize()
  Dim n As Byte
  For n = 1 To 36
    Me("Label" & n) = Worksheets("TabAbsences").Cells(n + 1, 1)
  Next
End Sub

Merci

j'avais testé ce code dans un autre module mais il ne fonctionnait pas.
Suis bête j'avais mis le -1 à l'extérieur des parenthèses
Citation:
Envoyé par 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:

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:

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