Explication ligne de code Lastlig

Bonjour à toutes et à tous,

J'ai à nouveau un problème. En effet je ne comprend pas une ligne de code.
Je m'explique: Je fais un filtre à l'aide de combobox, j'alimente mes combobox avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub UserForm_Initialize() 'Récupération des données sur la BDD et tri dans l'ordre alphabetique Dim LastLig As Long Dim j As Long Dim i As Byte Dim n As Long Dim ColCrit   ColCrit = Array(4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 16, 17, 18, 19, 20, 21, 22, 23) ' n° de colonnes choisies pour le filtrage   With Sheets("bras") .AutoFilterMode = False LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row For i = 1 To UBound(ColCrit) For j = 4 To LastLig Me.Controls("ComboBox" & i).Value = .Cells(j, ColCrit(i)).Value If Me.Controls("ComboBox" & i).ListIndex = -1 Then Me.Controls("ComboBox" & i).AddItem .Cells(j, ColCrit(i)).Value Me.Controls("ComboBox" & i).ListIndex = -1 Next j   'fonction pour tri dans l'ordre alphabetique With Me.Controls("ComboBox" & i) For x = 0 To .ListCount - 1 For y = 0 To .ListCount - 1 If .List(x) < .List(y) Then strTemp = .List(x) .List(x) = .List(y) .List(y) = strTemp End If Next y Next x End With Next i End With End Sub

---

Mais le problème, c'est la ligne ou je décris LastLig

Code:

---

LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row

---

Elle ne prend en compte que la colonne 4, mais j'aimerais qu'elle prend en compte la dernière ligne de toutes les colonnes.

Donc si je me suis bien comprendre, enfin j'espère, il faut en fait que quand j'ajoute des données à la suite dans les colonnes (sans cellules vides), la combobox soit alimenté correctement.

Je remercie par avance à celui ou celle qui m'indiquera la marche à suivre.

Pour finir, j'aimerais souligner la gentillesse, la rapidité et la patience de chaque membre qui m'ont aidé à me perfectionner.

Je sais que je le dis souvent, mais je tiens encore à le dire à toute la communauté:

MERCI

Bonjour,
tu peux essayer ceci :

Code:

---

LastLig = .Cells.Find("*", , , , , xlPrevious).Row

---

te donneras la dernière ligne utilisée de ta feuille

Merci, mais peux-tu m'expliquer le code pour que je comprenne ? ;)

Pourquoi "*" et seulement les virgules ?

Parce que ça fonctionne très bien, mais comme je commence l'introduction de mes données à la ligne 5, il me laisse au début de ma combobox un espace vide
Il faut que j'utilise la scrollbar pour aller jusqu'à en bas de la liste pour trouver mes informations.

Merci

F1 avec le mot find te donnes les explications:
voici les options de la fonctions find :

Citation:

---

expression.Find(Quoi, Après, RechercherDans, Regarder, OrdreRecherche, SensRecherche, RespecterCasse, RespecterNbreOctets, FormatRecherche)

---

donc:
-.cells.find : je veux rechercher dans toutes les cellules de la feuille
-find(quoi, = find("*", = les celulles qui contiennent une donnée, n'importe laquelle
ensuite les différentes "," correspondent aux options que je n'utilise pas sauf "sens recherche" = xlPrevious. encore une fois F1 nous dit :

Citation:

---

xlPrevious :Recherche la valeur correspondante précédente dans la plage.

---

j'aurais pu l'écrire comme ceci :

Code:

---

LastLig = .Cells.Find(what:="*", SearchDirection:=xlPrevious).Row

---

Ok merci , mais pourquoi j'ai un grand espace dans mes combobox. Parce que j'aimerais commencer l'alimentation des combobox à partir de la ligne 4.

Merci

Je comprend ce que tu souhaites faire, enfin je pense.
en fait lastlign n'est pas placé au bon endroit, à mon avis tu devrais le mettre sous la première boucle for. (Ne tiens pas compte du code avec Find).
si je comprend l'array colcrit correspond aux colonnes sur lesquelles tu veux trouver la dernière ligne c'est çà?
donc je ferais :

Code:

---

1 2 3 4 5 6

With Sheets("bras") .AutoFilterMode = False   For i = 0 To UBound(ColCrit) LastLig = .Cells(.Rows.Count, colcrit(i)).End(xlUp).Row For j = 4 To LastLig

---

Note que j'ai mis i=0 et pas i=1 car le premier index d'un array = 0

Oui c'est bien ce que tu pensais. Il n'y avait qu'a rajouter dans la donnée ColCrit(i)

J'avais essayé avec ColCrit sans (i)

Et i = 1 car si j'écris i = 0 j'ai une erreur qui s'affiche. Parce la première ligne c'est la n° 1 et pas 0, enfin je pense.

J'ai un autre problème j'aimerais qu'il m'ignore les cellules vides dans une colonnes, parce que si j'oublie de remplir une colonne, les informations qui suivent après la cellule vide n'apparaissent pas dans ma combobox.

Merci beaucoup. ;)

Je vous souhaite un très beau week-end.