Discussion :

[JPDU92]

Bonjour à tous,
voilà mon petit soucis, j'ai un userform dans un fichier sur réseau, sauf que moi j'ai excel 2003 (avec un controle calendrier dans vba) et les autres un excel 2000 sans ce controle calendrier. Donc dés qu'ils veulent ouvrir le fichier excel, il leur dit que les controles n'existent pas et excel efface les controles qu'il ne connait pas, comment pourrais éviter cela (car c'est pénible de remettre à chaque fois ces trucs...)

Sinon, comment puis je faire pour sauvegarder un changement de texbox que j'ai fait dans un userform avec une mise à jour par un textbox dans ce meme userform, car quand je le fais, il me l'affiche et dés que je le ferme, il revient comme avant ! Donc un peu pénible quand meme !

Merci d'avance ...

[fring]

Bonjour,

Concernant le problème Excel 2003/2000 je ne vois pas.
Pour le contenu de ton textbox, je passerais par une cellule, par exemple la cellule IV1 rarement (pour ne pas dire jamais) utilisée.

En supposant que tu passes par un bouton pour valider le contenu du TextBox1 vers le TextBox2 ça donnerait

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Sheets(1).Range("IV1") = Me.TextBox1.Value
Me.TextBox2.Value = Sheets(1).Range("IV1").Value
End Sub

Et à l'ouverture du UserForm

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Me.TextBox2.Value = Sheets(1).Range("IV1").Value
End Sub

[JPDU92]

Ok, mais bon, vu que j'utilise ce qui suit, et bien, ça ne marche pas dans ce que tu me dis...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub CommandButton13_click()
    For Each Controle In Me.Controls
        If TypeOf Controle Is Msforms.CheckBox Then
            If InStr(Controle.Name, "CheckBox") <> 0 Then
                If Controle Then
                    Controle.Caption = Me.Controls("TextBox13").Text
                End If
            End If
        End If
    Next
End Sub

[ouskel'n'or]

Pour le calendrier, il faudrait ajouter le Contrôle calendrier 10.0 (MSCAL.OCX) qui devrait se trouver dans c:\Program files\Microsoft Office\Office 10\ de la version 2003 d'Office, mais je ne suis pas certain que tu puisses l'utiliser hors d'un install depuis Office. A tester. J'ai eu fait ça sans install pour d'autres .ocx, certains ont fonctionné, d'autres non.
A tout hasard et à défaut d'une info vérifiée.

[JPDU92]

Ca marche ! Merci beaucoup...

Manque juste le petit probléme de l'userform...

[fring]

Ok, mais bon, vu que j'utilise ce qui suit, et bien, ça ne marche pas dans ce que tu me dis...

Si ça marche, faut juste un peu adapter

Code :

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

1
2
3
4
Private Sub CommandButton13_Click()
Sheets(1).Range("IV1") = Me.TextBox13.Value
Me.Controle.Caption = Sheets(1).Range("IV1").Value
End Sub

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Me.Controle.Caption = Sheets(1).Range("IV1").Value
End Sub

[JPDU92]

Ben non en fait, car je choisis en des nombreux controls à changer, donc j'en ai pas qu'un et je peux pas utiliser la feuille excel à ma guise...

[ouskel'n'or]

As-tu pensé à des zones de texte masquées ? (dans la feuille de calculs)

[JPDU92]

Oui mais ça voudrait dire que je dois mettre une centaine de formule car c'est le nombre d'optionbutton que j'ai, enfin bon, ça ne ferait qu'une centaine de plus à 4000 lignes, pas grand chose mais je me demandais si y avait pas plus simple... Ben si, en fait, modifier l'userform directement...

[fring]

Bon...je comprend plus rien, tu veux que la propriété Caption de tous tes CheckBox prennent la valeur du TextBox13 ? Donc ta centaine de CheckBox auront toutes la même valeur pour "Caption" ?

[JPDU92]

