Problème de compréhension

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
717
Réponses
2
Affichages
334
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
909
Réponses
10
Affichages
661
Réponses
3
Affichages
841
Retour