problème avec userform

Version imprimable

13/08/2007, 10h00
sash6

problème avec userform

Bonjour,

J'ai un petit souci avec une userform. En mode modal, mon code tourne très bien. Mais je souhaite que la page reste accessible, du coup lorsque je passe en mode non modal, l'userform ne se ferme plus, et pire le bouton "valider" que j'ai crée ne fonctionne plus!
13/08/2007, 17h13
SilkyRoad

bonjour

difficile de répondre sans voir ta procédure.

michel

euuh oui en effet. Donc, en ce qui concerne le code maître:

Code:

1
2
3
4
5
6
7
8
9
10
For lgcount = 10 To DerniereLigne
    If Trim(Cells(lgcount, 5).Value) <> "Valeur1" And Trim(Cells(lgcount, 5).Value) <> "Valeur2" And _
        Trim(Cells(lgcount, 5).Value) <> "Valeur3" And Trim(Cells(lgcount, 5).Value) <> "Valeur4" And _
        Trim(Cells(lgcount, 5).Value) <> "Valeur5" And Trim(Cells(lgcount, 5).Value) <> "Valeur6" And _
        Trim(Cells(lgcount, 5).Value) <> "Valeur7" Then
            ActiveSheet.Cells(lgcount, 5).Activate
            MsgBox (Cells(lgcount, 5) & " n'est pas un pôle reconnu! Veuillez en choisir un parmi la liste qui suivra.")
        UserForm1.Show
    End If
Next

et la userform:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub CommandButton1_Click()
 
If ComboBox1.Text <> "" Then
    ActiveCell.Value = ComboBox1.Value
    Unload Me
End If
 
End Sub
 
Public Sub UserForm_Initialize()
 
ComboBox1.AddItem "Valeur1"
ComboBox1.AddItem "Valeur2"
ComboBox1.AddItem "Valeur3"
ComboBox1.AddItem "Valeur4"
ComboBox1.AddItem "Valeur5"
ComboBox1.AddItem "Valeur6"
ComboBox1.AddItem "Valeur7"
 
End Sub

14/08/2007, 08h08
LeForestier

Bonjour,
1°) les procédures de l'UF doivent êtres en 'Private'
Avec cette modification l'UF s'efface normalement.
2°) Un UF ne peu être ouvert qu'en modal.

Suggestions...
Plutôt que de mettre un MsgBox et ensuite la sélection... supprimé le MsgBox ajouter un label dans UF et y entrer le message, de cette facon tout se fait en 1 seule opération. Et en plus, supprimer le bouton et mettre l'action dans le click du combo.

J'ai testé, ca fonctionne..
A+
14/08/2007, 09h31
sash6

Bonjour,

D'acc pour le "private"! En revanche:

Citation:

ajouter un label dans UF et y entrer le message

je dois avouer que les UF ne sont pas ma tasse de thé, je viens d'y faire face pour la première fois! C'est exactement ce que je voulais faire d'entrée, rassembler le message et l'UF mais faute de connaissances...Comment faire pour prendre en compte la valeur de ma celluleactive?
14/08/2007, 12h33
LeForestier
Pour mettre un label c'est pas bien compliqué, quand tu est dans l'éditeur VBA tu ouvre le UF, dés qu'il est ouvert tu peu y glisser les contrôles que tu veux, en l'occurence un label. (dans la boite outils c'est 'intitulé')
Tu le positionne sur la feuille comme tu veux.

Ensuite tu peu travailler avec les fonctions VBA
Ex:
Code:

1 2 3 4 Private Sub UserForm_Activate() 'Adresse à adapter bien sur. Me.Label1.Caption = Cells(1, 1).Value End Sub
A+

ahaaaa! voilà ce que ça donne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub ComboBox1_Change()
If ComboBox1.Text <> "" Then
        ActiveCell.Value = ComboBox1.Value
        Unload Me
    End If
End Sub
 
Private Sub UserForm_Activate()
 
Me.Label1.Caption = ActiveCell.Value & " n'est pas un pôle reconnu! Veuillez en choisir un parmi la liste suivante:"
 
End Sub
 
Private Sub UserForm_Initialize()
 
ComboBox1.AddItem "Valeur1"
ComboBox1.AddItem "Valeur2"
ComboBox1.AddItem "Valeur3"
ComboBox1.AddItem "Valeur4"
ComboBox1.AddItem "Valeur5"
ComboBox1.AddItem "Valeur6"
ComboBox1.AddItem "Valeur7"
 
End Sub

Ca c'est cool:lol: du coup j'ai supprimé la msgbox. Par contre, comment je peux faire pour que l'utilisateur puisse avoir l'accès sur la feuille en cours?

14/08/2007, 15h39
LeForestier
C'est pas possible tant que tu ne ferme pas le UF, (Unload)
quitte à le rappeler pour une autre entrée.

Edit:
Code:

1 2 3 4 5 6 Private Sub ComboBox1_Change() If ComboBox1.Text <> "" Then ActiveCell.Value = ComboBox1.Value Unload Me End If End Sub
Doit etre dans

Code:

Private Sub ComboBox1_Click

La condition n'est pas nécessaire, le texte ne peut JAMAIS être vide, si tu met le combo à interdiction de changer le texte (j'ai pas la propriété en tête mais tu peu aussi chercher un peu)
Et si ton code passe bien par le Unload, ta feuille Excel est disponnible.
14/08/2007, 17h03
sash6

et oui mais une fois que la combobox est enlevée, l'accès de l'utilisateur sur la feuille ne me sert à rien (ce que je te montre n'est qu'un bout de mon code). Mais même maintenant, une fois que la feuille est déchargée la feuille est dispo il y a pas de souci. Il me semblait que j'avais vu dans les tutos que l'UF pouvait rester ouverte et avoir accès à la feuille...Mais bon, c'est pas grave, je ferai avec c'est déjà pas mal :king: en tout cas si quelqu'un voit une solution... dans tous les cas muchas :merci: