Bonjour
dans les proprietes de mon combobox je ne trouve pas rowsource
j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options
mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission
Sheets("EmploiSemaine").Select
'"""""""""""""""""""""""""""
Dim Varliste As Integer
Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1
'declaration du tableau
Dim MyArray As Variant
MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau
CboMissions.ColumnCount = 2
'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value
'charge dans la colonne 2 du tableau
MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo
CboMissions.List() = MyArray
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
S'agit-il d'un combo dans un formulaire? Si le combo est dans la feuille de calcul (BO boite outils contrôles et non pas la BO Formulaires), la propriété équivalente à Rowsource s'appelleListFillRange
JB
Bonjour dans les proprietes de mon combobox je ne trouve pas rowsource j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission Sheets("EmploiSemaine").Select '""""""""""""""""""""""""""" Dim Varliste As Integer Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1 'declaration du tableau Dim MyArray As Variant MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau CboMissions.ColumnCount = 2 'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value 'charge dans la colonne 2 du tableau MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo CboMissions.List() = MyArray
merci encore
S'agit-il d'un combo dans un formulaire?
Si le combo est dans la feuille de calcul (BO boite outils contrôles
et non pas la BO Formulaires), la propriété équivalente à Rowsource
s'appelleListFillRange
JB
Bonjour
dans les proprietes de mon combobox je ne trouve pas rowsource
j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options
mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission
Sheets("EmploiSemaine").Select
'"""""""""""""""""""""""""""
Dim Varliste As Integer
Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1
'declaration du tableau
Dim MyArray As Variant
MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau
CboMissions.ColumnCount = 2
'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value
'charge dans la colonne 2 du tableau
MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo
CboMissions.List() = MyArray
S'agit-il d'un combo dans un formulaire? Si le combo est dans la feuille de calcul (BO boite outils contrôles et non pas la BO Formulaires), la propriété équivalente à Rowsource s'appelleListFillRange
JB
Bonjour dans les proprietes de mon combobox je ne trouve pas rowsource j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission Sheets("EmploiSemaine").Select '""""""""""""""""""""""""""" Dim Varliste As Integer Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1 'declaration du tableau Dim MyArray As Variant MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau CboMissions.ColumnCount = 2 'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value 'charge dans la colonne 2 du tableau MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo CboMissions.List() = MyArray
merci encore
gérard
Bonjour
merci JB cest tellement plus simple comme ca et merci pour ces renseignements adapté a mon niveau de maniere simple merci encore "JB" a écrit dans le message de news:
S'agit-il d'un combo dans un formulaire? Si le combo est dans la feuille de calcul (BO boite outils contrôles et non pas la BO Formulaires), la propriété équivalente à Rowsource s'appelleListFillRange
JB
Bonjour dans les proprietes de mon combobox je ne trouve pas rowsource j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission Sheets("EmploiSemaine").Select '""""""""""""""""""""""""""" Dim Varliste As Integer Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1 'declaration du tableau Dim MyArray As Variant MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau CboMissions.ColumnCount = 2 'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value 'charge dans la colonne 2 du tableau MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo CboMissions.List() = MyArray
merci encore
Bonjour
merci JB
cest tellement plus simple comme ca
et merci pour ces renseignements adapté a mon niveau de maniere simple
merci encore
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1155480853.757134.210460@75g2000cwc.googlegroups.com...
S'agit-il d'un combo dans un formulaire?
Si le combo est dans la feuille de calcul (BO boite outils contrôles
et non pas la BO Formulaires), la propriété équivalente à Rowsource
s'appelleListFillRange
JB
Bonjour
dans les proprietes de mon combobox je ne trouve pas rowsource
j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options
mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission
Sheets("EmploiSemaine").Select
'"""""""""""""""""""""""""""
Dim Varliste As Integer
Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1
'declaration du tableau
Dim MyArray As Variant
MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau
CboMissions.ColumnCount = 2
'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value
'charge dans la colonne 2 du tableau
MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo
CboMissions.List() = MyArray
merci JB cest tellement plus simple comme ca et merci pour ces renseignements adapté a mon niveau de maniere simple merci encore "JB" a écrit dans le message de news:
S'agit-il d'un combo dans un formulaire? Si le combo est dans la feuille de calcul (BO boite outils contrôles et non pas la BO Formulaires), la propriété équivalente à Rowsource s'appelleListFillRange
JB
Bonjour dans les proprietes de mon combobox je ne trouve pas rowsource j'essai de le renseigner en VBA, mais c'est sans cesse en erreur
j'ai donc opte pour un tableau, cela m'apprend d'autre options mais ca coince aussi pouvez vous me corriger
merci pour votre aide
'rempli le combo mission Sheets("EmploiSemaine").Select '""""""""""""""""""""""""""" Dim Varliste As Integer Varliste = Val(Sheets("TypesMission").Range("A65536").End(xlUp).Row) - 1 'declaration du tableau Dim MyArray As Variant MyArray = Array(Varliste, 2)
'Combo a 2 colonnes a l'aide d'un tableau CboMissions.ColumnCount = 2 'charge les valeurs dans le tableau
For i = 1 To Varliste
' 'charge dans la colonne 1 du tableau
MyArray(i, 0) = Sheets("TypesMission").Range("A" & i + 1).Value 'charge dans la colonne 2 du tableau MyArray(i, 1) = Sheets("TypesMission").Range("B" & i + 1).Value
Next i
'charge les valeur dans le combo CboMissions.List() = MyArray
