retour d'un textbox dans userform

[denis.J]

Bonsoir à tous

je cherche a avoir dans mon textbox2 la derniere valeur de ma liste dans un tableau ( textbox2 et dans un userform bien sur! )

avec ça j'ai un retour ( erreur definie par l'objet ou pas d'objet) ???

TextBox2.Value = Sheets("Feuil1").Range("c").End(x1Up).Row - 1

Un ptit coup de pouce SVP help!!!!

merci Bcp
@+ denis

 

[steplof]

Bonsoir à tous,

Denis essaie
TextBox2.Value = Sheets(1).Range("c65535").End(xlUp).Row - 1

chez moi ça marche, mais ça donne l'avant dernière ligne , pour la dernière c'est
TextBox2.Value = Sheets(1).Range("c65535").End(xlUp).Row

et la première libre
TextBox2.Value = Sheets(1).Range("c65535").End(xlUp).Row +1

En espérant pas être à côté...

@+
Steplof

 

[denis.J]

Salut à tous

Merci Steplof

Je joint le fichier en question je coince grave ( comme ils disent!!! )
je suis sur qu'il y a une bugne quelque part mais je trouve pas la soluce
alors si un ou +, dieu d'excel a le temps de regarder (sympa)!.

Help .

d'avance merci
@ denis

 

[steplof]

Salut à tous,

Denis, j'ai vite fait regardé ton fichier , je crois que ton problème vient toujours de là:
TextBox2.Value = Sheets(1).Range("c65535").End(xlUp).Row +1

Le caractère en gras était chez toi un 1(un le chiffre), alors que c'est un L miniscule...
Donc forcément ça plante...

Enfin je crois car plus d'erreur chez moi, après est ce que ça fera tout ce que tu en attends c'est un autre problème...
@+ Steplof

 

[denis.J]

Hello le forum

bon bin c'est pas facile!, voila que ce coup-ci j'ai le N° de la ligne enfin on va si remettre.

merci steplof
@+ denis

 

[steplof]

Salut @tous,

Ben oui Denis, t'as le n° de la ligne c'est normal c'est ce que tu lui dis de faire...
Pour avoir la valeur, de la cellule tu dois compléter comme suit:

TextBox2 = Range("c" & Sheets(1).Range("C65535").End(xlUp).Row).Value
TextBox4 = Range("d" & Sheets(1).Range("D65535").End(xlUp).Row).Value
.
.
.
et ainsi de suite

tu pourrais aussi faire:

dim DernLigne as long
DernLigne=Sheets(1).Range("C65535").End(xlUp).Row ' indique le n° de la dernière ligne
TextBox2 = Range("c" & DernLigne).value
TextBox4 = Range("d" & DernLigne).value
et ainsi de suite
vu que la dernière ligne de chaque colonne est la même sauf erreur.

ce qui est plus joli et évite à Excel des calculs inutiles donc gain de temps (sans doute imperceptible mais bon...)

Voilà en espérant t'avoir aidé .


@+
Steplof