Discussion :

[mavean]

Bonjour

J'apprend le VBA et j'essai de comprendre les lignes de code.
qui peut m'expliquer les 4 lignes ci dessous

je comprend que plage et plage_a ainsi que c sont des variables
sheets("Feuil1") que cela ce passe sur la feuille1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set plage = Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
Set plage_a = Sheets("Feuil1").Range("A2:b" & Sheets("Feuil1").Range("B65536").End(xlUp).Row)
 
NbCol = plage.Columns.Count
 
Set c = plage_a.Find(Me.TextBox1, , , xlWhole)

Merci d'avance

[Al__22]

Affecte dans "plage" le range A2 à A dernière ligne non vide de ta feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage = Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)

Affecte dans "plage_a" le range A2 à B dernière ligne non vide de ta feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage_a = Sheets("Feuil1").Range("A2:B" & Sheets("Feuil1").Range("B65536").End(xlUp).Row)

Compte le nombre de colonne dans "plage" et l'affecte dans "NbCol" (ici il devrait être égale à 1 vu que dans "plage" tu n'as que la colonne A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbCol = plage.Columns.Count

Recherche la valeur/texte/etc du TextBox1 de ton Userform dans la "plage_a" et l'affecte à c

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = plage_a.Find(Me.TextBox1, , , xlWhole)

En gros tu défini deux tableaux de données plage et plage_a, tu compte le nombre de colonne de plage et tu cherche quelque chose dans plage_a