dernière cellulepleine dans un textbox

Salut la compagnie

Voici mon pb.
J'ai créé un form pour remplir une colone à partir d'un textbox1, et j'aimerais qu'apparaisse à l'ouverure dans un textbox2, la dernière valeur enregistrée dans ma textbox1.

En fait j'ai essayé avec une commande type .ControlSource :

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialyse()   num = Sheets("profil").Range("A65536").End(xlup).Row textbox2.ControlSource = num   End sub

---

Mais rien a y faire.

Alors j'ai essayé de voir avec une cellule bien définie :

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialyse()   worksheets("profi"l).activate textbox2.ControlSource = "A1"   End sub

---

Rien non plus alors que ma case A1 est remplie!!!
Finalement je ne comprends plus rien à la commande ControlSource.
Il n'y a qu'en passant par les propriétés de mon textbox2 (case ControlSource) que j'arrive à afficher ce qui est dans A1.
Mais moi je veux pas afficher la valeur d'une cellule fixe mais bien celle de la dernière cellule de ma colone remplie au moyen de mon textbox1.

Merci d'avance.
En espérant que mes explications de débutant soient à peu près claires.

Tu mets ça

Code:

---

1 2 3

private Sub textBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) textbox2.text = textbox1.text End Sub

---

ou ça

Code:

---

1 2 3

private Sub textbox1_Change() textbox2.Text = textbox1.text end sub

---

ouais ça marche, mais j'avais déjà essayé.
En fait c'est pas vers ça que je veux tendre.

Je voudrais qu'à l'ouverture du userform le textbox2 m'affiche la dernière valeur de la colonne A enregistrée par le textbox1. Or avec cette méthode, ça ne se fait que lorsque l'on enregistre une valeur avec le textbox1. C'est pour ça que j'avais essayé avec une commande ControlSource placé dans initialyse().

Ex:

Je rentre dans ma colonne A les valeurs suivantes par le biais de mon textbox1 :

CHOUCROUTE
FILET
BOEUF
POIVRON
STEACK

Ensuite je ferme mon UserForm.
Et quand je réouvre mon form, je veux que dans mon textbox2 s'affiche "STEACK".
Or avec la méthode que tu me décris (que j'avais déjà essayé), rien ne s'affiche dans mon box2. Par contre si je valide par exemple "PATATE", ça va alors seulement s'afficher dans mon box2. Mais pour moi c'est trop tard.

En fait mon userform est un formulaire de consultation d'un profil utilisateur dont on peut actualiser certains paramètres pour que par la suite le dernier paramètre rentré puisse être utilisé. Ce paramètre étant un équipement.
Cependant je ne veux pas effacer à chaque nouvel actualisation l'ancien équipement, car un autre form avec un listbox utilise cette plage de données pour proposer rapidement un choix d'équipements à l'utilisateur.

Salut,

Dans l'évènement Activate du formulaire mets le code suivant:

Code:

---

1 2 3 4 5

Dim llngRow As Long   llngRow = ActiveSheet.Range("A65536").End(xlUp).Row   TextBox2 = ActiveSheet.Cells(llngRow, 1)

---

Se code va initialiser la valeur de la deuxième textbox.

il faut que tu rajoutes la mise à jour de cette valeur quand l'utilisateur a saisie une nouvelle valeur dans la première textbox.

A+,
MasterSleepy.

Ou tout simplement

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialyse()   worksheets("profi"l).activate Me.textbox2.Text= Worksheets("LaFeuille").Range("A1").value   End sub

---

Tu as essayé, ça ?
RowSource n'est pas une propriété des TextBox (VBA 2003)

désolé mais ça ne fonctionne pas non plus.
Peux tu me dire à quoi correspond Me. ???

J'ai essayé d'autres choses mais sans succés.
En fait j'arrive à afficher la bonne valeur dans le textbox2 mais pas à l'ouverture du userform!! Elle s'affiche uniquement quand j'active le textbox1 : je rentre ma valeur dans le box 1, je valide et là seulement la valeur de la dernière cellule utilisée s'affiche dans mon textbox2. Moi je voudrais que ça s'affiche dés l'ouverure du userform, et que le textbox1 ne soit là que pour ajouter une valeur supplémentaire.

Et si tu nous disais tout : Au tout début, il y a quelque chose dans A1 ? parce que s'il n'y a rien, eh bien c'est difficile de mettre quelque chose dans TextBox2 = rien.
Je me moque pas, ton problème me fascine ;)
A+

ouais c'est vrai, pardon:mrgreen:

Au tout début, il n'y a rien du tout.
Mais j'ai essayé aussi en rentrant des valeurs directement dans mes cellules pour voir, et rien ne s'affiche non plus à l'ouverture du userform.

En fait j'ai l'impression que tout ce que je met après private sub userform_initialise(), n'est absolument pas pris en compte, que ça n'est pas lu.

Bizare nan???

Curieux car ça fonctionne chez moi :(

Tu es sûr de ne pas confondre les lignes et les colonnes :mouarf:
................................Pièce jointe 12551

Andouille ! Regarde ce que tu as écrit :

Citation:

---

Private Sub UserForm_Initialyse()

---

à la place de

Code:

---

Private Sub UserForm_Initialize()

---

:mouarf:
Pas malin le mec ! :aie:

NB - Heureusement que j'ai re-re-re-regardé, sans quoi j'allais encore passer une mauvaise nuit :mouarf:

ouaip désolé !!!
Je l'ai vu qu'aprés!!!!
:marteau:

je ne comprenais pas non plus pourquoi ça ne voulait pas marcher!!
Du coup je suis allé me défouler sur mon sandwich et j'ai zappé de te prévenir!!
:aie:

Merci en tous cas, j'ai au moins appris une chose pas du tout évidente dans l'aide VBA, c'est que le Rowsource n'est pas une propriété des Textbox.

Sinon as-tu par hasard un bouquin de référence à conseiller en particulier (parmis ceux proposés dans l'onglet livres du site) aux débutants?

Citation:

---

Envoyé par buhrne

Sinon as-tu par hasard un bouquin de référence à conseiller en particulier (parmis ceux proposés dans l'onglet livres du site) aux débutants?

---

Avant de venir sur le forum, j'avais un truc très bien mais je ne sais pas si ça existe toujours, s'appelait :f1:
Maintenant, pour ce que je n'ai pas trouvé tout seul, y'a le faux rhum et plein de gens pour me rappeler que depuis 97 le langage a évolué :mouarf:
Désolé mais depuis VB 4 ou 5, je n'ai plus acheté de bouquin. Faut dire que je m'étais fait avoir.
Plus sérieusement, le mieux serait d'aller dans une librairie avec les titres données sur le forum et de regarder celui qui te conviendrait le mieux ;)
A+ et bonne pèche.