Discussion :

[UDSP50]

Bonjour,

J'ai un problème d'écriture.
Voilà j'ai une feuille "feuil1" et un userform "form1"

Mes utilisateur afin de préserver mes classseurs n'ont
Accès qu'au user form

J'aimerais que les données ( environ 250 cellules )s'affichent dans les
250 labels que j'ai mis sur les userform

Mon code est lourd du style

Code :

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

1
2
3
4
5
6
 
 
Privatsub_form_open()
 
Form1.label1.caption = feuil1.range("A1").value
Idem pour la cellule 2 etc etc

Comment puis je écrire sachant que mes cellules vont de A1 à J25
Mes labels de 1 à 250
Et le remplissage doit se faire horizontalement genre
A1 pour label 1 B1 pour label2 J1 pour label10
A2 pour label 11 etc

Merci de votre précieuse aide

[Jean-Philippe André]

hello,

une double boucle :
- i pour les colonnes
- j pour les lignes

optionnellement, tu passes par un compteur pour identifier le label

le label etant un control, tu peux passer par la famille Controls() de ton formulaire

je te laisse chercher avec ces pistes

[UDSP50]

Whaou ça arrache ça donne envi de savoir le faire mais je pense que je vais me ronger plus d'un ongle dessus mais je vais essayer

Merci en tout cas

[pijaku]

Bonjour,
Deux choix, soit :
En bouclant sur chaque cellule de la plage :

Code :

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

1
2
3
4
5
6
7
Dim RngCel As Range
Dim IntI As Integer
 
For Each RngCel In Range("A1:J10")
    IntI = IntI + 1
    Forms1.Controls("Label" & IntI).Caption = RngCel.Value
Next

Ou en utilisant une variable tableau :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Valeurs()
Dim IntLig As Integer, IntCol As Integer, Cpt As Integer
Valeurs = Application.Transpose(Range("A1:J10").Value)
For IntCol = 1 To 10
    For IntLig = 1 To 10
        Cpt = Cpt + 1
        Forms1.Controls("Label" & Cpt).Caption = Valeurs(IntCol, IntLig)
    Next IntLig
Next IntCol

remarque : La solution avec variable tableau n'est donnée qu'à titre d'exemple est ne doit être utilisée que pour un grand nombre de valeurs...

EDIT : bonjour à tous, désolé je n'ai pas vu les réponses précédentes...
Bonne journée

[UDSP50]

Merci pijaku
ton code marche super ==> celui-ci

Code :

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

1
2
Dim RngCel As RangeDim IntI As Integer For Each RngCel In Range("A1:J10")    IntI = IntI + 1    Forms1.Controls("Label" & IntI).Caption = RngCel.ValueNext

par contre dis moi j'ai essayé de le bidouiller mais sans succes
j'aimerais maintenant

exporter de mon forms1 label 1 a 10
vers la feuil1 range a1:a10

peux tu maider

en gros c'est la meme chose mais du userform vers le classeur

merci d'avance

[pijaku]

Alors plutôt que de te le faire et que tu recopies sans comprendre, je vais commenter mon code initial pour que :
1- tu le comprennes et l'assimiles,
2- tu puisses l'adapter à d'autres situations.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'Déclaration des variables
    'RngCel est déclaré comme un objet Range
Dim RngCel As Range
    'IntI comme un nombre Entier
Dim IntI As Integer
 
'Pour chaque objet de type Range dans la plage de A1 à J10
    'la boucle va boucler sur toutes les cellules, de A1 à J1 puis de A2 à J2
    'puis de A3 à J3 etc... Jusqu'à J10
    'on peux aisément adapter la plage de cellules non?
For Each RngCel In Range("A1:J10")
    'IntI nous permet d'incrémenter le n° du label
        '1er passage de boucle IntI = 0 , IntI = IntI + 1 donc IntI = 1
        '2ème passage : IntI = IntI + 1 donc IntI = 2 etc...
    IntI = IntI + 1
    'on inscrit, dans le caption du label, le contenu de la cellule
    'pour réaliser l'inverse, inverser les deux membres de cette égalité :
    'A=B ==> B=A
    Forms1.Controls("Label" & IntI).Caption = RngCel.Value
Next

[UDSP50]

pijaku

super tes explications merci beaucoup
en fait je pensais qu'il falait declarer les labels de la meme facon que les range
mais grace a tes explications j'ai compri et reussi

merci beaucoup

A+