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+