Problème de compréhension

  • Initiateur de la discussion jpdestetienne!
  • Date de début
J

jpdestetienne!

Guest
Bonjour le forum,
Je vous écris car je débute en VBA, et m'éttant aidé d'un tutoriel de @+Thierry ( benit-soit-il! ) , j'ai du mal à comprendre ce que signifie ce code.
Quelqu'un, peut-il m'aider?
Merçi d'avance.
Cordialement, JP










Private Sub ListBox1_Click()
Initialise
Dim NBLigne As Integer
Public ColLet As String
Dim PlageFiltre As String
NBLigne = Sheets(2).Range(ColLet & "65536").End(xlUp).Row
PlageFiltre = Sheets(2).Range(ColLet & "2:" & ColLet & NBLigne).Address
ListBox2.RowSource = "DATABASE!" & PlageFiltre
End Sub
 
O

omicron

Guest
Bonsoir jp

Voilà ce que signifie le code que tu as présenté

=====================================================
Private Sub ListBox1_Click()

' La ligne suivante permet d'appeler la Procédure (ou macro) qui s'appelle Initialise. à moins qu'il s'agisse d'un commentaire dont on aurait oublié le '
Initialise

'Les trois lignes suivantes correpondent à la déclaration des 3 variables
Dim NBLigne As Integer
Public ColLet As String
Dim PlageFiltre As String

'Attention !!! je ne vois pas ou tu initialise la variable ColLet

' L'instruction suivante charge dans la variable Nbligne le nombre de lignes situées dans la feuille active entre première ligne de la feuille et la dernière ligne dont la cellule située dans la colonne identifiée par le lettre X (passée dans la variable ColLet) est non vide.
NBLigne = Sheets(2).Range(ColLet & "65536").End(xlUp).Row

'L'instruction suivante détermine la Plage de cellule située dans la feuille active dans la colonne identifiée par la lettre X (Passée dans la variable ColLet) de la ligne 2 à la ligne dont le numéro a été évalué dans NBLigne
PlageFiltre = Sheets(2).Range(ColLet & "2:" & ColLet & NBLigne).Address

'L'instruction suivante charge dans Listbox 1 la liste des valeurs située dans feuille intitulée "DATABASE" les cellules situées la Plage de cellules déterminées dans l'instruction précédente.

En d'autres termes si
- la feuille active est la feuille Feuil1
- la variable ColLet = B
- si dans la colonne B de la feuille Feuil1 la dernière cellule valorisée correspond à la ligne 10

Alors on charge dans ListBox1 9 lignes valorisées avec le contenue des 9 cellules de la plage B2:B10 de la feuille intitulée DATABASE

=====================================================

Je ne sais pas si j'ai été très clair ...

En te souhaitant bonne chance pour la suite.

Omicron.
 

Statistiques des forums

Discussions
313 099
Messages
2 095 239
Membres
106 234
dernier inscrit
JESS97354