quelque petit problème en vba

dg62

XLDnaute Barbatruc

• 19 Juillet 2006

• #2

Re : quelque petit problème en vba

Bonjour Titange305


Private Sub UserForm_Activate()

finliste = Range("A5").End(xlDown).Address
liste.RowSource = "A5:" & finliste
liste.ListIndex = 0

End Sub

Procédure trouvé il y a longtemps dans un dicdacticiel. Je n'ai plus le nom de l'auteur.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Juillet 2006

• #3

Re : quelque petit problème en vba

Bonjour Titange, Didier, bonjour le forum,

Autre méthode que j'ai baptisé l'Hervé's Plan :

Code:

Private Sub UserForm_Initialize()
ListBox1.List = Range("A5:A" & Range("A65536").End(xlUp).Row).Value
End Sub

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2006

• #4

Re : quelque petit problème en vba

bonjour Titange,Dg,Robert
et la feuille,les enfants

Private Sub UserForm_Initialize()
dim liste as string'argument string pour rowsource
liste = sheets("MaFeuille").Range("A5:A" & range("A65536").End(xlUp).Row).Value
ListBox1.rowsource= "MaFeuille!" & liste
End Sub

Private Sub UserForm_Initialize()
dim liste as variant
liste = sheets("MaFeuille").Range("A5:A" & range("A65536").End(xlUp).Row).Value
ListBox1.list=liste
End Sub

à bientôt

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Juillet 2006

• #5

Re : quelque petit problème en vba

bonjour tout le monde

bebere, j'aurais meme dit plus :


Private Sub UserForm_Initialize()
dim liste as variant
liste = sheets("MaFeuille").Range("A5:A" & sheets("MaFeuille").range("A65536").End(xlUp).Row).Value
ListBox1.list=liste
End Sub

salut

 

Vote positif 0 Vote négatif

T

titange305

Guest

• 19 Juillet 2006

• #6

Re : quelque petit problème en vba

un grand merci j'avais essaie tout cela mais peut etre une erreur de syntaxe je vous en remercie

Mais je me demande toujours pourquoi quand il n'y a pas de donnée en A2 il indique ce qui se trouve en A1??

Merci

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2006

• #7

Re : quelque petit problème en vba

bonjour Hervé et à tous
il ya toujours plus dans 2 têtes que dans une(à méditer,lol)
à bientôt

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Juillet 2006

• #8

Re : quelque petit problème en vba

Bonjour le fil, bonjour le forum,

Titange, si la colonne A est vierge. peut importe d'où tu partes tu arriveras toujours en A1 avec Range("A65536").End(xlUp). Ce code signifie que l'on part de la dernière cellule de la colonne et que l'on s'arrête quand, en remontant, on rencontre une cellule éditée. C'est normal que si la colonne est vide on se retrouve en A1. Au clavier on obtient la même chose en appuyant sur la touche END + Flèche vers le haut ou END + flèche vers le bas.

 

Vote positif 0 Vote négatif

T

titange305

Guest

• 19 Juillet 2006

• #9

Re : quelque petit problème en vba

ok, mais comme c'est un code, et que je commence en A2 il devrais rien indiquer et pas aller chercher en A1 mais bon ton explication est logique.
Je vais essaye de trouver une solution

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Juillet 2006

• #10

Re : quelque petit problème en vba

Bonjour le fil, bonjour le forum,

Titange tu peux contourner avec :

If Range("A2")="" then
Range("A2").Select
Else
Range("A65536").End(xlUp).Offset(1,0).Select
End if

 

Vote positif 0 Vote négatif