Alimenter un ListBox avec des données sur une ligne

Spitnolan08

XLDnaute Barbatruc

• 6 Octobre 2007

• #16

Re : Alimenter un ListBox avec des données sur une ligne

Re,

Oui, et pourtant xlToLeft me renvoie la valeur :-4159.... Et à toi ?
Pas glop!

Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2007

• #17

Re : Alimenter un ListBox avec des données sur une ligne

Bonjour Spitnolan, Stapple

je prends le fil en cours, pas tout lu, suis peut être à coté, mais si vous cherchez les equivalences des constantes "xlcelltype", voir tableau ci dessous issu de l'aide vba :

Constante Valeur
xlCellTypeAllFormatConditions -4172
xlCellTypeAllValidation -4174
xlCellTypeBlanks 4
xlCellTypeComments -4144
xlCellTypeConstants 2
xlCellTypeFormulas -4123
xlCellTypeLastCell 11
xlCellTypeSameFormatConditions -4173
xlCellTypeSameValidation -4175
xlCellTypeVisible 12

Cliquez pour agrandir...

bon week end
@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #18

Re : Alimenter un ListBox avec des données sur une ligne

Bonjour à tous, Pierrot93


->Spitnolan08

pourtant xlToLeft me renvoie la valeur :-4159

Cliquez pour agrandir...

Aurais-tu le bon de code adéquat pour renvoyer cela dans un msgbox, stp?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2007

• #19

Re : Alimenter un ListBox avec des données sur une ligne

Re

je ne suis pas du tout sur que tu puisses renvoyer dans une variable ces types de constantes...

Elles correspondraient à quoi d'ailleurs, puisque utilisées dans des instructions...

Ci dessous liste des constantes "xldirection"

Constante Valeur
xlDown -4121
xlToLeft -4159
xlToRight -4161
xlUp -4162

Cliquez pour agrandir...

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #20

Re : Alimenter un ListBox avec des données sur une ligne

Re

->Pierrot93:

Ce que je veux dire : c'est comment faire pour avoir la valeur de la constante

Dans la fenetre d'exécution?

Comment Spinolan08 sait-il que xlToLeft lui renvoie la valeur :-4159?

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 6 Octobre 2007

• #21

Re : Alimenter un ListBox avec des données sur une ligne

Re,
Salut Pierrot,

Comment Spinolan08 sait-il que xlToLeft lui renvoie la valeur :-4159?

Cliquez pour agrandir...

En fait je le fais à la vieille méthode : J'arrête l'exécution de la macro sur la ligne de l'instruction recherchée et en passant la souris sur la constante, il s'affiche en commentaire sa valeur... Fastidieux mais bon...

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #22

Re : Alimenter un ListBox avec des données sur une ligne

Re

Merci Spitnolan08 pour ta réponse
(j'étais pas loin)


Comme on ne sait toujours pas pourquoi la syntaxe que j'ai utilisé fonctionne
alors qu'elle ne devrait pas, je repose la question aux autres forumeurs.

Qui aura l'explication ?

Code:

Private Sub UserForm_Initialize()
ListBox1.List = Application.Transpose(Rows(1).Cells.SpecialCells(7).Offset(, -1).Value)
[B]'Cells.SpecialCells(7) fonctionne[/B]
End Sub

Code:

Private Sub UserForm_Initialize()
Dim R as Range
Set R=Sheets("Feuil1").Range([A1], [IV1].End(1))
[B]'End(1))[/B] fonctionne
ListBox1.List = Application.Transpose(R)
End Sub

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 6 Octobre 2007

• #23

Re : Alimenter un ListBox avec des données sur une ligne

Salut Stapple & MsgBox " et aux autres",

Code:

Dim li1&, li2&, li3&, li4&

Sub dis_nous()

li1 = Range("A1").End(xlDown).Row
MsgBox "xlDown " & xlDown
li2 = Range("A1").End(xlUp).Row
MsgBox "xlUp " & xlUp
li3 = Range("A1").End(xlToLeft).Row
MsgBox "xlToLeft " & xlToLeft
li4 = Range("A1").End(xlToRight).Row
MsgBox "xlToRight" & xlToRight

End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #24

Re : Alimenter un ListBox avec des données sur une ligne

Merci Excel_lent (et bonjour)

En testant avec ton code

Code:

Sub dis_nous()
li1 = Range("B2").End(4).Address
MsgBox "xlDown " & xlDown & Chr(13) & li1
li2 = Range("B2").End(3).Address
MsgBox "xlUp " & xlUp & Chr(13) & li2
li3 = Range("b2").End(1).Address
MsgBox "xlToLeft " & xlToLeft & Chr(13) & li3
li4 = Range("b2").End(2).Address
MsgBox "xlToRight" & xlToRight & Chr(13) & li4
End Sub

Cela fonctionne

mais ca ne devrait pas non?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2007

• #25

Re : Alimenter un ListBox avec des données sur une ligne

Re à tous, Bonjour Excel Lent

a priori on peut utiliser soit le nom, soit la valeur ou soit l'index d'une constante, mais attention cela peut poser problème si l'on a 2 constantes differentes, l'une en index 3 et une autre dont la valeur est 3...

Cela n'engage que moi, je n'ai rien trouvé dans l'aide à ce sujet confirmant ce propos. Perso j'utilise généralement les noms des constantes.

bon après midi
@+

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 6 Octobre 2007

• #26

Re : Alimenter un ListBox avec des données sur une ligne

Re tous,

Comme Pierrot, j'utilises toujours le nom des constantes VBA en clair : Ce n'est pas beaucoup plus long à écrire et c'est beaucoup plus compréhensible.
Le VBA n'est pas une course de vitesse d'écriture, mais une question d'organisation et de clareté pour pouvoir retrouver ses petits lors de nécessaires mises à jour ultérieures... Et déjà que ce n'est pas toujours facile de tout bien ordonner pour s'y retrouver, alors s'il faut en plus passer du temps à identifier les constantes saisies en abrégé...😱

Cordialement

 

Vote positif 0 Vote négatif