Hades60250
XLDnaute Nouveau
Bonjour à toutes & tous!
Nouveau sur le forum je me permet déjà de vous demander de l'aide concernant une base de données que je suis en train (d'essayer) de dévellopper.
Voilà le décor: j'ai créé une base de données contenant des coordonnées d'entreprises. Dans ce fichier, j'ai un UserForm dans lequel j'ai mis une ListBox. Le Rowsource du ListBox est renseigné dans l'outil propriété.
Je souhaite en fait que l'utilisateur puisse sélectionner plusieurs entreprises dans ce ListBox et au moment ou il appuie sur le bouton "Soumission", que les données soient collées dans un autre classeur.
"Liste" est la feuille dans laquelle je pompe les données
"Comparatif chantier .xls" est le fichier de destination
Voilà le code:
Private Sub UserForm12_Initialize()
Me.ListBox1.List = Sheets("Liste").Value
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub Soumission_Click()
'Déclaration des variables utilisées
Dim i As Byte
Dim ligne As Long
ligne = 1
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Excel.Workbooks("Comparatif chantier .xls").Sheets("Liste des ets").Cells(ligne, 1) = Me.ListBox1.List(i)
Excel.Workbooks("Comparatif chantier .xls").Sheets("rListe des ets").Cells(ligne, 2) = Me.ListBox1.List(i, 1)
ligne = ligne + 1
End If
Next i
End Sub
Et naturellement...... ça marche pô! ça plante sur la ligne For i (message d'erreur = dépassement de capacité).
Est ce qu'une ou plusieurs âmes charitables pourraient apporter de l'eau à mon moulin???
Petite précision: je suis vraiment très novice en VBA, je navigue à taton sur ce fichier depuis 3 mois...
Merci par avance!
Nouveau sur le forum je me permet déjà de vous demander de l'aide concernant une base de données que je suis en train (d'essayer) de dévellopper.
Voilà le décor: j'ai créé une base de données contenant des coordonnées d'entreprises. Dans ce fichier, j'ai un UserForm dans lequel j'ai mis une ListBox. Le Rowsource du ListBox est renseigné dans l'outil propriété.
Je souhaite en fait que l'utilisateur puisse sélectionner plusieurs entreprises dans ce ListBox et au moment ou il appuie sur le bouton "Soumission", que les données soient collées dans un autre classeur.
"Liste" est la feuille dans laquelle je pompe les données
"Comparatif chantier .xls" est le fichier de destination
Voilà le code:
Private Sub UserForm12_Initialize()
Me.ListBox1.List = Sheets("Liste").Value
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub Soumission_Click()
'Déclaration des variables utilisées
Dim i As Byte
Dim ligne As Long
ligne = 1
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Excel.Workbooks("Comparatif chantier .xls").Sheets("Liste des ets").Cells(ligne, 1) = Me.ListBox1.List(i)
Excel.Workbooks("Comparatif chantier .xls").Sheets("rListe des ets").Cells(ligne, 2) = Me.ListBox1.List(i, 1)
ligne = ligne + 1
End If
Next i
End Sub
Et naturellement...... ça marche pô! ça plante sur la ligne For i (message d'erreur = dépassement de capacité).
Est ce qu'une ou plusieurs âmes charitables pourraient apporter de l'eau à mon moulin???
Petite précision: je suis vraiment très novice en VBA, je navigue à taton sur ce fichier depuis 3 mois...
Merci par avance!