Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'apparti ent
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2", .Range("I2").En d(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2", .Range("J2").En d(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'apparti ent
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2", .Range("I2").En d(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2", .Range("J2").En d(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'apparti ent
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2", .Range("I2").En d(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2", .Range("J2").En d(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'appartient
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2", .Range("I2").End(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2", .Range("J2").End(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'appartient
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2", .Range("I2").End(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2", .Range("J2").End(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'appartient
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2", .Range("I2").End(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2", .Range("J2").End(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'appartient
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2",
.Range("I2").End(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2",
.Range("J2").End(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'appartient
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2",
.Range("I2").End(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2",
.Range("J2").End(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans tous tes procédures :
à chaque fois que tu désignes une cellule, si cette cellule n'appartient
pas à la feuille active, tu dois faire référence à la feuille à laquelle
cette cellule fait référence ...
Worksheets("NomDeLaFeuille").cells( ...) = Me.Combobox1.Value
Exemple :
'---------------------
Private Sub UserForm_Initialize()
With Worksheets("Materiel")
Me.ComboBox2.RowSource = .Name & "!" & .Range("I2",
.Range("I2").End(xlDown)).Address
Me.ComboBox2.ListIndex = 1
Me.ComboBox1.RowSource = .Name & "!" & .Range("J2",
.Range("J2").End(xlDown)).Address
End With
AEnregistrer = False
End Sub
'---------------------
Le principe est logique effectivement mais j'ai encore de la peine
Dans ces 2 procédures de ton module formulaire, la variable
dans ces 2 lignes de code :
Worksheets("Materiel").Cells(LigneSAP, 9) = Me.ComboBox1.Value
Et
Worksheets("Materiel").Cells(LigneSAP, 9) = Me.ComboBox2.Value
La variable LigneSap = 0 -> conclusion Cells(0,9) est impossible d'où
génération d'une erreur.
à toi de voir quelle est la valeur que la variable devrait avoir avant d'exécution
de la ligne de code dans chacune des procédures...
Une dernière observation, dans chacune des procédures, tu as un ligne de code ressemblant à ceci :
Me.ComboBox1 = Me.ComboBox1
Quelle est l'utilité d'une telle ligne de code ?
--------------------------------------------------------------------------- ---------------------
Dans ces 2 procédures de ton module formulaire, la variable
dans ces 2 lignes de code :
Worksheets("Materiel").Cells(LigneSAP, 9) = Me.ComboBox1.Value
Et
Worksheets("Materiel").Cells(LigneSAP, 9) = Me.ComboBox2.Value
La variable LigneSap = 0 -> conclusion Cells(0,9) est impossible d'où
génération d'une erreur.
à toi de voir quelle est la valeur que la variable devrait avoir avant d'exécution
de la ligne de code dans chacune des procédures...
Une dernière observation, dans chacune des procédures, tu as un ligne de code ressemblant à ceci :
Me.ComboBox1 = Me.ComboBox1
Quelle est l'utilité d'une telle ligne de code ?
--------------------------------------------------------------------------- ---------------------
Dans ces 2 procédures de ton module formulaire, la variable
dans ces 2 lignes de code :
Worksheets("Materiel").Cells(LigneSAP, 9) = Me.ComboBox1.Value
Et
Worksheets("Materiel").Cells(LigneSAP, 9) = Me.ComboBox2.Value
La variable LigneSap = 0 -> conclusion Cells(0,9) est impossible d'où
génération d'une erreur.
à toi de voir quelle est la valeur que la variable devrait avoir avant d'exécution
de la ligne de code dans chacune des procédures...
Une dernière observation, dans chacune des procédures, tu as un ligne de code ressemblant à ceci :
Me.ComboBox1 = Me.ComboBox1
Quelle est l'utilité d'une telle ligne de code ?
--------------------------------------------------------------------------- ---------------------