Bonjour à tous
besoin d'aide ma combobox reste désespérément vide depuis mon classeur A j'aimerais alimenter cette dernière à chaque rentrée d'une donnée supplémentaire dans un classeur Source celui ci serait fermé voici un bout de code ainsi que les deux fichiers excel merci pour votre aide
Private Sub MiseAjour()
Chemin = ActiveWorkbook.Path
Set Source = GetObject(Chemin & "\Source.xls")
If ComboBox1.ListCount >= 1 Then
Dim ElementListe As Integer
Dim NbreElt As Integer
NbreElt = cboNom.ListCount - 1
For ElementListe = NbreElt To 0 Step -1
ComboBox1.RemoveItem (ElementListe)
Next ElementListe
End If
Dim compteur As Long
Dim AjoutAuteur As String
For compteur = 2 To Source.Sheets(1).Range("A1").End(xlDown).Row
AjoutAuteur = Source.Sheets(1).Range("A" & compteur).Value
On Error Resume Next
ComboBox1.AddItem (AjoutAuteur)
Next compteur
End Sub
besoin d'aide ma combobox reste désespérément vide depuis mon classeur A j'aimerais alimenter cette dernière à chaque rentrée d'une donnée supplémentaire dans un classeur Source celui ci serait fermé voici un bout de code ainsi que les deux fichiers excel merci pour votre aide
Private Sub MiseAjour()
Chemin = ActiveWorkbook.Path
Set Source = GetObject(Chemin & "\Source.xls")
If ComboBox1.ListCount >= 1 Then
Dim ElementListe As Integer
Dim NbreElt As Integer
NbreElt = cboNom.ListCount - 1
For ElementListe = NbreElt To 0 Step -1
ComboBox1.RemoveItem (ElementListe)
Next ElementListe
End If
Dim compteur As Long
Dim AjoutAuteur As String
For compteur = 2 To Source.Sheets(1).Range("A1").End(xlDown).Row
AjoutAuteur = Source.Sheets(1).Range("A" & compteur).Value
On Error Resume Next
ComboBox1.AddItem (AjoutAuteur)
Next compteur
End Sub