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