Discussion :

[jfk15]

Bonsoir,
l'USF 10 à la fin du code ne veut pas s'afficher. Le débogage bloque sur .show
Qqun sait pourquoi?
Merci

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
Private Sub CommandButton1_Click()
Dim cel As Range
Dim commentaire As String
Dim a As Byte
 
a = UserForm11.TextBox1.Value
 
With ActiveSheet
For Each cel In Union(Range("c9:c13"), Range("c18:c22"), Range("c27:c30"), Range("c41:c43"), Range("c48:c51"), Range("c56:c60"), Range("c65:c66"), Range("c77:c85"), Range("c90:c92"))
If cel.Value = a Then commentaire = commentaire & "- " & Cells(cel.Row, 1) & vbNewLine
 
Next cel
End With
Load UserForm10
 
With UserForm10
.Label1.Caption = "Les compétences suivantes n'ont pas encore été évaluées pour " & ActiveSheet.Range("c1") & " :"
.TextBox1.MultiLine = True
.TextBox1.WordWrap = True
.TextBox1.Text = commentaire
.Show
End With
 
End Sub

[joe.levrai]

Bonjour,

c'est le Userform10 que tu show dans ton code

quel est le message d'erreur ?

en général, quand ça plante sur un .Show, ça provient de la procédure initialize du Userform (mais pas toujours !)
place un point d'arrêt sur la première ligne de ta procédure initialize, et regarde en pas à pas pour trouver la ligne qui pose problème

il faudra probablement nous montrer cette procédure également

[jfk15]

Bonjour Joe et merci pour ton aide car tu m'as appris à lire

En effet, il ne voulait pas afficher un usf non modal sur un usf modal.....

Mais bon cette erreur pourra servir à d'autres peut être

Merci joe pour cette apprentissage de la lecture des messages d'erreur.

Bonne soirée.