Parfois ok, parfois ko

[Spock]

Bonjour toutes et tous,

Drôle de truc qui m'arrive.
Programmé en Excel 97, depuis Excel 2000, il y a des ratés.
J'en ai déjà parlé, il y a longtemps. Mais pas encore trouvé ce qui se passe.

Donc :
USF1.Show fonctionne tout le temps.
USF2.Show fonctionne parfois.

Sur USF2, un ComBoBox de 2 colonnes et un CommandButton. C'est tout.

Voici tout ce qu'il y a comme macro dans 'USF2'.

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnWidths = 20
y = 2
For comp = 1 To 61
ComboBox1.AddItem y
y = y + 1
Next comp
x = 0
For Each c In Sheets('Red Flag Pier A').Range('a2:a62')
ComboBox1.List(x, 1) = c
x = x + 1
Next c
End Sub

Private Sub ComboBox1_Change()
ligne = ComboBox1
For Each c In Sheets('Red Flag Pier A').Range('a2:a62')
If ComboBox1.Column(1) = c Then
Sheets('Red Flag Pier A').Activate
Sheets('Graph Pont Pier A').Activate
ActiveChart.SeriesCollection.Add Source:=Sheets('Red Flag Pier A').Range('a' & ligne & ':AF' & ligne)
ActiveChart.SeriesCollection(1).XValues = Worksheets('Red Flag Pier A').Range('B1:AF1')


Exit Sub
End If
Next c
End Sub

Curieux ! Non ?

Une idée ?
Merci,

J'oubliais, Run time error, Type mismatch....

Message édité par: Spock, à: 08/06/2006 17:15

 

[Charly2]

Bonsoir Spock, bonsoir à toutes et à tous 🙂

Si tu lance tes USF depuis un CommanButton de la BO contrôles, vérifies que sa propriété TakeFocusOnClick est bien à False.

Ça m'a causé pas mal de souci sous XL97.

A+ 😉

 

[Spock]

Bonjour,

Je vais vérifier cela.

Mercii..