Discussion :

[sash6]

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!

[SilkyRoad]

bonjour

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


michel

[sash6]

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

Code :

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

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 :

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

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

[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+

[sash6]

Bonjour,

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

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?

[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 :

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

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

A+

[sash6]

ahaaaa! voilà ce que ça donne:

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
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 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?

[LeForestier]

C'est pas possible tant que tu ne ferme pas le UF, (Unload)
quitte à le rappeler pour une autre entrée.

Edit:

Code :

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

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 :

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

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.

[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 en tout cas si quelqu'un voit une solution... dans tous les cas muchas