Mettre des valeurs de cellules dans un textbox

Version imprimable

29/04/2013, 09h51
Lelldorin

Mettre des valeurs de cellules dans un textbox

Bonjour le forum !

En bon débutant VBA que je suis, je me suis heurté à un problème que j'ai du mal à résoudre... :cry:
Je vais essayer de vous expliquer mon problèmes de manières la plus clair possible :mrgreen: :
Mon projet est de faire une fonction de recherche pour trouver des données et afficher ces données dans plusieurs TextBox. J'ai réussi à faire la fonction recherche, il me trouve la donnée demandé, me donne la localisation (ex : $G$125), et me sélectionne la ligne où se trouve la donnée. Après il m'ouvre un nouvel Userform où là j'ai mes différentes TextBox (voir l'image ci dessous)
http://imagik.fr/view-rl/25452

Chaques Textbox correspond à une colonne de mon classeur excel.
J'aimerais faire en sorte que les données des cellules s'affichent dans la textbox correspondant (par ex : Pour la première textbox, que la données de la colonne A et ligne x s'affiche, etc...)
J'ai trouvé ça sur internet, mais j'ai du mal à comprendre ce que ça fait (et ça n'affiche pas ce que je souhaite) :

Code:

Devicetxt = Range("A" & Cells(Rows.Count, 100).End(xlUp).Row)

Voila, n'hésitez pas à me demander pour plus d'infos, je vous remercie d'avance.
29/04/2013, 10h31
rvtoulon

bonjour, peux-tu mettre ton code de recherche stp se sera plus facile de t'aider sinon on va te faire x proposition et on risque de tourner en rond.

le code que tu as mis

Code:

Devicetxt = Range("A" & Cells(Rows.Count, 100).End(xlUp).Row)

va chercher dans la colonne N° 100 le numéro de la dernière ligne utilisé de cette colonne disons "x" et va ensuite afficher dans la textbox la valeur de la colonne A et ligne "x".

est-ce ce que tu souhaites?

Merci pour ta réponse :)
Non, je ne pense pas que c'est ce que je souhaite. J'ai réussi à sélectioné la ligne voulu, pour ensuite pouvoir l'exploiter. Vu que j'ai la ligne sélectionné, et que les TextBox sont "assigné" à des colonnes, j'ai juste les lignes qui changent suivant la recherche.

Voici le code que j'ai mis dans ma première userform :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub Recherche_Click()
Dim localise, localise2 As String                                           'Déclaration de "localise" en tant que chaîne de caractères
Dim i, j As Integer                                                         'Déclaration "i" entiers 16 bits
Dim a, ligne As Range
 
If Partnumber_box <> "" Then                                                'On fait une recherche avec le Partnumber du composant
    For i = 2 To DernLigne                                                  'Lorsque i est compris entre 2 et la dernière ligne de la colonne G
         If ListePartnumber(i) = Partnumber_box.Value Then                  'Si la valeur du tableau se trouvant à i = la valeur du Partnumber
         localise = Cells.Find(ListePartnumber(i), , xlValues).Address      'Trouve les coordonnées de la cellule où se trouve la valeur de ListePartnumber
          Cells(i, 7).Select                                                'Sélectionne la cellules où se trouve la donnée
          Rows(ActiveCell.Row).Select                                       'Active toute la ligne
            If MsgBox(localise, vbInformation, "Localisation") = vbOK Then  'Ouvrir une boite de message avec la valeur de localise dedant
            Load Composant_trouvé
            Composant_trouvé.Show
            End If
    Exit For                                                                'Permet de sortir de la boucle for lorsque une fois la recherche terminée
         ElseIf i + 1 = DernLigne + 1 Then                                  'Si i vaut Dernligne (ce qui veut dire pas de résultat avant)
            Beep                                                            'Emettre un signal sonore
            If MsgBox("Composant Non référencé, voulez-vous le créer ?", 4116, "Composant non trouvé") = vbYes Then
              Load CréationComp                                             'Si clic sur Créer, chargement en mémoire de la fenêtre "Création de composant"
              CréationComp.Show                                             'Ouverture de la fenêtre
            End If
 
         End If                                                         'On sort de la boucle If
    Next i
 
ElseIf Device_box <> "" Then                                            'On fait une recherche avec le device du composant
    For j = 2 To DernLigne2
         If ListeDevice(j) = Device_box.Value Then
         localise2 = Cells.Find(ListeDevice(j), , xlValues).Address
          Cells(j, 1).Select
          Rows(ActiveCell.Row).Select
         If MsgBox(localise2, vbInformation, "Localisation") = vbOK Then
            Load Composant_trouvé
            Composant_trouvé.Show
         End If
 
         Exit For
         ElseIf j + 1 = DernLigne2 + 1 Then
         Beep
         If MsgBox("Composant Non référencé, voulez-vous le créer ?", 4116, "Composant non trouvé") = vbYes Then
              Load CréationComp
              CréationComp.Show
             End If
 
         End If
 
    Next j
End If
End Sub

J'ai 2 choix de recherches, c'est pour ça que j'ai un Elseif.

C'est dans l'userform "Composant_trouvé" que je cherche à mettre mes données des textbox.
J'espère que ça pourra éclaircir ma demande ;)

29/04/2013, 11h11
rvtoulon

puique tu sélectionnes la ligne ou se trouve les données
alors lorsque tu initializes ton userform si ta textbox s'appelle bien "Devicetxt" :

Code:

Devicetxt.value = Range("A" & Selection.Row).Value
29/04/2013, 11h26
Lelldorin

Merci infiniment, ça marche super bien :ccool: !
Merci pour ton aide !