dernière ligne en variable

Bonjours à tous

Pour clarifiez la lecture de mes code je voudrais arrivez à modifier ce type de code

Code:

---

1 2	commande1.Value = Worksheets("n°commande").Range("b65536").End(xlUp).Offset(1, -1).Value

---

J'ai déjà simplifier la lecture sur la partie nom de la feuille
ce qui donne

Code:

---

1 2 3 4 5

Dim commande As Excel.Worksheet Set commande = Application.ThisWorkbook.Worksheets("n°commande")   commande1.Value = commande.Range("b65536").End(xlUp).Offset(1, -1).Value

---

peux-t-on faire la même chose sur la deuxième parie
j'ai essayé ceci sans succès

Code:

---

1 2 3 4 5 6 7 8

Dim commande As Excel.Worksheet Set commande = Application.ThisWorkbook.Worksheets("n°commande")   Dim findecolonne As Range Set findecolonne = Range("b65536").End(xlUp)   commande1.Value = commande.findecolonne.Offset(1, -1).Value

---

et aussi

Code:

---

1 2 3 4 5 6 7 8 9

Dim commande As Excel.Worksheet Set commande = Application.ThisWorkbook.Worksheets("n°commande")   Dim findecolonne As Long findecolonne= Range("B65536").End(xlUp)     commande1.Value = commande.findecolonne.Offset(1, -1).Value

---

mais sans succès

Bonjour,

Essayez le code suivant

Code:

---

1 2 3 4 5 6 7 8 9

Sub aa() Dim commande As Excel.Worksheet Dim findecolonne As Range '--- Set commande = Application.ThisWorkbook.Worksheets("n°commande") Set findecolonne = commande.Range("B" & [b65536].End(xlUp).Row)   MsgBox findecolonne.Offset(1, -1).Value End Sub

---

Bonjour.

Citation:

---

Envoyé par bosk1000

Code:

---

commande1.Value = Worksheets("n°commande").Range("b65536").End(xlUp).Offset(1, -1).Value

---

---

Vu cette ligne, cela veut dire que tu travailles uniquement avec des .xls ou que jamais les données ne dépasseront

la limite des 65 536 lignes d'Excel 2003 vu qu'à partir de la version 2007 elle dépasse le million ‼ :roll:

Merci

ça fonctionne

oui je ne dépasserais pas les 10 000 lignes dans le meilleurs des cas, alors 65000
sont amplement suffisant. Et ce code avait été débuté sur un excel2003

A la place de Range("B65536") vaut mieux Cells(Rows.Count, 2) …

Petit point supplémentaire

est-il possible que la déclaration cité en haut soit utilisable sur mon formulaire pour plusieurs CommandButon, pour évitez de répétez cette déclaration à plusieurs reprise car je l'utilise pour Private Sub UserForm_Initialize() et après pour Private Sub validez_Click()
est-il possible de le mettre sous Option Explicit de sorte qu'il soit valable pour toutes les macros qui découle de ce formulaire

Merci

Citation:

---

Envoyé par Marc-L

A la place de Range("B65536") vaut mieux Cells(Rows.Count, 2) …

---

Quel en sera l'incidence ?

Si un jour tu dépasses la limite de la version 2003, aucune ligne ne sera oubliée …

Merci