Discussion :

[bosk1000]

Bonjours à tous

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

Code :

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

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 :

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

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 :

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

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 :

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

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

[PMO2017]

Bonjour,

Essayez le code suivant

Code :

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

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

[Marc-L]

Bonjour.

Code :

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

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 ‼

[bosk1000]

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

[Marc-L]

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

[bosk1000]

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

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

Quel en sera l'incidence ?

[Marc-L]

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