A voir également:
- Aide pour utiliser feuille excel sous vb
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Utiliser chromecast - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Si et excel - Guide
4 réponses
For a = 3 To 90
UserForm.ComboBox.AddItem Worksheet("NOM DE TA FEUILLE").Cells(a, 1).Value
Next a
ca devrai deja pas mal t avancer
UserForm.ComboBox.AddItem Worksheet("NOM DE TA FEUILLE").Cells(a, 1).Value
Next a
ca devrai deja pas mal t avancer
voila le code que j utilise mais a la ligne data=sheets("liste_solsr").range(1&i) il y a un message d'erreur qui dit indice en dehors de la plage.
Private Sub cmdSuivant_Click()
Formprob.Show
End Sub
Private Sub Form_Load()
Dim A As Integer
Dim data As String
Dim liste_solsr As Excel.Workbook
Set liste_solsr = Workbooks.Open("z:\liste_solsr")
For i = 3 To 400 Step 1
data = Sheets("liste_solsr").Range(1 & i)
If data = "" Then GoTo fin
Combo1.AddItem data
Next
fin:
Workbooks.Close
End Sub
Private Sub cmdSuivant_Click()
Formprob.Show
End Sub
Private Sub Form_Load()
Dim A As Integer
Dim data As String
Dim liste_solsr As Excel.Workbook
Set liste_solsr = Workbooks.Open("z:\liste_solsr")
For i = 3 To 400 Step 1
data = Sheets("liste_solsr").Range(1 & i)
If data = "" Then GoTo fin
Combo1.AddItem data
Next
fin:
Workbooks.Close
End Sub
Private Sub cmdSuivant_Click()
Formprob.Show
End Sub
Private Sub Form_Load()
Dim A As Integer
Dim data As String
Dim liste_solsr As Excel.Workbook
Set liste_solsr = Workbooks.Open("z:\liste_solsr")
For i = 3 To 400 Step 1
data = Sheets("liste_solsr").Range("A" , i).value ' c est comme ca qu il faut faire avec les range
If data = "" Then GoTo fin 'Ton if n est pas fermer....
Combo1.AddItem data
Next i 'c'est toujours mieux de preciser de quel boucle il sagi
fin:
Workbooks.Close
End Sub
Formprob.Show
End Sub
Private Sub Form_Load()
Dim A As Integer
Dim data As String
Dim liste_solsr As Excel.Workbook
Set liste_solsr = Workbooks.Open("z:\liste_solsr")
For i = 3 To 400 Step 1
data = Sheets("liste_solsr").Range("A" , i).value ' c est comme ca qu il faut faire avec les range
If data = "" Then GoTo fin 'Ton if n est pas fermer....
Combo1.AddItem data
Next i 'c'est toujours mieux de preciser de quel boucle il sagi
fin:
Workbooks.Close
End Sub
mais ce code dans une nouvelle macro pour ne plus avoir de relation avec l ancienne
For i = 3 To 400
if Sheets("liste_solsr").Range("A" , i).value <> "" then
Combo1.AddItem Sheets("liste_solsr").Range("A" , i).value
endif
Next i
essaye apres en remplacant les ".Range("A" , i).value" par des "cells(i,1).value" , ou encore les "Sheets" par des "worksheets" apres si ca ne fonctionne pas ... desoler je n ai plus d idee, peut etre demander a quelqu un de plus experimente que moi.
For i = 3 To 400
if Sheets("liste_solsr").Range("A" , i).value <> "" then
Combo1.AddItem Sheets("liste_solsr").Range("A" , i).value
endif
Next i
essaye apres en remplacant les ".Range("A" , i).value" par des "cells(i,1).value" , ou encore les "Sheets" par des "worksheets" apres si ca ne fonctionne pas ... desoler je n ai plus d idee, peut etre demander a quelqu un de plus experimente que moi.
16 juil. 2008 à 09:50
16 juil. 2008 à 09:53
Form.ComboBox.AddItem Worksheet("NOM DE TA FEUILLE").Cells(a, 1).Value
Next a
ui il faut que tu remplace par les noms de tes objets mais ca je te laisse faire.