With Sheets("Lists") toto = .Range("J2:J" & .Range("J500").End(xlUp).Row).Value msgbox ubound(toto) End With
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
122 internautes nous ont dit merci ce mois-ci
Private Sub UserForm_Initialize() With Sheets("Lists") ComboBoxProjet.List = .Range("J2:J" & .Range("J500").End(xlUp).Row).Value End With End Sub
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.