Checkbox et caption

Version imprimable

04/11/2007, 20h12
chris151172

Checkbox et caption

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
04/11/2007, 20h30
jfontaine

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

http://www.developpez.net/forums/sho...d.php?t=436680
04/11/2007, 21h04
chris151172

je viens d'essayé mais je comprend pas et ca marche pas
04/11/2007, 21h19
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+
04/11/2007, 21h22
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
04/11/2007, 21h25
LeForestier

Pas s'énervé..
Dit moi dans quel cellules se trouvent les noms que tu veux donné aux CheckBox
04/11/2007, 21h28
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
04/11/2007, 21h39
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.
04/11/2007, 21h42
chris151172

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

Bon, en ajout de la fonction de jFontaine

Code:

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+

04/11/2007, 22h03
chris151172

desole mais ca ne fonctionne pas il laisse checkbox1,2....153
04/11/2007, 22h10
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 ??
05/11/2007, 13h04
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+
05/11/2007, 18h21
SilkyRoad

bonsoir

remplace

Code:

If TypeOf Cont Is MSForms.OptionButton Then

par

Code:

If TypeOf Cont Is MSForms.CheckBox Then

bonne soirée
michel
05/11/2007, 19h26
chris151172

parfait ca marche avec le changement que vous m avez donnez

merci a tous les deux