Discussion :

[Mél3790]

Bonjour Le Forum,

J'ai beau chercher partout sur le net, je ne trouve rien qui puisse m'aider.
J'ai essayer par tous les moyens d'alimenter mes textbox de mon UserForm du classeur PLAN, à partir de valeurs qui se trouve dans le classeur PROFIL, feuille PROFILS.

Pour alimenter certaines textbox à partir du classeur PLAN, j'utilise la méthode Activecell.offset qui fonctionne parfaitement bien.
Elles se remplissent parce que : j'alimente une listbox1 en fonction d'une combobox. Quand je clic sur un item de la listbox1, certaines textbox se remplissent parce que ma méthode va chercher le numéro d'index unique que je saisi en bout de ligne dans ce classeur, correspondant à ma recherche.

Et donc, en cliquant sur mon autre Listbox(Listbox2), il faut que certaines textbox se remplissent en fonction des valeurs du classeur PROFIL, feuille PROFILS.

Je dois continuer avec la méthode activecell.offset.

Avez-vous une idée svp ?

Merci beaucoup

[Mél3790]

En "bidouillant" j'ai finalement réussi de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private sub Listbox2_click()
 
Dim numlign
 
With Workbooks("PLAN")
.Activate
ActiveWindow.WindowState = xlMinimized
End With
 
 
With Workbooks("PROFIL")
.Activate
ActiveWindow.WindowState = xlMaximized
Application.Run ("'PLAN.xlsm'!OuvreUF1")
 
  Columns("r:r").Select
    numlign = Selection.Find(What:=numlign, After:=ActiveCell, LookIn:=xlFormulas, lookat _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).EntireRow.Select
 End With
 
 
Textbox1 = ActiveCell.Offset(0, 3).Value
Textbox2 = ActiveCell.Offset(0, 14).Value
Textbox3 = ActiveCell.Offset(0, 1).Value
end sub

Par contre, il y a un problème que je ne comprend pas !

Il n'y a que la Textbox1 qui se remplie et par les 2 autres. J'ai essayé en supprimant "Textbox1 = ActiveCell.Offset(0, 3).Value" et Textbox2 se remplie mais pas Textbox3.

Pourquoi une seule se remplie ??

J'utilise ce code pour remplir ma Listbox1 qui prend les données dans le classeur PLAN(classeur où se trouve mon UserForm), et tout fonctionne parfaitement.
Mais là en allant chercher les valeurs dans un autre classeur, 1 seule textbox se remplie et pas les autres


Vous avez une idée du pourquoi du comment ?

Merciiiii

[Mél3790]

En fait, cela ne fonctionne pas...
Je dois, je pense, utiliser la méthode du dictionnaire pour rechercher les doublons, mais je n'y comprend rien :s

En fait Si : je cherche monsieur DUPONT Martin dans ma combobox, dans la listbox1 s'affiche toutes les lignes où il figure.
Quand je clique sur une des lignes, des textbox se remplissent avec la méthode activecell.offset.

Ce qui donne dans :

Combobox : DUPONT Martin
Textbox1 : 40 ans
Textbox2 : grand
Textbox3 : musique

Mais il faut que d'autres textbox se remplissent en allant chercher les valeurs dans mon autre classeur PROFIL. Pour cela, il faut biensur que cela trouve la ligne où le même NOM figure ainsi que la même valeur que dans la Textbox1.

Donc si dans PROFIL, sur la même ligne il y a DUPONT Martin et 40 ans, alors Textbox4 : 3 enfants, Textbox5 : voiture etc ....

Merci pour votre aide.

[Mél3790]

Help le forum svp.

J'ai vraiment besoin d'aide, il s'agit en plus d'un projet professionnel pour mon employeur. Je suis complètement bloquée à cause de ça.

Je vous remercie beaucoup.

[Mél3790]

Quelqu'un aurait une idée svp ?

Je désespère, je ne trouve rien qui puisse m'aider

[unparia]

Bonjour
Lorsque tu écris :

Code :

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

ActiveCell.Offset(0, 3).Value

tu es sur une cellule du classeur actif et donc sur la cellule active (celle en cours) du classeur que tu as activé (et donc le classeur PROFIL et non celui (le classeur PLAN) dont tu dis vouloir extraire des données.

Car je lis ceci :

Pour alimenter certaines textbox à partir du classeur PLAN