M
Mbwar
Guest
Bonjour tout le monde
Je viens pour la première fois poser une question sur ce forum
voilà mon bout de code est le suivant:
Public Sub GarantiesCommunesINC_DDE()
with ws
Dim x As Integer
Dim y As String
Dim z As String
For I = 0 To ListGC_INC_DDE_Choisis_INC.ListCount - 1
x = 71 + I
y = "A" & x
z = "B" & x
ws.Activate
.Range(y).Value = ListBoxGarFP_Choisis_INC.Column(0, I)
.Range(z).Value = ListBoxGarFP_Choisis_INC.Column(1, I)
Next
End With
End Sub
deux controles (listebox):
ListGC_INC_DDE_Choisis_INC
ListBoxGarFP_Choisis_INC
une erreur est généré par ce code au niveau de la ligne
.Range(y).Value = ListBoxGarFP_Choisis_INC.Column(0, I)
merci de voir oû se cache cette foutue erreur je suis bloqué
vos remarques sont la bienvenue
Je viens pour la première fois poser une question sur ce forum
voilà mon bout de code est le suivant:
Public Sub GarantiesCommunesINC_DDE()
with ws
Dim x As Integer
Dim y As String
Dim z As String
For I = 0 To ListGC_INC_DDE_Choisis_INC.ListCount - 1
x = 71 + I
y = "A" & x
z = "B" & x
ws.Activate
.Range(y).Value = ListBoxGarFP_Choisis_INC.Column(0, I)
.Range(z).Value = ListBoxGarFP_Choisis_INC.Column(1, I)
Next
End With
End Sub
deux controles (listebox):
ListGC_INC_DDE_Choisis_INC
ListBoxGarFP_Choisis_INC
une erreur est généré par ce code au niveau de la ligne
.Range(y).Value = ListBoxGarFP_Choisis_INC.Column(0, I)
merci de voir oû se cache cette foutue erreur je suis bloqué
vos remarques sont la bienvenue