Bonjour à tous,
j'ai encore un problème de combobox...
j'enregistre les valeurs selectionnées dans les combo de mon userform du fichier A dans un autre fichier B
Ca marche jusqu'à ce que je ferme le classeur B...et là il me sort 'erreur d'execution 9'
Pouvez vous m'aider svp
Merci d'avance
Private Sub CommandButton2_Click()
Dim i As Integer
If Me.ComboA1.Value = '' Or _
Me.ComboA2.Value = '' Or _
i = 2
Do While Not IsEmpty(Workbooks('ClasseurB.xls').Sheets('F1').Cells(i, 1))
i = i + 1
Loop
With Workbooks('ClasseurB.xls').Sheets('F1')
.Cells(i, 1) = Me.ComboA1.Text
.Cells(i, 2) = Me.ComboA2.Text
End With
If i = 2 Then
i = 3
End If
Unload Saisie
Sheets('EB1').Select
Exit Sub
err1:
MsgBox 'reviens!', vbCritical
End Sub
Donc
j'ai encore un problème de combobox...
j'enregistre les valeurs selectionnées dans les combo de mon userform du fichier A dans un autre fichier B
Ca marche jusqu'à ce que je ferme le classeur B...et là il me sort 'erreur d'execution 9'
Pouvez vous m'aider svp
Merci d'avance
Private Sub CommandButton2_Click()
Dim i As Integer
If Me.ComboA1.Value = '' Or _
Me.ComboA2.Value = '' Or _
i = 2
Do While Not IsEmpty(Workbooks('ClasseurB.xls').Sheets('F1').Cells(i, 1))
i = i + 1
Loop
With Workbooks('ClasseurB.xls').Sheets('F1')
.Cells(i, 1) = Me.ComboA1.Text
.Cells(i, 2) = Me.ComboA2.Text
End With
If i = 2 Then
i = 3
End If
Unload Saisie
Sheets('EB1').Select
Exit Sub
err1:
MsgBox 'reviens!', vbCritical
End Sub
Donc