erreur d'execution 381 - Impossible de lire la propriété column

[Mbwar]

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

 

[tototiti2008]

Re : erreur d'execution 381 - Impossible de lire la propriété column

Bonjour Mbwar,

Bienvenue sur XLD,

Tu imagines bien qu'il est possible qu'il nous manque des informations pour te répondre
Peut-être que "ListGC_INC_DDE_Choisis_INC" et "ListBoxGarFP_Choisis_INC" n'ont pas autant de lignes ?

 

[Mbwar]

Re : erreur d'execution 381 - Impossible de lire la propriété column

Merci bcq tototiti2008 de ta réactivité.

le nombre de lignes sont lues à partir de la propriété (listcount) de la liste
ListGC_INC_DDE_Choisis_INC.ListCount - 1 dans la boucle for next

merci de revoir

 

[tototiti2008]

Re : erreur d'execution 381 - Impossible de lire la propriété column

Re,

Tu imagines bien qu'il est possible qu'il nous manque des informations pour te répondre

merci de revoir

c'est à dire de nous fournir un bout de fichier exemple

 

[Si...]

Re : erreur d'execution 381 - Impossible de lire la propriété column

salut Tous

Si... tu ne confonds pas .Column(Col,Li) et .List(Li,Col) se peut-être :

Public Sub GarantiesCommunesINC_DDE()
  'ws déjà définie
  For i = 0 To ListGC_INC_DDE_Choisis_INC.ListCount - 1
    ws.Cells(71 + i, 1) = ListBoxGarFP_Choisis_INC.List(i, 0)
    ws.Cells(71 + i, 2) = ListBoxGarFP_Choisis_INC.List(i, 1) '
  Next
End Sub

 

[Mbwar]

Re : erreur d'execution 381 - Impossible de lire la propriété column

merci de ta réponse.

toutefois, génére toujours erreur 381 impossible de lire la propriété list

je galère toujous !

 

[Mbwar]

Re : erreur d'execution 381 - Impossible de lire la propriété column

S'il vous plait mes amis j'attends toujours vos suggestions

 

[phlaurent55]

Re : erreur d'execution 381 - Impossible de lire la propriété column

Bonjour à tous

S'il vous plait mes amis j'attends toujours vos suggestions

.................. et Tototiti attends toujours le fichier

à+
Philippe

 

[Mbwar]

Re : erreur d'execution 381 - Impossible de lire la propriété column

problème car mon projet compte plusieurs userforms (10) et beaucoup de procédures qui se croisent
je ne sais pas comment les dissocier je vais essayer et je retourne vers vous incessament