Discussion :

[chris151172]

bonsoir à tous
je suis novice en vba et je coince pour un userform ou j y ai mis 153 checkbox que je veux renommer chacun d entre eux par le contenu des 153 cellules d une feuille de calcule mais sans devoir appeler 153 X checkbox1,2...
quelqu un pourrait il me donner un code a mettre dans le "Private Sub UserForm_Initialize()"
d'avance je vous en remercie

[jfontaine]

Tu peux t'inspirer de la réponse de ce post

http://www.developpez.net/forums/sho...d.php?t=436680

[chris151172]

je viens d'essayé mais je comprend pas et ca marche pas

[LeForestier]

Bonsoir,
Je me permet d'intervenir parce qu'il semblerait que jFontaine n'est plus en ligne.
Le lien te montre comment parcourir tout tes contrôles checkbox
Tu doit adapté le caption aux cellules du nom que tu veux donné.
Si toujours pas compris tu dit
A+

[chris151172]

merci pour vos reponses si rapide mais je suis peut être un peu lourd mais moi pas comprendre pourrais tu me detailler cela un peu plus SVP merci

[LeForestier]

Pas s'énervé..
Dit moi dans quel cellules se trouvent les noms que tu veux donné aux CheckBox

[chris151172]

voici donc mes checkbox vont de checkbox1,2...153 et chaque cellules de j1,j2 ...153 ce que je voudrais c 'est que lorsque le userform s'ouvre que les checkbox reprennent le caption qui se trouve dans l'ordre de la cellule 1 a 153 bien sur 1 cellule pour un checkbox

[LeForestier]

OK c'est clair, il n'y a pas de cellule vide entre.
Répond à celà et je tacherait de t'aiguillé.
A+
PS patience.. je suis occupé sur plusieur postes.

[chris151172]

non aucune cellule vide et il n'y en aura jamais
merci pour ton aide

[LeForestier]

Bon, en ajout de la fonction de jFontaine

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
Private Sub UserForm_Initialize()
Dim Cont As Control
Dim i As Integer
i = 1
For Each Cont In Me.Controls
 
    If TypeOf Cont Is MSForms.OptionButton = True Then
        'La colonne 10 équivaut à J
        Cont.Object.Caption = Cells(10, i).Value
        i = i + 1
    End If
 
Next
 
End Sub

Essaye ca et tu dit..
A+

[chris151172]

desole mais ca ne fonctionne pas il laisse checkbox1,2....153

[chris151172]

normalement quand on met cell le premier chiffre entre parenthese represente les colonnes donc je dois mettre cells(10,i) et non cells( i , 10)
de plus je viens de remarquer que la valeur de i reste à 1 ??

[LeForestier]

Bonjour,
Désolé pour avoir coupé hier, problème ADSL.
C'est bien Cells(Row,Col) et non l'inverse
Que i n'incrémente pas c'est bizarre, tu à fait du pas à pas ? (F8) ?
A+

[SilkyRoad]

bonsoir


remplace

Code :

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

If TypeOf Cont Is MSForms.OptionButton Then

par

Code :

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

If TypeOf Cont Is MSForms.CheckBox Then

bonne soirée
michel

[chris151172]

parfait ca marche avec le changement que vous m avez donnez

merci a tous les deux