[VBA-E] Affichage de résutats dans textbox help

Bonjour,

J'ai besoin d'une aide. Voilà le problème qui se pose:

j'ai un tableau où chaque ligne correspond à un salarié avec diverses infos dans cette ligne.

Via un userform je demande à l'utilisateur le numéro du salatrié dont il veut voir les infos. un autre userform, rempli de textbox, apparait et donne le domicile du salarié, son numéro de téléphone, etc...
mais quelle formule utiliser pour que la textbox se remplisse automatiquement en fonction du numéro de ligne inséré précédemment? le numéro de la personne correspond à la ligne dans le tableau

ce numéro est stocké dans la feuille FC en case E2.

voilà le code que j'ai fait:

Code:

---

1 2 3 4 5 6 7 8

private sub userform_activate() dim n as integer n = Worksheets("FC").Range("E2").Value for n = n to n TextBox2 = Worksheets("Salarié").Range("B,n").Value Next n End Sub

---

Apparemment ça bloque à la ligne TextBox2=...
comme je suis complètement autodidacte, je tatonne pas mal et là j'avoue que ça fait un bon bout de temps que je galère.

merci d'avance!

Bonjour

Dans ton code,

Citation:

---

Envoyé par sebek_2000

...

Code:

---

1 2 3 4 5 6 7 8

private sub userform_activate() dim n as integer n = Worksheets("FC").Range("E2").Value for n = n to n TextBox2 = Worksheets("Salarié").Range("B,n").Value Next n End Sub

---

...

---

tu as déjà un problème sur

Code:

---

for n = n to n

---

Cette ligne n'est pas logique... Tu ne peux pas avoir n = n to n, Excel ne peut pas interpréter cela. Tu peux avoir

Code:

---

1 2 3 4

dim i as integer for i = 1 to n ...

---

De plus, corrige la ligne

Code:

---

1 2	TextBox2 = Worksheets("Salarié").Range("B,n").Value

---

en

Code:

---

1 2	TextBox2 = Worksheets("Salarié").Range("B" & n).Value

---

Ok?

En complément de ma réponse, tu aurais intérêt à utiliser un objet Range

Code:

---

1 2 3 4 5 6 7 8

dim Cellule as Range n = Worksheets("FC").Range("E2").Value set cellule = worksheets("employés").range("a" & n) ' utilisation d'un offset implicite sur l'objet Cellule textbox1 = cellule(1,1).value textebox2 = cellule(1,2).value ...

---

Les valeurs entre parenthèses dans la ligne

Code:

---

cellule(x,y)

---

s'interprètent comme suit
x=1 => même ligne
x<1, on remonte dans les lignes. x= 0 => une ligne plus haut
x>1, on descend dans les lignes. x= 2, une ligne plus bas
Pour les colonne, c'est la même logique, avec déplacements
à gauche y<1
à droite y >1

Attention, dans le code que tu donnes, dans la boucle, c'est tout le temps textbox2 qui prend la valeur. in fine, textbox2 prendra donc la valeur de la dernière cellule scannée.

De plus, il n'est pas logique de boucler jusqu'à n car n représente la ligne de l'employé, or je suppose que tu veux boucler en te déplaçant dans les colonnes...

Tu nous dis quoi?

Je regarde ça de suite et je te dis.
Je comprends tes corections et je pense qu'elles devraient grandement m'aider. merci merci! c'est vraiment très sympa de ta part.

je te tiens au courant :king:

Deux choses

lorsque j'écris:

Code:

---

dim cellule as range

---

range ne se met pas en bleu comme as integer dans ma ligne précédent. est-ce normal?

par ailleurs le code ne marche pas puisque ma textbox2 me renvoie 0.
je te remets le code entier que j'ai tapé:

Code:

---

1 2 3 4 5 6 7 8 9

private su userform_activate() dim n as integer dim cellue as range n=Worksheets("FC").Range("E2").Value for n=1 to n Set cellule=Worksheets("Salarié").range("B"&n) TextBox2= cellule(1,1).value Next n End sub

---

merci

C'est bon!!! ca marche j'ai réussi. j'ai remis les choses dans l'ordre et ça roule!

merci vraiment beaucoup!!! c'est très très gentil de ta part.

t'as appris comment à faire du vba?

Citation:

---

Envoyé par sebek_2000

...
t'as appris comment à faire du vba?

---

Autodidacte, avec l'aide de gens qui répondaient à mes questions, et en lisant des bouquins, aussi...

Bon boulot.

N'hésite pas à revenir

Citation:

---

Envoyé par sebek_2000

t'as appris comment à faire du vba?

---

Citation:

---

Envoyé par Pierre Fauconnier

Autodidacte,

---

Idem pour moi mais à une époque où Internet n'était pas répandu.
Donc, utilisation des espions et de la fenêtre exécution. Analyse du contenu des objets, essais, erreurs, analyse des erreurs, réessais, encore erreurs, tirer les conclusions de ses erreurs et avancer.
On n'apprend jamais aussi bien qu'en s'étant trompé et en ayant réussi à corriger.

Il est vrai que c'est le meilleur des apprentissages. mais il est loin d'être le plus rapide;
Mais bon la joie n'en est que plus grande lorsque l'on arrive à nos fins!