Non, à chaque fois que je sélectionne un optionbutton, et que je mets à jour, et bien elle prend la valeur et elle s'enregistre comme ça !

[ouskel'n'or]

Bon, je reprends ici

Sinon, comment puis je faire pour sauvegarder un changement de texbox que j'ai fait dans un userform avec une mise à jour par un textbox dans ce meme userform, car quand je le fais, il me l'affiche et dés que je le ferme, il revient comme avant ! Donc un peu pénible quand meme !

Peux-tu nous expliquer plus précisément ton pb car ici, il n'était pas question d'optionbutton.
Tu as des optionButtons... Où ça ?
Dans un userform à ce que j'ai compris, ok. Mais dans un cadre ? (frame ?) ou isolés les uns des autres ? Ont-ils une partie de nom commune ? S'excluent-ils les uns les autres ?
Que veux-tu récupérer ? Leur état au moment de la fermeture de l'usf ?
Bref, dis-nous tout
A+

[fring]

Salut ouske et merci, je me sens moins seul

Je suis largué là, dans le message n°1 on parle de TextBox, dans le n°3 de Caption des CheckBox et dans le n°9 de OptionButton...

[JPDU92]

Il est vrai que je me suis mal exprimé, et peut être employé les mauvais termes et un peu embrouillé, désolé !
En fait j'ai un userform avec une centaine de checkbox, et quand je veux en changer le caption, j'ai une zone de texte que je remplis et quand je valide, le caption du checkbox se change, jusque là tout va bien, sauf que lorsque je ferme l'userform, le checkbox revient comme avant le changement, donc, là, soucis...

[ouskel'n'or]

Donc, tu dois mémoriser la situation de chaque checkbox avant de quitter l'userform.
D'abord la méthode pour mémoriser "quelque part" ces positions.
Déjà, as-tu d'autres checkBox que les 100 que tu veux mémoriser ?
Sont-ils numérotés de 1 à 100 ? Ce qui nous arrangerait bien...
La méthode donc. Ici, j'ai utilisé un bouton pour placer les états de tes checkbox dans la cellule A1 de la feuille de calculs, on verra plus tard où placer ça.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim LeCheck as control, Etat as string
For Each LeCheck In Me.Controls
     If TypeName(LeCheck) = "CheckBox" Then
           Etat = Etat & "," & LeCheck
     End If
Next
Cells(1, 1) = Etat
End Sub

En sortant de là, Etat aura cette forme ",Vrai,Faux,Vrai,Faux,Faux,Vrai,Faux,Vrai,Vrai,Vrai,Vrai,Faux,Faux,Vrai,Faux,Vrai... etc" et tu retrouveras ça dans la cellule A1 de la feuille active.

Si tu n'as pas d'autre Checks dans ton Userform, pour en récupérer l'état, une simple boucle suffit dans Userform_Initialize.
On obtient un tableau des états de chaque Checkbox en faisant un Split sur Etat.
Comme Etat commence par une virgule, la lecture du tableau devra commencer à 1.
Donc, pour rétablir l'état d'origine de tes Check, tu utilises la boucle suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim Tablo As Variant, i As Integer, LeCheck As Control, Etat as string
Etat = Cells(1, 1)
Tablo = Split(Etat, ",")
i = 0
For Each LeCheck In Me.Controls
     If TypeName(LeCheck) = "CheckBox" Then
        i = i + 1
        LeCheck = Tablo(i) = "Vrai"
     End If
Next
End Sub

Ceci pour la méthode.
Maintenant, pour placer Etat entre fermeture et ré-ouverture, tu as l'embarras du choix. Une cellule perdue dans le fin fond de ta feuille de calculs ou une zone de texte masquée ou en dur sur la dernière ligne de code d'un module.
Teste ces codes dans un userform tout neuf où tu auras mis un vingtaine de Checkbox et un bouton CommandButton1
1 clic sur le bouton pour récupérer l'état
Tu fermes
Tu relances
Tu vois
A+