blord
XLDnaute Impliqué
Bonjour à tous,
J'aimerais, avec ce code, charger un listbox avec les données contenues dans les cellules AL à EG d'une ligne variable. La ligne est identifiée suite à une recherche d'une clé unique dans la colonne A. Lorsque la clé unique est trouvée, la cellule est sélectionnée d'où mon intention d'utiliser Activecell.Offset dans mon range mais rien ne s'affiche dans le listbox.
Dim Plage As Range
Dim Tab1() As String
With Sheets("Agents")
Set Plage = Range(.ActiveCell.Offset(0, 37), .ActiveCell.Offset(0, 136))
End With
ReDim Tab1(1 To Plage.Count)
For Each Cell In Plage
i = i + 1
Tab1(i) = Cell
Next
ListBoxSkillsets.List = Tab1
Je joint attaché une partie du fichier....
Merci à tous pour vos précieux commentaires !
Blord
J'aimerais, avec ce code, charger un listbox avec les données contenues dans les cellules AL à EG d'une ligne variable. La ligne est identifiée suite à une recherche d'une clé unique dans la colonne A. Lorsque la clé unique est trouvée, la cellule est sélectionnée d'où mon intention d'utiliser Activecell.Offset dans mon range mais rien ne s'affiche dans le listbox.
Dim Plage As Range
Dim Tab1() As String
With Sheets("Agents")
Set Plage = Range(.ActiveCell.Offset(0, 37), .ActiveCell.Offset(0, 136))
End With
ReDim Tab1(1 To Plage.Count)
For Each Cell In Plage
i = i + 1
Tab1(i) = Cell
Next
ListBoxSkillsets.List = Tab1
Je joint attaché une partie du fichier....
Merci à tous pour vos précieux commentaires !
Blord