Discussion :

[Grooz13]

Salut j'ai un calendrier, et j'aimerais changer la taille de plusieurs case, mais ça me dis pas de faire ça à la main alors je voulais faire un For (5 en fait)

Mes Calendier sont appeller Agenda1,Agenda2 bref vous comprener jusqua 42

Je Voudrais faire

Code :

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

1
2
3
For i=1 to 5
Agenda#.widht = XXXXX
Next

Qu'il fasse le tour de mes 5 agenda et qu'il change la taille, quelqun saurait comment faire ?

[ProgElecT]

Ta liste de contrôle Agenda, index là, pose un Agenda sur ton Form, mets lui la propriété Index = 0 puis fait un copier/coller du contrôle, 41 fois ou, quand tu en as déposé 10, tu refait un copier/coller des 10 .....
Il existe d'autres façons de faire sans indexer les contrôles, un For Each des contrôles Agenda du Form, en ne retenant que les contrôles Name commençant par Agenda.

Pour ma part, le contrôle indexé me semble largement plus pratique.

[Grooz13]

Merci beaucoup

[ProgElecT]

Exemple pour des contrôles non indexés

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim SeControle As Control
For Each SeControle In Me.Controls
 If InStr(SeControle.Name, "Command") Then SeControle.Caption = "trouvé"
 'ou bien
 If TypeName(SeControle) = "CommandButton" Then SeControle.Caption = "trouvé"
Next
End Sub

[Grooz13]

Donc je pourrais faire

Code :

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

1
2
3
4
5
6
For Each SeControle In Me.Controls
 If InStr(SeControle.Name, "Command") Then SeControle.Caption = "trouvé"
end if
If SeControle.Caption ="trouvé" then
SeControle.Width = 3
End IF

???

*Edit* J'ai tenté quelques trucs, mais sans succès, j'aimerais bien pouvoir juste glisser pour aggrendire mes cases (J'suis en access) mais ça débalance tout le reste alors c'est pour ça que je cherche cette solution.

SeControle ne reconnait pas le width il y a grid width mais je crois pas que c'est ce que je cherche

[Delbeke]

Si tu es en Access, çà veux dire que tu n'es pas dans le bon forum et que nous sommes en quiproco.
Il y a un forum spécialisé pour VBA Access.